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
This commit is contained in:
Tom Tromey 2000-12-18 23:13:05 +00:00 committed by Tom Tromey
parent be36b6d0dd
commit e2ef2bf880
2 changed files with 6 additions and 22 deletions

View File

@ -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

View File

@ -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 {