mirror of
https://git.savannah.gnu.org/git/gnulib.git
synced 2025-08-16 01:22:18 +03:00
c1035211b3
Reported by Daniel Richard G. <skunk@iskunk.org>. * tests/test-perror.sh: Don't fail z/OS style perror output.
27 lines
963 B
Bash
Executable File
27 lines
963 B
Bash
Executable File
#!/bin/sh
|
|
: ${srcdir=.}
|
|
. "$srcdir/init.sh"; path_prepend_ .
|
|
|
|
# Test NULL prefix. Result should not contain a number, except in lines that
|
|
# start with 'EDC' (IBM z/OS libc produces an error identifier before the
|
|
# error message).
|
|
test-perror 2>&1 >/dev/null | LC_ALL=C tr -d '\r' > t-perror.tmp
|
|
grep -v '^EDC' t-perror.tmp | grep '[0-9]' > /dev/null \
|
|
&& fail_ "result should not contain a number"
|
|
|
|
# Test empty prefix. Result should be the same.
|
|
test-perror '' 2>&1 >/dev/null | LC_ALL=C tr -d '\r' > t-perror1.tmp
|
|
diff t-perror.tmp t-perror1.tmp \
|
|
|| fail_ "empty prefix should behave like NULL argument"
|
|
|
|
# Test non-empty prefix.
|
|
test-perror foo 2>&1 >/dev/null | LC_ALL=C tr -d '\r' > t-perror3.tmp
|
|
sed -e 's/^/foo: /' < t-perror.tmp > t-perror2.tmp
|
|
diff t-perror2.tmp t-perror3.tmp || fail_ "prefix applied incorrectly"
|
|
|
|
# Test exit status.
|
|
test-perror >out 2>/dev/null || fail_ "unexpected exit status"
|
|
test -s out && fail_ "unexpected output"
|
|
|
|
Exit 0
|