diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | library/tcltest/tcltest.tcl | 5 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 5 |
3 files changed, 10 insertions, 9 deletions
@@ -1,3 +1,10 @@ +2000-10-27 Jennifer Hom <jenn@ajubasolutions.com> + + * 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. + 2000-10-26 David Gravereaux <davygrvy@ajubasolutions.com> * win/tclWinFile.c (TclpMatchFilesTypes): NULL was being set to @@ -25,7 +32,7 @@ 2000-10-19 Jennifer Hom <jenn@ajubasolutions.com> * library/tcltest1.0/tcltest2.tcl: - * tests/tcltest2.test: + * tests/tcltest2 * doc/tcltest2.n: Code and documentation cleanup. Modified -verbose to take list of keywords as well as string of letters. Removed Tcl version information from tcltest. Removed 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 |