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

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index eb203074e041e43706de17490ec3781444d35d96..15c61dd0263ef1ee31a58b8cb8cf3ee15d7bb8ab 100644 (file)
--- 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 04f637a747d9fb852ca28f45eaadc0f8850fa9ec..ba230335a4cfeb3d6d44f4af663552ee047a6afa 100644 (file)
--- 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 {