summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--tests/winPipe.test4
2 files changed, 5 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 765ba81..cd1d05e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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