summaryrefslogtreecommitdiffstats
path: root/tests/exec.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-10-07 21:45:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-10-07 21:45:38 (GMT)
commitdf6d45b4f6b62d1991c8aee5e5df8f841a28fb1f (patch)
treeeb5a51ee14571c5cd60a902b9b10716c36126ce5 /tests/exec.test
parent0224ac164a76ea4e7643fc44507024b5bb26c77d (diff)
downloadtcl-df6d45b4f6b62d1991c8aee5e5df8f841a28fb1f.zip
tcl-df6d45b4f6b62d1991c8aee5e5df8f841a28fb1f.tar.gz
tcl-df6d45b4f6b62d1991c8aee5e5df8f841a28fb1f.tar.bz2
* tests/cmdAH.test:
* tests/exec.test: Corrected temporary file management * tests/fileSystem.test: issues uncovered by -debug 1 test * tests/io.test: operations. Also backported some * tests/ioCmd.test: other fixes from the HEAD. * tests/main.test: * tests/pid.test: [Bugs 675605, 675655, 675659] * tests/socket.test: * tests/source.test:
Diffstat (limited to 'tests/exec.test')
-rw-r--r--tests/exec.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/exec.test b/tests/exec.test
index fd80dcf..91ce220 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.17 2003/10/07 21:45:38 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)