diff options
Diffstat (limited to 'libjava/testsuite/libjava.lang/lang.exp')
-rw-r--r-- | libjava/testsuite/libjava.lang/lang.exp | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/libjava/testsuite/libjava.lang/lang.exp b/libjava/testsuite/libjava.lang/lang.exp new file mode 100644 index 000000000..5e46770c4 --- /dev/null +++ b/libjava/testsuite/libjava.lang/lang.exp @@ -0,0 +1,35 @@ +global srcdir subdir + +catch { lsort [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}.jar" "" $inpfile $resfile $args + test_libjava $options "${prefix}.jar" "-O3" $inpfile $resfile $args +} + +# Local Variables: +# tcl-indent-level:4 +# End: |