diff options
| author | sandeep <sandeep> | 2000-04-22 07:07:59 (GMT) |
|---|---|---|
| committer | sandeep <sandeep> | 2000-04-22 07:07:59 (GMT) |
| commit | a8e7531672e83d472bbe36d0e63ce316bb0cf562 (patch) | |
| tree | 218bd74182d4e5cb8dcc11bc0c12f69ff4a653a2 /tests/http.test | |
| parent | f4b99eae61b3fd5e5a1a4027365d214a462d6d9b (diff) | |
| download | tcl-a8e7531672e83d472bbe36d0e63ce316bb0cf562.zip tcl-a8e7531672e83d472bbe36d0e63ce316bb0cf562.tar.gz tcl-a8e7531672e83d472bbe36d0e63ce316bb0cf562.tar.bz2 | |
2000-04-21 Sandeep Tamhankar <sandeep@scriptics.com>
* library/http2.1/http.tcl: Fixed a newly introduced bug where if
there's a -command callback and something goes wrong, geturl threw
an exception, called the callback, and unset the token. I changed
it so that it will not call the callback when throwing an
exception (so the caller only finds out about a given error from
one place). Also, fixed http::ncode so that it actually gives you
back the http return code (i.e. 200, 404, etc.) instead of the
first digit of the version of HTTP being used (i.e. 1).
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test index a7c1045..4efde80 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.18 2000/04/10 17:18:59 ericm Exp $ +# RCS: @(#) $Id: http.test,v 1.19 2000/04/22 07:07:59 sandeep Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -475,4 +475,3 @@ if {[info exist removeHttpd]} { } ::tcltest::cleanupTests -return |