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