1global srcdir subdir 2 3catch "glob -nocomplain $srcdir/$subdir/../../tests/*.exp" srcfiles 4verbose "srcfiles are $srcfiles" 5 6set prefix "" 7foreach 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} 35