diff options
Diffstat (limited to 'library/tcltest/tcltest.tcl')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 83c584e..bca10be 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.32 2001/08/22 23:55:45 hobbs Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.33 2001/09/06 17:51:00 vincentdarley Exp $ # create the "tcltest" namespace for all testing variables and procedures @@ -2921,6 +2921,17 @@ proc tcltest::runAllTests { {shell ""} } { puts [outputChannel] "Tests located in: $tcltest::testsDirectory" puts [outputChannel] "Tests running in: [tcltest::workingDirectory]" puts [outputChannel] "Temporary files stored in $tcltest::temporaryDirectory" + + if {[package vcompare [package provide Tcl] 8.4] >= 0} { + # If we aren't running in the native filesystem, then we must + # run the tests in a single process (via 'source'), because + # trying to run then via a pipe will fail since the files don't + # really exist. + if {[lindex [file system [tcltest::testsDirectory]] 0] != "native"} { + tcltest::singleProcess 1 + } + } + if {[tcltest::singleProcess]} { puts [outputChannel] "Test files sourced into current interpreter" } else { |