diff options
| author | hobbs <hobbs> | 2003-07-18 19:41:15 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-07-18 19:41:15 (GMT) |
| commit | f25190b7b14bee012d5f29e0cb1ebc6cedb98527 (patch) | |
| tree | 38fb4d979bf1f154bb2e18ae4be63725e06168c0 /tests | |
| parent | e7fe85a9c83ac99d29c83dc003abe20abe576c57 (diff) | |
| download | tcl-f25190b7b14bee012d5f29e0cb1ebc6cedb98527.zip tcl-f25190b7b14bee012d5f29e0cb1ebc6cedb98527.tar.gz tcl-f25190b7b14bee012d5f29e0cb1ebc6cedb98527.tar.bz2 | |
* library/http/pkgIndex.tcl: merged to v2.4.4 from head
* library/http/http.tcl: add support for user:pass info in URL.
* tests/http.test: [Bug 759888] (shiobara)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/http.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test index 4beba00..1051162 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.33 2003/02/11 20:41:38 kennykb Exp $ +# RCS: @(#) $Id: http.test,v 1.33.2.1 2003/07/18 19:41:17 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -133,6 +133,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 @@ -308,6 +309,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 |