diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2001-09-06 17:50:59 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2001-09-06 17:50:59 (GMT) |
| commit | abdc9091ace1cbf5564058e9ad47ebca965de42b (patch) | |
| tree | 39b09d3009512cdbe8e554ff455a6e9cf1e8901f /library/tcltest | |
| parent | 7a6efa7f44b4951525bb4487c6404a80607d5838 (diff) | |
| download | tcl-abdc9091ace1cbf5564058e9ad47ebca965de42b.zip tcl-abdc9091ace1cbf5564058e9ad47ebca965de42b.tar.gz tcl-abdc9091ace1cbf5564058e9ad47ebca965de42b.tar.bz2 | |
fs
FossilOrigin-Name: 794a35916c80cd4b50c09d703acd054b587bb3aa
Diffstat (limited to 'library/tcltest')
| -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 { |