summaryrefslogtreecommitdiffstats
path: root/tests/all.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/all.tcl')
-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)} {