summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1999-06-26 21:09:15 (GMT)
committerrjohnson <rjohnson>1999-06-26 21:09:15 (GMT)
commit45416777a12930be609a9f49453786c7e82dc429 (patch)
treee3d8f43987718cade452205ad4b9de58f18123d4 /tests
parentb7d2ed098d4da0c69bea2284a85c32b2c5b963d2 (diff)
downloadtcl-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.
Diffstat (limited to 'tests')
-rw-r--r--tests/all.tcl4
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)} {