summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2001-09-06 17:51:00 (GMT)
committervincentdarley <vincentdarley>2001-09-06 17:51:00 (GMT)
commit21bfd2e23db4c36f3bf8b253681b9c40c1947aca (patch)
tree39b09d3009512cdbe8e554ff455a6e9cf1e8901f /library
parentb2eb53e7e42203f94e7f10658405a1ac3f4ad8db (diff)
downloadtcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.zip
tcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.tar.gz
tcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.tar.bz2
fs
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl13
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 {