diff options
| -rw-r--r-- | libjava/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 22 |
2 files changed, 6 insertions, 22 deletions
diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog index eb203074e04..15c61dd0263 100644 --- a/libjava/testsuite/ChangeLog +++ b/libjava/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2000-12-18 Tom Tromey <tromey@redhat.com> + + * libjava.mauve/mauve.exp (test_mauve): Don't look for exceptions + thrown in the test harness. + (test_mauve_sim): Likewise. + 2000-12-16 Tom Tromey <tromey@redhat.com> * lib/libjava.exp (test_libjava_from_javac): Strange quoting trick diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp index 04f637a747d..ba230335a4c 100644 --- a/libjava/testsuite/libjava.mauve/mauve.exp +++ b/libjava/testsuite/libjava.mauve/mauve.exp @@ -186,17 +186,6 @@ proc test_mauve {} { set result [libjava_load [pwd]/DejaGNUTestHarness \ "$env(MAUVEDIR) $class" ""] - # Test for an exception thrown in the test harness itself. This - # isn't enough to test for all faults in the test harness, but - # it's better than nothing. - set output [lindex $result 1]; - if [regexp "Exception: " $output] then { - fail $output - continue - } - - pass "Execute for $class" - # Extract pass/failure info from output. foreach line [split [lindex $result 1] \n] { if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then { @@ -354,17 +343,6 @@ proc test_mauve_sim {} { set result [libjava_load [pwd]/DejaGNUTestHarness \ "$env(MAUVEDIR) $class" ""] - # Test for an exception thrown in the test harness itself. This - # isn't enough to test for all faults in the test harness, but - # it's better than nothing. - set output [lindex $result 1]; - if [regexp "Exception: " $output] then { - fail $output - continue - } - - pass "Execute for $class" - # Extract pass/failure info from output. foreach line [split [lindex $result 1] \n] { if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then { |
