diff options
| author | andreas_kupries <akupries@shaw.ca> | 2002-07-04 20:06:13 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2002-07-04 20:06:13 (GMT) |
| commit | 1422674423bfb3a23def3b90a9f9c48e8429bdd0 (patch) | |
| tree | 13bc85a36a70db118055f3992901eb7555fe59d9 /tests/pid.test | |
| parent | 7e3d8312386ae4c63e52d274aadd2695c7390695 (diff) | |
| download | tcl-1422674423bfb3a23def3b90a9f9c48e8429bdd0.zip tcl-1422674423bfb3a23def3b90a9f9c48e8429bdd0.tar.gz tcl-1422674423bfb3a23def3b90a9f9c48e8429bdd0.tar.bz2 | |
* tests/socket.test:
* tests/winPipe.test:
* tests/pid.test: Fixed SF Bug #575848. See below for a
description the general problem.
Diffstat (limited to 'tests/pid.test')
| -rw-r--r-- | tests/pid.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/pid.test b/tests/pid.test index cbf24ac..8d89235 100644 --- a/tests/pid.test +++ b/tests/pid.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: pid.test,v 1.6 2000/04/10 17:19:03 ericm Exp $ +# RCS: @(#) $Id: pid.test,v 1.7 2002/07/04 20:06:13 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -27,12 +27,13 @@ if {[info commands pid] == ""} { } catch {removeFile test1} +set path(test1) [makeFile {} test1] test pid-1.1 {pid command} { regexp {(^[0-9]+$)|(^0x[0-9a-fA-F]+$)} [pid] } 1 test pid-1.2 {pid command} {unixOrPc unixExecs} { - set f [open {| echo foo | cat >test1} w] + set f [open [format {| echo foo | cat >%s} $path(test1)] w] set pids [pid $f] close $f catch {removeFile test1} @@ -41,7 +42,7 @@ test pid-1.2 {pid command} {unixOrPc unixExecs} { [expr {[lindex $pids 0] == [lindex $pids 1]}] } {2 1 1 0} test pid-1.3 {pid command} { - set f [open test1 w] + set f [open $path(test1) w] set pids [pid $f] close $f set pids |