Mercurial > gnulib
view tests/test-xstrtol.sh @ 40231:9b3c79fdfe0b
strtod: fix clash with strtold
Problem reported for RHEL 5 by Jesse Caldwell (Bug#34817).
* lib/strtod.c (compute_minus_zero, minus_zero):
Simplify by remving the macro / external variable,
and having just a function. User changed. This avoids
the need for an external variable that might clash.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Mon, 11 Mar 2019 16:40:29 -0700 |
parents | 8c1a17df67e0 |
children |
line wrap: on
line source
#!/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