diff options
| author | hobbs <hobbs@noemail.net> | 2001-10-12 19:45:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2001-10-12 19:45:24 (GMT) |
| commit | 419a76ac2e13d336a3fcbc55891b83a5e916fab3 (patch) | |
| tree | 43c0a3a14a7a7cdd8a74cf2c0d5301af7957a3b2 /tests/ioCmd.test | |
| parent | 1bed23634b4aeebf3868ac35ff9502de488c0dca (diff) | |
| download | tcl-419a76ac2e13d336a3fcbc55891b83a5e916fab3.zip tcl-419a76ac2e13d336a3fcbc55891b83a5e916fab3.tar.gz tcl-419a76ac2e13d336a3fcbc55891b83a5e916fab3.tar.bz2 | |
* tests/ioCmd.test: added catch around file removal, as Windows
file locking throws errors.
FossilOrigin-Name: aa2d1d0dc9917264013c669ff622f67df1b0f02e
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 - - - - - - - - - - - - |