f3d4f6f9a8
* 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
36 lines
801 B
Plaintext
36 lines
801 B
Plaintext
global srcdir subdir
|
|
|
|
catch "glob -nocomplain ${srcdir}/${subdir}/*.out" srcfiles
|
|
verbose "srcfiles are $srcfiles"
|
|
|
|
set prefix ""
|
|
foreach x $srcfiles {
|
|
regsub "\\.out$" $x "" prefix
|
|
set bname [file tail $prefix]
|
|
|
|
if [file exists $srcdir/$subdir/${bname}.xpo] {
|
|
set resfile "$srcdir/$subdir/${bname}.xpo"
|
|
set options "regexp_match"
|
|
} else {
|
|
set resfile "${prefix}.out"
|
|
set options ""
|
|
}
|
|
|
|
if [file exists ${prefix}.inp] {
|
|
set inpfile ${prefix}.inp
|
|
} else {
|
|
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:
|