contrib/libstdc++/testsuite/libstdc++.tests/test.exp

   1 global srcdir subdir
   2
   3 catch "glob -nocomplain $srcdir/$subdir/../../tests/*.exp" srcfiles
   4 verbose "srcfiles are $srcfiles"
   5
   6 set prefix ""
   7 foreach x $srcfiles {
   8     regsub "\\.exp$" $x "" prefix
   9     set bname [file tail $prefix]
  10     set args ""
  11     if [file exists $srcdir/$subdir/${bname}.arg] {
  12         set id [open "$srcdir/$subdir/${bname}.arg" r];
  13         set args [read -nonewline $id];
  14         close $id;
  15     }
  16     if [file exists $srcdir/$subdir/${bname}.xpo] {
  17         set resfile "$srcdir/$subdir/${bname}.xpo"
  18         set options "regexp_match"
  19     } else {
  20         set resfile "${prefix}.exp"
  21         set options ""
  22     }
  23
  24     if [file exists ${prefix}.inp] {
  25         set inpfile ${prefix}.inp
  26     } else {
  27         set inpfile ""
  28     }
  29
  30     verbose "inpfile is $inpfile"
  31
  32     test_libstdc++ $options "${prefix}.cc" "" $inpfile $resfile $args
  33     test_libstdc++ $options "${prefix}.cc" "-O" $inpfile $resfile $args
  34 }