Commit ab8227fa by Tom Tromey Committed by Tom Tromey

jacks.exp (gcj_jacks_setup_xfail): New function.

	* libjava.jacks/jacks.exp (gcj_jacks_setup_xfail): New function.
	(gcj_jacks_parse): Use it; set up xfails.
	* libjava.jacks/jacks.xfail: New file.

From-SVN: r59702
parent 94fc547c
2002-12-01 Tom Tromey <tromey@redhat.com>
* libjava.jacks/jacks.exp (gcj_jacks_setup_xfail): New function.
(gcj_jacks_parse): Use it; set up xfails.
* libjava.jacks/jacks.xfail: New file.
2002-12-01 Mark Wielaard <mark@klomp.org>
* libjava.mauve/xfails: Remove Inspector FAILs that now PASS.
......
# Run the Jacks test suite.
# See http://www-124.ibm.com/developerworks/oss/cvs/jikes/~checkout~/jacks/jacks.html
proc gcj_jacks_setup_xfail {ary} {
upvar $ary array
global srcdir
set fd [open $srcdir/libjava.jacks/jacks.xfail]
while {! [eof $fd]} {
set array([gets $fd]) {}
}
close $fd
}
proc gcj_jacks_write {filename} {
global GCJ_UNDER_TEST
......@@ -29,14 +40,21 @@ proc gcj_jacks_parse {file} {
return
}
verbose "Reading jacks.xfail"
gcj_jacks_setup_xfail xfails
while {! [eof $fd]} {
set line [gets $fd]
if {[string match RESULT* $line]} {
set linelist [split $line]
set test [lindex $linelist 1]
if {[info exists xfails($test)]} {
setup_xfail "*-*-*"
}
if {[lindex $linelist 2] == "PASSED"} {
pass [lindex $linelist 1]
pass $test
} else {
fail [lindex $linelist 1]
fail $test
}
}
}
......
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