This is the mail archive of the
java-patches@sources.redhat.com
mailing list for the Java project.
Patch: mauve test suite fix
- To: Java Patch List <java-patches at sourceware dot cygnus dot com>
- Subject: Patch: mauve test suite fix
- From: Tom Tromey <tromey at redhat dot com>
- Date: 18 Dec 2000 16:27:51 -0700
- Reply-To: tromey at redhat dot com
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] {