blob: e82b585bf4077b8b6c08d0d17467e288a0e8377e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/bin/sh
: "${srcdir=.}"
. "$srcdir/init.sh"; path_prepend_ .
too_big=99999999999999999999999999999999999999999999999999999999999999999999
result=0
# test xstrtol
${CHECKER} test-xstrtol 1 >> out 2>&1 || result=1
${CHECKER} test-xstrtol -1 >> out 2>&1 || result=1
${CHECKER} test-xstrtol 1k >> out 2>&1 || result=1
${CHECKER} test-xstrtol ${too_big}h >> out 2>&1 && result=1
${CHECKER} test-xstrtol $too_big >> out 2>&1 && result=1
${CHECKER} test-xstrtol x >> out 2>&1 && result=1
${CHECKER} test-xstrtol 9x >> out 2>&1 && result=1
${CHECKER} test-xstrtol 010 >> out 2>&1 || result=1
# suffix without integer is valid
${CHECKER} test-xstrtol MiB >> out 2>&1 || result=1
${CHECKER} test-xstrtol 1bB >> out 2>&1 && result=1
# test xstrtoul
${CHECKER} test-xstrtoul 1 >> out 2>&1 || result=1
${CHECKER} test-xstrtoul -1 >> out 2>&1 && result=1
${CHECKER} test-xstrtoul 1k >> out 2>&1 || result=1
${CHECKER} test-xstrtoul ${too_big}h >> out 2>&1 && result=1
${CHECKER} test-xstrtoul $too_big >> out 2>&1 && result=1
${CHECKER} test-xstrtoul x >> out 2>&1 && result=1
${CHECKER} test-xstrtoul 9x >> out 2>&1 && result=1
${CHECKER} test-xstrtoul 010 >> out 2>&1 || result=1
${CHECKER} test-xstrtoul MiB >> out 2>&1 || result=1
${CHECKER} test-xstrtoul 1bB >> out 2>&1 && result=1
# Find out how to remove carriage returns from output. Solaris /usr/ucb/tr
# does not understand '\r'.
if echo solaris | tr -d '\r' | grep solais > /dev/null; then
cr='\015'
else
cr='\r'
fi
# normalize output
LC_ALL=C tr -d "$cr" < out > k
mv k out
# compare expected output
cat > expected <<EOF
1->1 ()
-1->-1 ()
1k->1024 ()
invalid suffix in X argument '${too_big}h'
X argument '$too_big' too large
invalid X argument 'x'
invalid suffix in X argument '9x'
010->8 ()
MiB->1048576 ()
invalid suffix in X argument '1bB'
1->1 ()
invalid X argument '-1'
1k->1024 ()
invalid suffix in X argument '${too_big}h'
X argument '$too_big' too large
invalid X argument 'x'
invalid suffix in X argument '9x'
010->8 ()
MiB->1048576 ()
invalid suffix in X argument '1bB'
EOF
compare expected out || result=1
Exit $result
|
