diff options
author | andreas_kupries <andreas_kupries@noemail.net> | 2002-05-24 22:43:30 (GMT) |
---|---|---|
committer | andreas_kupries <andreas_kupries@noemail.net> | 2002-05-24 22:43:30 (GMT) |
commit | 4f57c07602646eb20d5e199a1270da18e9730fdc (patch) | |
tree | 9e43de3b6caade3b9f07b411dd7d7e073b1a1a9a /tests/winPipe.test | |
parent | 5abf3be7d98ade7eb85df3a9a54d491e3651c038 (diff) | |
download | tcl-4f57c07602646eb20d5e199a1270da18e9730fdc.zip tcl-4f57c07602646eb20d5e199a1270da18e9730fdc.tar.gz tcl-4f57c07602646eb20d5e199a1270da18e9730fdc.tar.bz2 |
* tests/winPipe.test: Applied patch for SF Tcl Bug #549617. Patch
and bug report by Kevin Kenny <kennykb@users.sourceforge.net>.
FossilOrigin-Name: 3cc2acd716e23a5c33427cebce8f27e0397bea56
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r-- | tests/winPipe.test | 12 |
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 {} |