fs

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 {