summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2002-05-24 22:43:31 (GMT)
committerandreas_kupries <akupries@shaw.ca>2002-05-24 22:43:31 (GMT)
commiteff506b0846210f74d3905c974729e4e832f0fe0 (patch)
tree9e43de3b6caade3b9f07b411dd7d7e073b1a1a9a /tests
parent72a4179af19fda9a49f2da72163af2736a7419a1 (diff)
downloadtcl-eff506b0846210f74d3905c974729e4e832f0fe0.zip
tcl-eff506b0846210f74d3905c974729e4e832f0fe0.tar.gz
tcl-eff506b0846210f74d3905c974729e4e832f0fe0.tar.bz2
* tests/winPipe.test: Applied patch for SF Tcl Bug #549617. Patch
and bug report by Kevin Kenny <kennykb@users.sourceforge.net>.
Diffstat (limited to 'tests')
-rw-r--r--tests/winPipe.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test
index eadce22..a445793 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.15 2001/09/19 21:56:58 hobbs Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.16 2002/05/24 22:43:31 andreas_kupries Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -106,7 +106,7 @@ test winpipe-1.10 {32 bit comprehensive tests: from file handle} \
} {little stderr32}
test winpipe-1.11 {32 bit comprehensive tests: read from application} \
{pcOnly stdio cat32} {
- set f [open "|$cat32 < little" r]
+ set f [open "|[list $cat32] < little" r]
gets $f line
catch {close $f} msg
list $line $msg
@@ -161,7 +161,7 @@ test winpipe-1.20 {32 bit comprehensive tests: write to application} \
} {foo stderr32}
test winpipe-1.21 {32 bit comprehensive tests: read/write application} \
{pcOnly stdio cat32} {
- set f [open "|$cat32" r+]
+ set f [open "|[list $cat32]" r+]
puts $f $big
puts $f \032
flush $f
@@ -187,7 +187,7 @@ test winpipe-4.1 {Tcl_WaitPid} {nt stdio cat32} {
}
}
- set f [open "|$cat32 < big 2> stderr" r]
+ set f [open "|[list $cat32] < big 2> stderr" r]
fconfigure $f -buffering none -blocking 0
fileevent $f readable "readResults $f"
set x 0
@@ -247,7 +247,7 @@ test winpipe-5.4 {TclpCreateTempFile: TEMP specifies non-existent directory} \
test winpipe-6.1 {PipeSetupProc & PipeCheckProc: read threads} \
{pcOnly stdio cat32} {
- set f [open "|$cat32" r+]
+ set f [open "|[list $cat32]" r+]
fconfigure $f -blocking 0
fileevent $f writable { set x writable }
set x {}
@@ -267,7 +267,7 @@ test winpipe-6.1 {PipeSetupProc & PipeCheckProc: read threads} \
} timeout 1 stderr32}
test winpipe-6.2 {PipeSetupProc & PipeCheckProc: write threads} \
{pcOnly stdio cat32} {
- set f [open "|$cat32" r+]
+ set f [open "|[list $cat32]" r+]
fconfigure $f -blocking 0
fileevent $f writable { set x writable }
set x {}