yggdrasil/gcc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mauve.exp (test_mauve): Don't look for exceptions thrown in the test harness.

Browse Source 
* 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
Download Patch File Download Diff File Expand all files Collapse all files
libjava/testsuite/libjava.mauve/mauve.exp
-22
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 {