summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-10-08 16:40:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-10-08 16:40:35 (GMT)
commit0ac8f1e19818ac7aa6fd35de8e3190bcd24dcb6d (patch)
tree06756b0f17226e049d61d2a49417ea56bb52af04 /tests
parentfb0c1827eb055322b7c6f0c5dc80673dbbbf1f9f (diff)
parentb7a3af751c2791b0659d8fde644ea66d90f58791 (diff)
downloadtcl-0ac8f1e19818ac7aa6fd35de8e3190bcd24dcb6d.zip
tcl-0ac8f1e19818ac7aa6fd35de8e3190bcd24dcb6d.tar.gz
tcl-0ac8f1e19818ac7aa6fd35de8e3190bcd24dcb6d.tar.bz2
[838e99a76d] Ensure that encodings are handled with application/xml and friends.
Diffstat (limited to 'tests')
-rw-r--r--tests/http.test8
-rw-r--r--tests/httpd4
2 files changed, 12 insertions, 0 deletions
diff --git a/tests/http.test b/tests/http.test
index 41820cb..12ad475 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -133,6 +133,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
@@ -431,6 +432,13 @@ Accept text/plain,application/tcl-test-value
Accept-Encoding .*
Content-Type application/x-www-form-urlencoded
Content-Length 5}
+# Bug 838e99a76d
+test http-3.33 {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} -body {
set token [http::geturl $url -keepalive 0]
diff --git a/tests/httpd b/tests/httpd
index 232e80a..8753912 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -171,6 +171,10 @@ proc httpdRespond { sock } {
set html "$bindata[info hostname]:$port$data(url)"
set type application/octet-stream
}
+ *xml* {
+ set html [encoding convertto utf-8 "<test>\u1234</test>"]
+ set type "application/xml;charset=UTF-8"
+ }
*post* {
set html "Got [string length $data(query)] bytes"
set type text/plain