tests/test-xstrtol.sh

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