diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-10-28 16:38:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-10-28 16:38:12 (GMT) |
| commit | 61a419537bc1d91d73aab42340f3924a84811a36 (patch) | |
| tree | 7666592e4e681da741ab9898db7aef7969ba2e2b /tests | |
| parent | 1ee91334601ef274827664f2c387998fdbfc99eb (diff) | |
| download | tcl-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.test | 4 |
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} { |