Commit e2ef2bf8 by Tom Tromey Committed by Tom Tromey

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
parent be36b6d0
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> 2000-12-16 Tom Tromey <tromey@redhat.com>
* lib/libjava.exp (test_libjava_from_javac): Strange quoting trick * lib/libjava.exp (test_libjava_from_javac): Strange quoting trick
......
...@@ -186,17 +186,6 @@ proc test_mauve {} { ...@@ -186,17 +186,6 @@ proc test_mauve {} {
set result [libjava_load [pwd]/DejaGNUTestHarness \ set result [libjava_load [pwd]/DejaGNUTestHarness \
"$env(MAUVEDIR) $class" ""] "$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. # Extract pass/failure info from output.
foreach line [split [lindex $result 1] \n] { foreach line [split [lindex $result 1] \n] {
if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then { if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then {
...@@ -354,17 +343,6 @@ proc test_mauve_sim {} { ...@@ -354,17 +343,6 @@ proc test_mauve_sim {} {
set result [libjava_load [pwd]/DejaGNUTestHarness \ set result [libjava_load [pwd]/DejaGNUTestHarness \
"$env(MAUVEDIR) $class" ""] "$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. # Extract pass/failure info from output.
foreach line [split [lindex $result 1] \n] { foreach line [split [lindex $result 1] \n] {
if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then { if {[regexp -- {^(PASS|FAIL): (.*)$} $line ignore what msg]} then {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment