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:
parent
693a61283b
commit
f3d4f6f9a8
8 changed files with 120 additions and 23 deletions
1
libjava/testsuite/libjava.lang/Array_1.xfail
Normal file
1
libjava/testsuite/libjava.lang/Array_1.xfail
Normal file
|
@ -0,0 +1 @@
|
|||
xfail-gcj xfail-exec
|
1
libjava/testsuite/libjava.lang/Final.xfail
Normal file
1
libjava/testsuite/libjava.lang/Final.xfail
Normal file
|
@ -0,0 +1 @@
|
|||
xfail-exec
|
|
@ -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:
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue