File: test-xstrtoumax.sh

package info (click to toggle)
libguestfs 1%3A1.44.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 118,932 kB
  • sloc: ansic: 458,017; ml: 51,424; sh: 13,191; java: 9,578; makefile: 7,931; cs: 6,328; haskell: 5,674; python: 3,871; perl: 3,528; erlang: 2,446; xml: 1,347; ruby: 350; pascal: 257; javascript: 157; lex: 135; yacc: 128; cpp: 10
file content (46 lines) | stat: -rwxr-xr-x 1,215 bytes parent folder | download | duplicates (6)
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
#!/bin/sh
: ${srcdir=.}
. "$srcdir/init.sh"; path_prepend_ .

too_big=99999999999999999999999999999999999999999999999999999999999999999999
result=0

# test xstrtoumax
${CHECKER} test-xstrtoumax 1 >> out 2>&1 || result=1
${CHECKER} test-xstrtoumax -1 >> out 2>&1 && result=1
${CHECKER} test-xstrtoumax 1k >> out 2>&1 || result=1
${CHECKER} test-xstrtoumax ${too_big}h >> out 2>&1 && result=1
${CHECKER} test-xstrtoumax $too_big >> out 2>&1 && result=1
${CHECKER} test-xstrtoumax x >> out 2>&1 && result=1
${CHECKER} test-xstrtoumax 9x >> out 2>&1 && result=1
${CHECKER} test-xstrtoumax 010 >> out 2>&1 || result=1
${CHECKER} test-xstrtoumax MiB >> 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 > exp <<EOF
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 ()
EOF

compare exp out || result=1

Exit $result