mirror of https://gitee.com/Nocallback/dejagnu.git
Jacob Bachmeyer
5 years ago
5 changed files with 17 additions and 154 deletions
@ -1,105 +0,0 @@ |
|||||
#!/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' EXIT HUP INT QUIT TRAP PIPE TERM |
|
||||
|
|
||||
sort -t ':' +1 "$now" > "$now_s" |
|
||||
sort -t ':' +1 "$before" > "$before_s" |
|
||||
|
|
||||
grep '^FAIL:' "$now_s" | sed 's/^[^:]*:[ ]//' >$tmp1 |
|
||||
grep '^PASS' "$before_s" | sed 's/^[^:]*:[ ]//' | comm -12 $tmp1 - >$tmp2 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; 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 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; 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 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; 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 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; 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 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; 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 |
|
||||
|
|
||||
|
|
||||
if grep -s . $tmp2 >/dev/null ; then |
|
||||
echo "Old tests that failed, that have disappeared: (Eeek!)" |
|
||||
echo |
|
||||
cat $tmp2 |
|
||||
echo |
|
||||
fi |
|
||||
|
|
||||
exit $exit_status |
|
||||
@ -1,45 +0,0 @@ |
|||||
# test load_lib |
|
||||
|
|
||||
# Verify that load_lib searches for a lib not only in its default |
|
||||
# search_dirs but also in the libdirs list of directories. |
|
||||
|
|
||||
# load_lib f exits with a failure if it does not find f. |
|
||||
# Arrange for the testcase to handle this: |
|
||||
rename exit saved_exit |
|
||||
proc exit { args } { return [lindex $args 0] } |
|
||||
|
|
||||
# The test right below is supposed to fail. |
|
||||
# Prettify default output by only printing the message in verbose mode. |
|
||||
rename send_error saved_send_error |
|
||||
proc send_error { args } { |
|
||||
verbose [lindex $args 0] 2 |
|
||||
} |
|
||||
|
|
||||
if { [ load_lib "subfile1" ] != 1} { |
|
||||
fail "load_lib subfile1 found per default" |
|
||||
} else { |
|
||||
pass "load_lib subfile1 not found per default" |
|
||||
} |
|
||||
|
|
||||
rename send_error "" |
|
||||
rename saved_send_error send_error |
|
||||
|
|
||||
set extradir [testsuite file -source -test "topdir" "subdir1"] |
|
||||
global libdirs |
|
||||
lappend libdirs $extradir |
|
||||
verbose "now added libdirs: $libdirs" 2 |
|
||||
|
|
||||
# In this testcase, we did not exit 1 from load_lib as per above |
|
||||
# rename. subfile1 thus is in the loaded_libs LUT and we won't walk |
|
||||
# the search_dirs again. Use another file for testing the lappend |
|
||||
# worked. |
|
||||
|
|
||||
if { [load_lib "subfile2"] eq ""} { |
|
||||
pass "load_lib subfile2 loaded" |
|
||||
} else { |
|
||||
fail "load_lib subfile2 not found" |
|
||||
} |
|
||||
|
|
||||
# cleanup after us |
|
||||
rename exit "" |
|
||||
rename saved_exit exit |
|
||||
Loading…
Reference in new issue