2020-11-19 12:30:04 -08:00
|
|
|
# Runs all tests with the extension "multi" for several times.
|
|
|
|
|
# Each test program <programname>.multi has its own subdirectory
|
2007-07-28 15:41:04 +00:00
|
|
|
# <programmname> in which several testcases are defined for this program
|
|
|
|
|
# Each testcase has 3 files:
|
|
|
|
|
#
|
|
|
|
|
# <programname>.in
|
|
|
|
|
# <programname>.out
|
|
|
|
|
# <programname>.err
|
|
|
|
|
#
|
|
|
|
|
# The program "<programname>.multi" will be called with the argument
|
|
|
|
|
# "<programname>.in". The standard output will be compared with the
|
|
|
|
|
# files "<programname>.out" and "<programname>.err".
|
|
|
|
|
# The testcase is successful if the program returns 0 AND the outputs
|
|
|
|
|
# are identically equal to the files "<programname>.out" and
|
|
|
|
|
# "<programname>.err".
|
|
|
|
|
|
|
|
|
|
if { [catch { set filenames [glob $srcdir/*.multi] } ] } {
|
|
|
|
|
puts "No .multi files found"
|
|
|
|
|
} else {
|
|
|
|
|
# foreach file, call multi-run (from testsuite/lib)
|
|
|
|
|
|
|
|
|
|
foreach file $filenames { multi-run $file }
|
|
|
|
|
}
|
|
|
|
|
|
