diff options
| author | jenn <jenn> | 2000-10-27 23:59:58 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 2000-10-27 23:59:58 (GMT) |
| commit | 8bb5657c11f7482c36f3218345aadeff7c623b97 (patch) | |
| tree | 8fce003ff9d9e274a1ec9cf868f09ea17ea55259 /library | |
| parent | dc87e503bd1b4374f3035e725222ed578b5e967b (diff) | |
| download | tcl-8bb5657c11f7482c36f3218345aadeff7c623b97.zip tcl-8bb5657c11f7482c36f3218345aadeff7c623b97.tar.gz tcl-8bb5657c11f7482c36f3218345aadeff7c623b97.tar.bz2 | |
* library/tcltest1.0/tcltest.tcl: Removed a cd into the test
directory in runAllTests that screwed up the temporary directory
setting, effectively preventing users from running tests on
multiple platforms at the same time.
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 5 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 5 |
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 |