summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-07-18 19:36:40 (GMT)
committerhobbs <hobbs>2003-07-18 19:36:40 (GMT)
commit9dc1deb815dd43734b59bbc5d4dbb7c28e13faf5 (patch)
tree60da98a853f30e7667b20ecb3a1e0724296e07c4 /tests/http.test
parent2fbb36cdb77e640aa7cd11eddf6d19a7ac5c4490 (diff)
downloadtcl-9dc1deb815dd43734b59bbc5d4dbb7c28e13faf5.zip
tcl-9dc1deb815dd43734b59bbc5d4dbb7c28e13faf5.tar.gz
tcl-9dc1deb815dd43734b59bbc5d4dbb7c28e13faf5.tar.bz2
* library/http/pkgIndex.tcl: upped to http v2.4.4
* library/http/http.tcl: add support for user:pass info in URL. * tests/http.test: [Bug 759888] (shiobara)
Diffstat (limited to 'tests/http.test')
-rw-r--r--tests/http.test8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test
index 3049742..905abdd 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.34 2003/06/27 17:22:41 dgp Exp $
+# RCS: @(#) $Id: http.test,v 1.35 2003/07/18 19:36:40 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -134,6 +134,7 @@ test http-3.3 {http::geturl} {
set tail /a/b/c
set url [info hostname]:$port/a/b/c
+set fullurl http://user:pass@[info hostname]:$port/a/b/c
set binurl [info hostname]:$port/binary
set posturl [info hostname]:$port/post
set badposturl [info hostname]:$port/droppost
@@ -309,6 +310,11 @@ test http-3.13 {http::geturl socket leak test} {
expr {[llength [file channels]] == $chanCount}
} 1
+test http-3.14 "http::geturl $fullurl" {
+ set token [http::geturl $fullurl -validate 1]
+ http::code $token
+} "HTTP/1.0 200 OK"
+
test http-4.1 {http::Event} {
set token [http::geturl $url]
upvar #0 $token data