diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-10-08 16:41:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-10-08 16:41:51 (GMT) |
| commit | c4eac3e8eba8b5435ffae71898c7a066eabfd01d (patch) | |
| tree | d5b3a9663302e1a59ba7aad9e0aa489de6650bf6 /tests/httpd | |
| parent | 870f61c05d5a0b8f4e38871340f9eaeb89729546 (diff) | |
| parent | 7b7886934386c2f0255e9e28609779ade12f4bec (diff) | |
| download | tcl-c4eac3e8eba8b5435ffae71898c7a066eabfd01d.zip tcl-c4eac3e8eba8b5435ffae71898c7a066eabfd01d.tar.gz tcl-c4eac3e8eba8b5435ffae71898c7a066eabfd01d.tar.bz2 | |
[838e99a76d] Ensure that encodings are handled with application/xml and friends.
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/httpd b/tests/httpd index c934fac..40e10df 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 |