diff options
| author | Anthony Green <green@cygnus.com> | 1999-10-04 03:30:54 +0000 |
|---|---|---|
| committer | Anthony Green <green@gcc.gnu.org> | 1999-10-04 03:30:54 +0000 |
| commit | 0d9cd062a095fa004363dccaceda82c806e966f9 (patch) | |
| tree | 5866320510b1ce62f3ac85561808920621c7f751 /libjava/testsuite/libjava.lang/lang.exp | |
| parent | 3897b7b7b82991a977369adcc7255befef380850 (diff) | |
| download | gcc-0d9cd062a095fa004363dccaceda82c806e966f9.zip gcc-0d9cd062a095fa004363dccaceda82c806e966f9.tar.gz gcc-0d9cd062a095fa004363dccaceda82c806e966f9.tar.bz2 | |
A little clean up.
From-SVN: r29790
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 0000000..c0b8570 --- /dev/null +++ b/libjava/testsuite/libjava.lang/lang.exp @@ -0,0 +1,35 @@ +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: |