kc3-lang/gnulib/tests/test-xstrtol.sh

• Show log

  Commit

• Hash : 77dd6278
  Author :
  Date : 2024-07-25T22:05:18
  

  xstrtol, xstrtoll tests: Test behaviour for an invalid base.
  
  Reported by Alejandro Colomar <alx@kernel.org> in
  <https://lists.gnu.org/archive/html/bug-gnulib/2024-07/msg00249.html>.
  
  * modules/xstrtol-tests (Files): Add tests/macros.h.
  * modules/xstrtoll-tests (Files): Likewise.
  * tests/test-xstrtol.c: Include macros.h.
  (main): If no arguments are given on the command line, perform
  miscellaneous tests.
  * tests/test-xstrtol.sh: Also invoke test-xstrtol without arguments.
  * tests/test-xstrtoll.sh: Also invoke test-xstrtoll without arguments.
  

Download

• tests/test-xstrtol.sh

• #!/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
  
  # Other misc tests.
  ${CHECKER} test-xstrtol || result=1
  
  Exit $result
  

Download