diff options
| author | andreas_kupries <akupries@shaw.ca> | 2002-05-24 22:43:31 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2002-05-24 22:43:31 (GMT) |
| commit | eff506b0846210f74d3905c974729e4e832f0fe0 (patch) | |
| tree | 9e43de3b6caade3b9f07b411dd7d7e073b1a1a9a /tests | |
| parent | 72a4179af19fda9a49f2da72163af2736a7419a1 (diff) | |
| download | tcl-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.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 {} |