Final.xfail: New file.

* libjava.lang/Final.xfail: New file.
	* libjava.compile/Case.xfail: New file.
	* libjava.compile/Where.xfail: New file.
	* libjava.compile/test.exp: Look for `.xfail' files.
	* libjava.lang/test.exp: Don't look for `.arg' files.
	Do look for `.xfail' files.
	* lib/libjava.exp (test_libjava_from_source): Changed meaning of
	`exec_args' argument.  Handle `xfail-*' arguments.
	(test_libjava_from_javac): Likewise.
	(test_libjava): Likewise.
	(libjava_read_xfail): New proc.

From-SVN: r27957
This commit is contained in:
Tom Tromey 1999-07-06 15:38:09 +00:00 committed by Tom Tromey
parent 693a61283b
commit f3d4f6f9a8
8 changed files with 120 additions and 23 deletions

View file

@ -0,0 +1 @@
xfail-gcj xfail-exec

View file

@ -0,0 +1 @@
xfail-exec

View file

@ -7,12 +7,7 @@ set prefix ""
foreach x $srcfiles {
regsub "\\.out$" $x "" prefix
set bname [file tail $prefix]
set args ""
if [file exists $srcdir/$subdir/${bname}.arg] {
set id [open "$srcdir/$subdir/${bname}.arg" r];
set args [read -nonewline $id];
close $id;
}
if [file exists $srcdir/$subdir/${bname}.xpo] {
set resfile "$srcdir/$subdir/${bname}.xpo"
set options "regexp_match"
@ -27,8 +22,14 @@ foreach x $srcfiles {
set inpfile ""
}
set args [libjava_read_xfail $srcdir/$subdir/$bname.xfail]
verbose "inpfile is $inpfile"
test_libjava $options "${prefix}.java" "" $inpfile $resfile $args
test_libjava $options "${prefix}.java" "-O" $inpfile $resfile $args
}
# Local Variables:
# tcl-indent-level:4
# End: