Blame gnulib-tests/test-xstrtoumax.sh
|
Packit Service |
fdd496 |
#!/bin/sh
|
|
Packit Service |
fdd496 |
: ${srcdir=.}
|
|
Packit Service |
fdd496 |
. "$srcdir/init.sh"; path_prepend_ .
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
too_big=99999999999999999999999999999999999999999999999999999999999999999999
|
|
Packit Service |
fdd496 |
result=0
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
# test xstrtoumax
|
|
Packit Service |
fdd496 |
test-xstrtoumax 1 >> out 2>&1 || result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax -1 >> out 2>&1 && result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax 1k >> out 2>&1 || result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax ${too_big}h >> out 2>&1 && result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax $too_big >> out 2>&1 && result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax x >> out 2>&1 && result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax 9x >> out 2>&1 && result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax 010 >> out 2>&1 || result=1
|
|
Packit Service |
fdd496 |
test-xstrtoumax MiB >> out 2>&1 || result=1
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
# Find out how to remove carriage returns from output. Solaris /usr/ucb/tr
|
|
Packit Service |
fdd496 |
# does not understand '\r'.
|
|
Packit Service |
fdd496 |
if echo solaris | tr -d '\r' | grep solais > /dev/null; then
|
|
Packit Service |
fdd496 |
cr='\015'
|
|
Packit Service |
fdd496 |
else
|
|
Packit Service |
fdd496 |
cr='\r'
|
|
Packit Service |
fdd496 |
fi
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
# normalize output
|
|
Packit Service |
fdd496 |
LC_ALL=C tr -d "$cr" < out > k
|
|
Packit Service |
fdd496 |
mv k out
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
# compare expected output
|
|
Packit Service |
fdd496 |
cat > exp <
|
|
Packit Service |
fdd496 |
1->1 ()
|
|
Packit Service |
fdd496 |
invalid X argument '-1'
|
|
Packit Service |
fdd496 |
1k->1024 ()
|
|
Packit Service |
fdd496 |
invalid suffix in X argument '${too_big}h'
|
|
Packit Service |
fdd496 |
X argument '$too_big' too large
|
|
Packit Service |
fdd496 |
invalid X argument 'x'
|
|
Packit Service |
fdd496 |
invalid suffix in X argument '9x'
|
|
Packit Service |
fdd496 |
010->8 ()
|
|
Packit Service |
fdd496 |
MiB->1048576 ()
|
|
Packit Service |
fdd496 |
EOF
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
compare exp out || result=1
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
Exit $result
|