summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2010-10-28 16:38:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2010-10-28 16:38:12 (GMT)
commit61a419537bc1d91d73aab42340f3924a84811a36 (patch)
tree7666592e4e681da741ab9898db7aef7969ba2e2b /tests
parent1ee91334601ef274827664f2c387998fdbfc99eb (diff)
downloadtcl-61a419537bc1d91d73aab42340f3924a84811a36.zip
tcl-61a419537bc1d91d73aab42340f3924a84811a36.tar.gz
tcl-61a419537bc1d91d73aab42340f3924a84811a36.tar.bz2
* tests/http.test: Make http-4.15 pass in isolation [Bug 3097490]
Diffstat (limited to 'tests')
-rw-r--r--tests/http.test4
1 files changed, 2 insertions, 2 deletions
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} {