diff options
author | hobbs <hobbs@noemail.net> | 2001-10-12 19:44:56 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2001-10-12 19:44:56 (GMT) |
commit | e3803e29b281bb1707e1eef384621f9e54fa82cf (patch) | |
tree | 0051891bf555954df8a346cf85e81e6593a8f5df /tests | |
parent | f29d4e99ae1e76e7e9b2e115cb8e1c4ac3e81f9f (diff) | |
download | tcl-e3803e29b281bb1707e1eef384621f9e54fa82cf.zip tcl-e3803e29b281bb1707e1eef384621f9e54fa82cf.tar.gz tcl-e3803e29b281bb1707e1eef384621f9e54fa82cf.tar.bz2 |
added removeFile for outdata
FossilOrigin-Name: 3e5931c7d79f75e38cbbe297baf01a14db7feab5
Diffstat (limited to 'tests')
-rw-r--r-- | tests/http.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test index c0f7821..daf08a9 100644 --- a/tests/http.test +++ b/tests/http.test @@ -12,7 +12,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # -# RCS: @(#) $Id: http.test,v 1.24 2001/09/07 00:03:08 hobbs Exp $ +# RCS: @(#) $Id: http.test,v 1.25 2001/10/12 19:44:56 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -486,5 +486,8 @@ if {[info exists httpthread]} { if {[info exist removeHttpd]} { removeFile $httpdFile } +foreach file [list outdata] { + catch {::tcltest::removeFile $file} +} ::tcltest::cleanupTests |