summaryrefslogtreecommitdiffstats
path: root/tests/httpd
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/httpd
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/httpd')
-rw-r--r--tests/httpd4
1 files changed, 4 insertions, 0 deletions
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