|
Last change
on this file since 2442 was 1392, checked in by bird, 22 years ago |
|
This commit was generated by cvs2svn to compensate for changes in r1391,
which included commits to RCS files with non-trunk default branches.
|
-
Property cvs2svn:cvs-rev
set to
1.1.1.2
-
Property svn:eol-style
set to
native
-
Property svn:executable
set to
*
|
|
File size:
811 bytes
|
| Line | |
|---|
| 1 | global srcdir subdir
|
|---|
| 2 |
|
|---|
| 3 | catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.out] } srcfiles
|
|---|
| 4 | verbose "srcfiles are $srcfiles"
|
|---|
| 5 |
|
|---|
| 6 | set prefix ""
|
|---|
| 7 | foreach x $srcfiles {
|
|---|
| 8 | regsub "\\.out$" $x "" prefix
|
|---|
| 9 | set bname [file tail $prefix]
|
|---|
| 10 |
|
|---|
| 11 | if [file exists $srcdir/$subdir/${bname}.xpo] {
|
|---|
| 12 | set resfile "$srcdir/$subdir/${bname}.xpo"
|
|---|
| 13 | set options "regexp_match"
|
|---|
| 14 | } else {
|
|---|
| 15 | set resfile "${prefix}.out"
|
|---|
| 16 | set options ""
|
|---|
| 17 | }
|
|---|
| 18 |
|
|---|
| 19 | if [file exists ${prefix}.inp] {
|
|---|
| 20 | set inpfile ${prefix}.inp
|
|---|
| 21 | } else {
|
|---|
| 22 | set inpfile ""
|
|---|
| 23 | }
|
|---|
| 24 |
|
|---|
| 25 | set args [libjava_read_xfail $srcdir/$subdir/$bname.xfail]
|
|---|
| 26 |
|
|---|
| 27 | verbose "inpfile is $inpfile"
|
|---|
| 28 |
|
|---|
| 29 | test_libjava $options "${prefix}.java" "" $inpfile $resfile $args
|
|---|
| 30 | test_libjava $options "${prefix}.java" "-O" $inpfile $resfile $args
|
|---|
| 31 | }
|
|---|
| 32 |
|
|---|
| 33 | # Local Variables:
|
|---|
| 34 | # tcl-indent-level:4
|
|---|
| 35 | # End:
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
