1global srcdir subdir
2
3catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.out] } srcfiles
4verbose "srcfiles are $srcfiles"
5
6set prefix ""
7foreach 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}.jar" "" $inpfile $resfile $args
30    test_libjava $options "${prefix}.jar" "-O3" $inpfile $resfile $args
31}
32
33# Local Variables:
34# tcl-indent-level:4
35# End:
36