summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-25 13:08:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-25 13:08:04 (GMT)
commitd08906b28d47e6097aefc07830024196336bad0f (patch)
tree1725854b672002b9a835eef5a9d3cf9e0232d194 /tests
parentcb8dc8b181dfb98f074698fc7eade5f9dfdbefff (diff)
parent0eb7f82a5693d837a2065a788ea14a0d07c3c716 (diff)
downloadtcl-d08906b28d47e6097aefc07830024196336bad0f.zip
tcl-d08906b28d47e6097aefc07830024196336bad0f.tar.gz
tcl-d08906b28d47e6097aefc07830024196336bad0f.tar.bz2
Fix [3eb2ec1449]: Allow upper case scheme names in url. http -> 2.8.8
Diffstat (limited to 'tests')
-rw-r--r--tests/http.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test
index 7d439b1..a52cfb1 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -119,7 +119,7 @@ test http-3.2 {http::geturl} -returnCodes error -body {
http::geturl http:junk
} -result {Unsupported URL: http:junk}
set url //[info hostname]:$port
-set badurl //[info hostname]:6666
+set badurl //[info hostname]:[expr $port+1]
test http-3.3 {http::geturl} -body {
set token [http::geturl $url]
http::data $token
@@ -131,7 +131,7 @@ test http-3.3 {http::geturl} -body {
</body></html>"
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 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