diff options
| author | hershey <hershey> | 1999-05-18 22:59:17 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-05-18 22:59:17 (GMT) |
| commit | 2117601f2998cf1d7f2b2ec8628166479a644aa5 (patch) | |
| tree | fa80118e28882ce6249330c784d80d6f0be8aad3 /tests | |
| parent | 6d276bccd10908791970fcb6b2591bbf85dd45e3 (diff) | |
| download | tcl-2117601f2998cf1d7f2b2ec8628166479a644aa5.zip tcl-2117601f2998cf1d7f2b2ec8628166479a644aa5.tar.gz tcl-2117601f2998cf1d7f2b2ec8628166479a644aa5.tar.bz2 | |
changed call to "remove" to "removeFile"--this bug was causing "httpd" file
to be left in working dir whenever tests are run.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/http.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test index f5ab77f..c6ead8a 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.6 1999/05/06 18:45:41 stanton Exp $ +# RCS: @(#) $Id: http.test,v 1.7 1999/05/18 22:59:17 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -311,7 +311,7 @@ if {[info exists httpthread]} { } if {[info exist removeHttpd]} { - remove $httpdFile + removeFile $httpdFile } ::tcltest::cleanupTests |