diff options
| author | rjohnson <rjohnson> | 1999-06-26 21:09:15 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1999-06-26 21:09:15 (GMT) |
| commit | 45416777a12930be609a9f49453786c7e82dc429 (patch) | |
| tree | e3d8f43987718cade452205ad4b9de58f18123d4 | |
| parent | b7d2ed098d4da0c69bea2284a85c32b2c5b963d2 (diff) | |
| download | tcl-45416777a12930be609a9f49453786c7e82dc429.zip tcl-45416777a12930be609a9f49453786c7e82dc429.tar.gz tcl-45416777a12930be609a9f49453786c7e82dc429.tar.bz2 | |
Fixed bug in all.tcl that caused "make test" not to work. The var
testsDirectory was getting the wrong value. It was set to the
workingDir - but when running all.tcl it should be set to the
same dir as all.tcl.
| -rw-r--r-- | tests/all.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 7eedd16..f158c93 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.5 1999/06/26 03:54:09 jenn Exp $ +# RCS: @(#) $Id: all.tcl,v 1.6 1999/06/26 21:09:15 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -15,6 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } info commands set ::tcltest::testSingleFile false +set ::tcltest::testsDirectory [file dir [info script]] puts stdout "Tcl $tcl_patchLevel tests running in interp: [info nameofexecutable]" puts stdout "Tests running in working dir: $::tcltest::workingDirectory" @@ -29,6 +30,7 @@ if {[llength $::tcltest::match] > 0} { # if one exists. Otherwise use *.test. If given, the file pattern # should be specified relative to the dir containing this file. If no # files are found to match the pattern, print an error message and exit. + set fileIndex [expr {[lsearch $argv "-file"] + 1}] set fIndex [expr {[lsearch $argv "-f"] + 1}] if {($fileIndex < 1) || ($fIndex > $fileIndex)} { |