summaryrefslogtreecommitdiffstats
path: root/tests/winPipe.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r--tests/winPipe.test4
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