diff options
| author | hershey <hershey> | 1999-03-11 23:50:38 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-03-11 23:50:38 (GMT) |
| commit | 53f8ec2a7e24bf50bf077d642099eefa32baa56a (patch) | |
| tree | d229bb8c31c419f30ae3a3767d44e2756c630414 | |
| parent | 09cb3cc475149cbe61514fdbac2bf6239b74de3c (diff) | |
| download | tcl-53f8ec2a7e24bf50bf077d642099eefa32baa56a.zip tcl-53f8ec2a7e24bf50bf077d642099eefa32baa56a.tar.gz tcl-53f8ec2a7e24bf50bf077d642099eefa32baa56a.tar.bz2 | |
fixed bad variable reference
| -rw-r--r-- | tests/all.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 2db3b75..8d32df9 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.1.2.1 1999/03/11 18:49:22 hershey Exp $ +# RCS: @(#) $Id: all.tcl,v 1.1.2.2 1999/03/11 23:50:38 hershey Exp $ if {[lsearch ::test [namespace children]] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -35,9 +35,9 @@ if {$fileIndex > 0} { set globPattern [file join $::test::testsDir [lindex $argv $fileIndex]] puts stdout "Sourcing files that match: $globPattern" } elseif {$tcl_platform(os) == "Win32s"} { - set [file join $::test::testsDir globPattern *.tes] + set globPattern [file join $::test::testsDir *.tes] } else { - set [file join $::test::testsDir globPattern *.test] + set globPattern [file join $::test::testsDir *.test] } set fileList [glob -nocomplain $globPattern] if {[llength $fileList] < 1} { |