diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/winPipe.test | 4 |
2 files changed, 5 insertions, 2 deletions
@@ -4,6 +4,9 @@ loop rather than just calling [update] periodically, avoiding intermittent failures (usually in io-29.32) that stemmed from unreaped processes on Windows. + * tests/winPipe.test (winpipe-1.11): Fixed a bug that caused + test to fail if the path name of the working directory contained + whitespace [Bug 678430] 2004-07-01 Vince Darley <vincentdarley@users.sourceforge.net> diff --git a/tests/winPipe.test b/tests/winPipe.test index c27f9dc..1572348 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.30 2004/06/23 15:36:59 dkf Exp $ +# RCS: @(#) $Id: winPipe.test,v 1.31 2004/07/02 18:46:18 kennykb Exp $ package require tcltest namespace import -force ::tcltest::* @@ -110,7 +110,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} \ {win exec cat32} { - set f [open "|[list $cat32] < $path(little)" r] + set f [open "|[list $cat32] < [list $path(little)]" r] gets $f line catch {close $f} msg list $line $msg |