summaryrefslogtreecommitdiffstats
path: root/tests/winPipe.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r--tests/winPipe.test9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test
index be6bbbc..62154ae 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -11,14 +11,15 @@
# 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.3 1998/09/14 18:40:15 stanton Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.4 1998/11/02 23:04:15 stanton Exp $
if {$tcl_platform(platform) != "windows"} {
return
}
-set cat16 [file join $tcl_library ../win/cat16.exe]
-set cat32 [file join $tcl_library ../win/cat32.exe]
+set bindir [file join [pwd] [file dirname [info nameofexecutable]]]
+set cat16 [file join $bindir cat16.exe]
+set cat32 [file join $bindir cat32.exe]
if {[string compare test [info procs test]] == 1} then {source defs}
@@ -279,7 +280,7 @@ test winpipe-2.24 {16 bit comprehensive tests: read/write application} {nt} {
} "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
}
-test winpipe-3.1 {Tcl_WaitPid} {nt} {
+test winpipe-4.1 {Tcl_WaitPid} {nt} {
proc readResults {f} {
global x result
if { [eof $f] } {