From 9a16699a47b39be8a044c60ab7ba6123d5f9f51a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 2 Sep 2002 19:27:27 +0000
Subject: 	* tests/http.test (http-3.11): added close $fp that was
 causing an 	error on Windows because the file was not closed before
 deleting.

---
 tests/http.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12