Tcl Source Code

Artifact bbc0f20564ea83f2fd484d28d2d01c0534b48290:

Attachment "tcltestvfs.patch" to ticket [458741ffff] added by vincentdarley 2001-09-05 21:34:50.

---

Index: tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.32
diff -u -r1.32 tcltest.tcl
--- tcltest.tcl	2001/08/22 23:55:45	1.32
+++ tcltest.tcl	2001/09/05 14:32:19
@@ -2921,6 +2921,17 @@
     puts [outputChannel] "Tests located in:  $tcltest::testsDirectory"
     puts [outputChannel] "Tests running in:  [tcltest::workingDirectory]"
     puts [outputChannel] "Temporary files stored in $tcltest::temporaryDirectory"
+    
+    if {[info tclversion] >= 8.4} {
+	# 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 {