summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2002-07-04 20:26:08 (GMT)
committerandreas_kupries <akupries@shaw.ca>2002-07-04 20:26:08 (GMT)
commitcc452c5a406621d17a10583834ac95403805bcec (patch)
treef26aa7b87fba2d25e67dd8fcf564a79442761e08
parent1422674423bfb3a23def3b90a9f9c48e8429bdd0 (diff)
downloadtcl-cc452c5a406621d17a10583834ac95403805bcec.zip
tcl-cc452c5a406621d17a10583834ac95403805bcec.tar.gz
tcl-cc452c5a406621d17a10583834ac95403805bcec.tar.bz2
Fix to latest patch.
-rw-r--r--tests/winPipe.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 3e99625..52eba11 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winPipe.test,v 1.17 2002/07/04 20:06:13 andreas_kupries Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.18 2002/07/04 20:26:08 andreas_kupries Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -199,7 +199,8 @@ test winpipe-4.1 {Tcl_WaitPid} {nt stdio cat32} {
list $result $x [contents $path(stderr)]
} "{$big} 1 stderr32"
-close [open nothing w]
+set path(nothing) [makeFile {} nothing]
+close [open $path(nothing) w]
catch {set env_tmp $env(TMP)}
catch {set env_temp $env(TEMP)}