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