Attachment "winPipe.test.diff" to
ticket [549617ffff]
added by
kennykb
2002-04-28 05:40:53.
Index: tests/winPipe.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/winPipe.test,v
retrieving revision 1.15
diff -u -r1.15 winPipe.test
--- tests/winPipe.test 19 Sep 2001 21:56:58 -0000 1.15
+++ tests/winPipe.test 27 Apr 2002 22:39:01 -0000
@@ -106,7 +106,7 @@
} {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 @@
} {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 @@
}
}
- 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-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 @@
} 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 {}