From 45416777a12930be609a9f49453786c7e82dc429 Mon Sep 17 00:00:00 2001 From: rjohnson Date: Sat, 26 Jun 1999 21:09:15 +0000 Subject: 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. --- tests/all.tcl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)} { -- cgit v0.12