summaryrefslogtreecommitdiffstats
path: root/tests/ioCmd.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-10-12 19:45:24 (GMT)
committerhobbs <hobbs>2001-10-12 19:45:24 (GMT)
commit4141ecefa3e830c2f478a6496a4b943057977f23 (patch)
tree43c0a3a14a7a7cdd8a74cf2c0d5301af7957a3b2 /tests/ioCmd.test
parent61f30998eb0fccab4184bdb9b5c1676a0c882da9 (diff)
downloadtcl-4141ecefa3e830c2f478a6496a4b943057977f23.zip
tcl-4141ecefa3e830c2f478a6496a4b943057977f23.tar.gz
tcl-4141ecefa3e830c2f478a6496a4b943057977f23.tar.bz2
* tests/ioCmd.test: added catch around file removal, as Windows
file locking throws errors.
Diffstat (limited to 'tests/ioCmd.test')
-rw-r--r--tests/ioCmd.test18
1 files changed, 3 insertions, 15 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 79d6c7c..bb05cde 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: ioCmd.test,v 1.10 2001/09/13 19:07:18 andreas_kupries Exp $
+# RCS: @(#) $Id: ioCmd.test,v 1.11 2001/10/12 19:45:24 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -531,24 +531,12 @@ close $wfile
# cleanup
foreach file [list test1 test2 test3 test4] {
- ::tcltest::removeFile $file
+ catch {::tcltest::removeFile $file}
}
# delay long enough for background processes to finish
after 500
foreach file [list test5 pipe output] {
- ::tcltest::removeFile $file
+ catch {::tcltest::removeFile $file}
}
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-