/[dejagnu]/dejagnu/lib/utils.exp
ViewVC logotype

Diff of /dejagnu/lib/utils.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by rsavoye, Sun Feb 18 05:12:07 2001 UTC revision 1.3 by rsavoye, Wed Sep 12 22:31:37 2001 UTC
# Line 308  proc psource { file } { Line 308  proc psource { file } {
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] {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26