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