diff options
| author | Tom Tromey <tromey@redhat.com> | 2000-12-18 23:13:05 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 2000-12-18 23:13:05 +0000 |
| commit | e2ef2bf880b8c33ac444c6fdf4e6afc2852ff19b (patch) | |
| tree | 96c2acbc2d6dd24102cc159595abc8a4ef535eab /libjava/testsuite/libjava.mauve/mauve.exp | |
| parent | be36b6d0ddea7d6fab501cc44118d2d5daf750d8 (diff) | |
| download | gcc-e2ef2bf880b8c33ac444c6fdf4e6afc2852ff19b.zip gcc-e2ef2bf880b8c33ac444c6fdf4e6afc2852ff19b.tar.gz gcc-e2ef2bf880b8c33ac444c6fdf4e6afc2852ff19b.tar.bz2 | |
mauve.exp (test_mauve): Don't look for exceptions thrown in the test harness.
* libjava.mauve/mauve.exp (test_mauve): Don't look for exceptions
thrown in the test harness.
(test_mauve_sim): Likewise.
From-SVN: r38368
Diffstat (limited to 'libjava/testsuite/libjava.mauve/mauve.exp')
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp index 04f637a..ba23033 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 { |