From eff506b0846210f74d3905c974729e4e832f0fe0 Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Fri, 24 May 2002 22:43:31 +0000 Subject: * tests/winPipe.test: Applied patch for SF Tcl Bug #549617. Patch and bug report by Kevin Kenny . --- ChangeLog | 3 +++ tests/winPipe.test | 12 ++++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 32f0315..50cd04e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -32,6 +32,9 @@ 2002-05-24 Andreas Kupries + * tests/winPipe.test: Applied patch for SF Tcl Bug #549617. Patch + and bug report by Kevin Kenny . + * win/tclWinSock.c (TcpWatchProc): Fixed SF Tcl Bug #557878. We are not allowed to mess with the watch mask if the socket is a server socket. I believe that the original reporter is George 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 {} -- cgit v0.12