From 61a419537bc1d91d73aab42340f3924a84811a36 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 28 Oct 2010 16:38:12 +0000
Subject:         * tests/http.test:      Make http-4.15 pass in isolation [Bug
 3097490]

---
 ChangeLog       | 2 ++
 tests/http.test | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c08dabe..4b2c0e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-28  Don Porter  <dgp@users.sourceforge.net>
 
+	* tests/http.test:	Make http-4.15 pass in isolation [Bug 3097490]
+
 	* unix/tclUnixSock.c:	Prevent calls freeaddrinfo(NULL) which can
 	crash some systems.  Thanks Larry Virden.  [Bug 3093120]
 
diff --git a/tests/http.test b/tests/http.test
index d879e45..5365d6d 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: http.test,v 1.55 2009/11/18 21:04:32 nijtmans Exp $
+# RCS: @(#) $Id: http.test,v 1.56 2010/10/28 16:38:12 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -523,7 +523,7 @@ test http-4.15 {http::Event} -body {
     http::status $token
     # error codes vary among platforms.
 } -cleanup {
-    http::cleanup $token
+    catch {http::cleanup $token}
 } -returnCodes 1 -match glob -result "couldn't open socket*"
 
 test http-5.1 {http::formatQuery} {
-- 
cgit v0.12