308 |
# file names (ie: the "foo" in make check RUNTESTFLAGS="bar.exp=foo"). |
# file names (ie: the "foo" in make check RUNTESTFLAGS="bar.exp=foo"). |
309 |
# "glob" style expressions are supported as well as multiple files (with |
# "glob" style expressions are supported as well as multiple files (with |
310 |
# spaces between them). |
# spaces between them). |
311 |
# Eg: RUNTESTFLAGS="bar.exp=foo1.c foo2.c foo3*.c bar*.c" |
# Eg: RUNTESTFLAGS="bar.exp=foo1.c foo2.c foo3*.c bar/baz*.c" |
312 |
# |
# |
313 |
proc runtest_file_p { runtests testcase } { |
proc runtest_file_p { runtests testcase } { |
314 |
if [string length [lindex $runtests 1]] { |
if [string length [lindex $runtests 1]] { |
|
set basename [file tail $testcase] |
|
315 |
foreach ptn [lindex $runtests 1] { |
foreach ptn [lindex $runtests 1] { |
316 |
if [string match $ptn $basename] { |
if [string match "*/$ptn" $testcase] { |
317 |
return 1 |
return 1 |
318 |
} |
} |
319 |
if [string match $ptn $testcase] { |
if [string match $ptn $testcase] { |