3 catch
"glob -nocomplain $srcdir/$subdir/../../tests/*.exp" srcfiles
4 verbose
"srcfiles are $srcfiles"
8 regsub
"\\.exp$" $x "" prefix
9 set bname
[file tail $prefix
]
11 if [file
exists $srcdir
/$subdir
/$
{bname
}.
arg] {
12 set id
[open
"$srcdir/$subdir/${bname}.arg" r];
13 set args [read
-nonewline $id
];
16 if [file
exists $srcdir
/$subdir
/$
{bname
}.xpo
] {
17 set resfile
"$srcdir/$subdir/${bname}.xpo"
18 set options
"regexp_match"
20 set resfile
"${prefix}.exp"
24 if [file
exists $
{prefix
}.inp
] {
25 set inpfile $
{prefix
}.inp
30 verbose
"inpfile is $inpfile"
32 test_libstdc
++ $options
"${prefix}.cc" "" $inpfile $resfile $args
33 test_libstdc
++ $options
"${prefix}.cc" "-O" $inpfile $resfile $args