diff options
| author | hobbs <hobbs> | 2001-10-12 19:45:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-10-12 19:45:24 (GMT) |
| commit | 4141ecefa3e830c2f478a6496a4b943057977f23 (patch) | |
| tree | 43c0a3a14a7a7cdd8a74cf2c0d5301af7957a3b2 /tests/ioCmd.test | |
| parent | 61f30998eb0fccab4184bdb9b5c1676a0c882da9 (diff) | |
| download | tcl-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.test | 18 |
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 - - - - - - - - - - - - |