summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-10-08 16:38:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-10-08 16:38:42 (GMT)
commitb7a3af751c2791b0659d8fde644ea66d90f58791 (patch)
tree70683ef36e8e3ea9146b2333fd823a9740eb5118 /tests/http.test
parentdaea02d5448a5b21b217c522a799bbcbb2c28def (diff)
downloadtcl-b7a3af751c2791b0659d8fde644ea66d90f58791.zip
tcl-b7a3af751c2791b0659d8fde644ea66d90f58791.tar.gz
tcl-b7a3af751c2791b0659d8fde644ea66d90f58791.tar.bz2
[838e99a76d] Ensure that encodings are handled with application/xml and friends.
Diffstat (limited to 'tests/http.test')
-rw-r--r--tests/http.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/http.test b/tests/http.test
index 2fc0a51..322fb36 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -132,6 +132,7 @@ 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 xmlurl //[info hostname]:$port/xml
set posturl //[info hostname]:$port/post
set badposturl //[info hostname]:$port/droppost
set authorityurl //[info hostname]:$port
@@ -364,6 +365,12 @@ test http-3.31 {http::geturl fragment without path} -body {
} -cleanup {
catch { http::cleanup $token }
} -result 200
+test http-3.32 {http::geturl application/xml is text} -body {
+ set token [http::geturl "$xmlurl"]
+ scan [http::data $token] "<%\[^>]>%c<%\[^>]>"
+} -cleanup {
+ catch { http::cleanup $token }
+} -result {test 4660 /test}
test http-4.1 {http::Event} {
set token [http::geturl $url -keepalive 0]