summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authorsandeep <sandeep>2000-04-22 07:07:59 (GMT)
committersandeep <sandeep>2000-04-22 07:07:59 (GMT)
commita8e7531672e83d472bbe36d0e63ce316bb0cf562 (patch)
tree218bd74182d4e5cb8dcc11bc0c12f69ff4a653a2 /tests/http.test
parentf4b99eae61b3fd5e5a1a4027365d214a462d6d9b (diff)
downloadtcl-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.test3
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