summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl5
-rw-r--r--library/tcltest1.0/tcltest.tcl5
2 files changed, 2 insertions, 8 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 80f80c7..c58c0da 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -13,7 +13,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.28 2000/10/24 22:30:32 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.29 2000/10/28 00:00:00 jenn Exp $
# create the "tcltest" namespace for all testing variables and procedures
@@ -2978,9 +2978,6 @@ proc tcltest::runAllTests { {shell ""} } {
incr tcltest::numTestFiles
uplevel [list source $file]
} else {
- # Change to the tests directory so the value of the following
- # variable is set correctly when we spawn the child test processes
- cd $tcltest::testsDirectory
set cmd [concat [list | $shell $file] [split $argv]]
if {[catch {
incr tcltest::numTestFiles
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 80f80c7..c58c0da 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -13,7 +13,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.28 2000/10/24 22:30:32 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.29 2000/10/28 00:00:00 jenn Exp $
# create the "tcltest" namespace for all testing variables and procedures
@@ -2978,9 +2978,6 @@ proc tcltest::runAllTests { {shell ""} } {
incr tcltest::numTestFiles
uplevel [list source $file]
} else {
- # Change to the tests directory so the value of the following
- # variable is set correctly when we spawn the child test processes
- cd $tcltest::testsDirectory
set cmd [concat [list | $shell $file] [split $argv]]
if {[catch {
incr tcltest::numTestFiles