diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-07-02 18:46:18 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-07-02 18:46:18 (GMT) |
| commit | 1aa82f9d198e68705e1f5a9fd2ff6525e45fb0f4 (patch) | |
| tree | bbac6c32c8e17817face12402be080de6978cacb /tests | |
| parent | 63388cf7125641be65b052cd4895973642373192 (diff) | |
| download | tcl-1aa82f9d198e68705e1f5a9fd2ff6525e45fb0f4.zip tcl-1aa82f9d198e68705e1f5a9fd2ff6525e45fb0f4.tar.gz tcl-1aa82f9d198e68705e1f5a9fd2ff6525e45fb0f4.tar.bz2 | |
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]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/winPipe.test | 4 |
1 files changed, 2 insertions, 2 deletions
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 |