diff options
author | dgp <dgp@noemail.net> | 2003-10-07 18:53:22 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2003-10-07 18:53:22 (GMT) |
commit | b165326ef578efd7aa029266af1cad3b52a52aaf (patch) | |
tree | 30e0b73fd2b14893d93d3968a11f609b1052e149 /tests/exec.test | |
parent | 31f1d33b84a9c605dd7ea1672b0034afe674df67 (diff) | |
download | tcl-b165326ef578efd7aa029266af1cad3b52a52aaf.zip tcl-b165326ef578efd7aa029266af1cad3b52a52aaf.tar.gz tcl-b165326ef578efd7aa029266af1cad3b52a52aaf.tar.bz2 |
* tests/exec.test: Corrected temporary file management
* tests/fileSystem.test: issues uncovered by -debug 1 test
* tests/ioCmd.test: operations. Also backported some
* tests/pid.test: other fixes from the HEAD.
* tests/socket.test: [Bugs 675605, 675655]
* tests/source.test:
FossilOrigin-Name: 552fa6ec61860618a115bc3ce6145571a662cca6
Diffstat (limited to 'tests/exec.test')
-rw-r--r-- | tests/exec.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/exec.test b/tests/exec.test index fd80dcf..c5223aa 100644 --- a/tests/exec.test +++ b/tests/exec.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: exec.test,v 1.16 2003/02/04 18:23:35 vincentdarley Exp $ +# RCS: @(#) $Id: exec.test,v 1.16.2.1 2003/10/07 18:53:23 dgp Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -138,7 +138,7 @@ test exec-2.6 {redirecting input from immediate source, with UTF} {exec} { # I/O redirection: output to file. set path(gorp.file) [makeFile {} gorp.file] -removeFile gorp.file +file delete $path(gorp.file) test exec-3.1 {redirecting output to file} {exec} { exec [interpreter] $path(echo) "Some simple words" > $path(gorp.file) @@ -179,7 +179,7 @@ test exec-3.7 {redirecting output to file} {exec} { # I/O redirection: output and stderr to file. -removeFile gorp.file +file delete $path(gorp.file) test exec-4.1 {redirecting output and stderr to file} {exec} { exec [interpreter] "$path(echo)" "test output" >& $path(gorp.file) @@ -264,7 +264,7 @@ test exec-6.3 {redirecting stderr through a pipeline} {exec stdio} { # I/O redirection: combinations. set path(gorp.file2) [makeFile {} gorp.file2] -removeFile gorp.file2 +file delete $path(gorp.file2) test exec-7.1 {multiple I/O redirections} {exec} { exec << "command input" > $path(gorp.file2) [interpreter] $path(cat) < $path(gorp.file) |