libjava/testsuite/libjava.lang/lang.exp

   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}.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: