mirror of
https://github.com/gcc-mirror/gcc.git
synced 2024-11-21 13:40:47 +00:00
27b56ba6cc
Port to hosts whose 'sort' and 'tail' implementations treat operands with leading '+' as file names, as POSIX has required since 2001. However, make sure the code still works on pre-POSIX hosts. * ltmain.sh: Don't assume "sort +2" is equivalent to "sort -k 3", since POSIX 1003.1-2001 no longer requires this. contrib: * compare_tests: Don't assume "sort +2" is equivalent to "sort -k 3", since POSIX 1003.1-2001 no longer requires this. gcc: * Makefile.in (slowcompare): Port to POSIX 1003.1-2001, which says you should use "tail -c +N" rather than "tail +Nc". Fix a bug: the old code incorrectly skipped 15 bytes, not 16. From-SVN: r115234
112 lines
2.6 KiB
Bash
Executable File
112 lines
2.6 KiB
Bash
Executable File
#!/bin/sh
|
|
# This script automatically test the given tool with the tool's test cases,
|
|
# reporting anything of interest.
|
|
|
|
# exits with 0 if there is nothing of interest
|
|
# exits with 1 if there is something interesting
|
|
# exits with 2 if an error occurred
|
|
|
|
# Give two .sum files to compare them
|
|
|
|
# Written by Mike Stump <mrs@cygnus.com>
|
|
|
|
tool=gxx
|
|
|
|
tmp1=/tmp/$tool-testing.$$a
|
|
tmp2=/tmp/$tool-testing.$$b
|
|
now_s=/tmp/$tool-testing.$$d
|
|
before_s=/tmp/$tool-testing.$$e
|
|
|
|
if [ "$2" = "" ]; then
|
|
echo "Usage: $0 previous current" >&2
|
|
exit 2
|
|
fi
|
|
|
|
sed 's/^XFAIL/FAIL/; s/^XPASS/PASS/' < "$1" | awk '/^Running target / {target = $3} { if (target != "unix") { sub(/: /, "&"target": " ); }; print $0; }' >$tmp1
|
|
sed 's/^XFAIL/FAIL/; s/^XPASS/PASS/' < "$2" | awk '/^Running target / {target = $3} { if (target != "unix") { sub(/: /, "&"target": " ); }; print $0; }' >$tmp2
|
|
|
|
before=$tmp1
|
|
now=$tmp2
|
|
|
|
exit_status=0
|
|
trap "rm -f $tmp1 $tmp2 $now_s $before_s" 0 1 2 3 5 9 13 15
|
|
|
|
if sort -k 2 </dev/null >/dev/null 2>&1; then
|
|
skip1='-k 2'
|
|
else
|
|
skip1='+1'
|
|
fi
|
|
|
|
sort -t ':' $skip1 "$now" > "$now_s"
|
|
sort -t ':' $skip1 "$before" > "$before_s"
|
|
|
|
grep '^FAIL:' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^PASS' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -12 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "Tests that now fail, but worked before:"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
exit_status=1
|
|
fi
|
|
|
|
grep '^PASS' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^FAIL' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -12 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "Tests that now work, but didn't before:"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
fi
|
|
|
|
grep '^FAIL' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^[PF]A[SI][SL]' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -23 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "New tests that FAIL:"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
exit_status=1
|
|
fi
|
|
|
|
grep '^PASS' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^[PF]A[SI][SL]' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -23 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "New tests that PASS:"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
fi
|
|
|
|
grep '^[PF]A[SI][SL]' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^PASS' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -13 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "Old tests that passed, that have disappeared: (Eeek!)"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
fi
|
|
|
|
grep '^[PF]A[SI][SL]' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1
|
|
grep '^FAIL' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -13 $tmp1 - >$tmp2
|
|
|
|
grep -s . $tmp2 >/dev/null
|
|
if [ $? = 0 ]; then
|
|
echo "Old tests that failed, that have disappeared: (Eeek!)"
|
|
echo
|
|
cat $tmp2
|
|
echo
|
|
fi
|
|
|
|
exit $exit_status
|