diff options
| author | Tom Tromey <tromey@cygnus.com> | 1999-07-06 15:38:09 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 1999-07-06 15:38:09 +0000 |
| commit | f3d4f6f9a8fbf2fb729fa8896b714a7b99766c66 (patch) | |
| tree | b8d27368683decc90eb2b1f1f0a66c6fd1eb4b20 /libjava/testsuite/libjava.lang | |
| parent | 693a61283b6ac0e39bd611a46867752baa29d0d4 (diff) | |
| download | gcc-f3d4f6f9a8fbf2fb729fa8896b714a7b99766c66.tar.gz | |
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
Diffstat (limited to 'libjava/testsuite/libjava.lang')
| -rw-r--r-- | libjava/testsuite/libjava.lang/Array_1.xfail | 1 | ||||
| -rw-r--r-- | libjava/testsuite/libjava.lang/Final.xfail | 1 | ||||
| -rw-r--r-- | libjava/testsuite/libjava.lang/test.exp | 13 |
3 files changed, 9 insertions, 6 deletions
diff --git a/libjava/testsuite/libjava.lang/Array_1.xfail b/libjava/testsuite/libjava.lang/Array_1.xfail new file mode 100644 index 00000000000..8e7b31e450f --- /dev/null +++ b/libjava/testsuite/libjava.lang/Array_1.xfail @@ -0,0 +1 @@ +xfail-gcj xfail-exec diff --git a/libjava/testsuite/libjava.lang/Final.xfail b/libjava/testsuite/libjava.lang/Final.xfail new file mode 100644 index 00000000000..eece6415f81 --- /dev/null +++ b/libjava/testsuite/libjava.lang/Final.xfail @@ -0,0 +1 @@ +xfail-exec diff --git a/libjava/testsuite/libjava.lang/test.exp b/libjava/testsuite/libjava.lang/test.exp index cfe9cf5069c..c0b8570403f 100644 --- a/libjava/testsuite/libjava.lang/test.exp +++ b/libjava/testsuite/libjava.lang/test.exp @@ -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: |