summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-09-02 19:27:27 (GMT)
committerhobbs <hobbs>2002-09-02 19:27:27 (GMT)
commit9a16699a47b39be8a044c60ab7ba6123d5f9f51a (patch)
tree1d152708d36df40c998e2f891eca9abd1df6cfcc
parentcd986d5172a6747572e726e3a643fb950d04deea (diff)
downloadtcl-9a16699a47b39be8a044c60ab7ba6123d5f9f51a.zip
tcl-9a16699a47b39be8a044c60ab7ba6123d5f9f51a.tar.gz
tcl-9a16699a47b39be8a044c60ab7ba6123d5f9f51a.tar.bz2
* tests/http.test (http-3.11): added close $fp that was causing an
error on Windows because the file was not closed before deleting.
-rw-r--r--tests/http.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test
index 3901ebe..9b4b4d1 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.29 2002/07/05 10:38:42 dkf Exp $
+# RCS: @(#) $Id: http.test,v 1.30 2002/09/02 19:27:27 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -246,6 +246,7 @@ test http-3.11 {http::geturl querychannel with -command} {
set t [http::geturl $posturl -querychannel $fp -command asyncCB]
set postResult [list PostStart]
http::wait $t
+ close $fp
lappend testRes [http::status $t] $postResult
removeFile outdata