diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-15 15:07:56 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-15 15:07:56 (GMT) |
commit | 5eeecf6181bb38bb87f5d2443489e5dfc875e7a9 (patch) | |
tree | 29861e2c7a3ee74bc83a6fe539bd6713afa15bb3 /tests/winPipe.test | |
parent | 76e88df0f7df0d886ef26fad352fe22ac87df18d (diff) | |
download | tcl-5eeecf6181bb38bb87f5d2443489e5dfc875e7a9.zip tcl-5eeecf6181bb38bb87f5d2443489e5dfc875e7a9.tar.gz tcl-5eeecf6181bb38bb87f5d2443489e5dfc875e7a9.tar.bz2 |
Add "file join $grandParentDir tcl8.? library" as possible path for a valid init.tcl.
Some simplifications in use of test restrictions.
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r-- | tests/winPipe.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 8128fe2..53e46fc 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -74,11 +74,11 @@ test winpipe-1.2 {32 bit comprehensive tests: from big file} {win exec cat32} { exec $cat32 < $path(big) > $path(stdout) 2> $path(stderr) list [contents $path(stdout)] [contents $path(stderr)] } "{$big} stderr32" -test winpipe-1.3 {32 bit comprehensive tests: a little from pipe} {win nt exec cat32} { +test winpipe-1.3 {32 bit comprehensive tests: a little from pipe} {win exec cat32} { exec [interpreter] $path(more) < $path(little) | $cat32 > $path(stdout) 2> $path(stderr) list [contents $path(stdout)] [contents $path(stderr)] } {little stderr32} -test winpipe-1.4 {32 bit comprehensive tests: a lot from pipe} {win nt exec cat32} { +test winpipe-1.4 {32 bit comprehensive tests: a lot from pipe} {win exec cat32} { exec [interpreter] $path(more) < $path(big) | $cat32 > $path(stdout) 2> $path(stderr) list [contents $path(stdout)] [contents $path(stderr)] } "{$big} stderr32" @@ -171,7 +171,7 @@ test winpipe-1.21 {32 bit comprehensive tests: read/write application} \ set r } "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" -test winpipe-4.1 {Tcl_WaitPid} {win nt exec cat32} { +test winpipe-4.1 {Tcl_WaitPid} {win exec cat32} { proc readResults {f} { global x result if { [eof $f] } { |