From 1aa82f9d198e68705e1f5a9fd2ff6525e45fb0f4 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Fri, 2 Jul 2004 18:46:18 +0000 Subject: 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] --- ChangeLog | 3 +++ tests/winPipe.test | 4 ++-- 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 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 -- cgit v0.12