Patch: mauve test suite fix

Tom Tromey tromey@redhat.com
Mon Dec 18 15:13:00 GMT 2000


This fixes a buglet in the Mauve wrapper in our test suite.

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.

Tom

Index: libjava.mauve/mauve.exp
===================================================================
RCS file: /cvs/gcc/egcs/libjava/testsuite/libjava.mauve/mauve.exp,v
retrieving revision 1.10
diff -u -r1.10 mauve.exp
--- mauve.exp	2000/05/17 15:48:44	1.10
+++ mauve.exp	2000/12/18 23:11:29
@@ -186,17 +186,6 @@
     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 {
@@ -353,17 +342,6 @@
 
     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] {


More information about the Java-patches mailing list