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

libjava/testsuite/ChangeLog

+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.

libjava/testsuite/libjava.jacks/jacks.exp

 # 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
       }
     }
   }