summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-05-13 10:11:39 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-05-13 10:11:39 (GMT)
commita7d78a8fb4183478700856b8ba6471d5157e8a5a (patch)
treebe7198ce2291dbf6cd97ff8525ea804f9d1c772f /tests/http.test
parent544a36f658bc9b943c70b56477d8809e046d8246 (diff)
downloadtcl-a7d78a8fb4183478700856b8ba6471d5157e8a5a.zip
tcl-a7d78a8fb4183478700856b8ba6471d5157e8a5a.tar.gz
tcl-a7d78a8fb4183478700856b8ba6471d5157e8a5a.tar.bz2
Remove [https://core.tcl-lang.org/tcl/info/1fe8ca8d3eb87b65|Horrible Hack] to keep the old error message.
Instead depend on [https://core.tcl-lang.org/tips/doc/trunk/tip/601.md|TIP #601] to let "encoding convertto" generate an exception.
Diffstat (limited to 'tests/http.test')
-rw-r--r--tests/http.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test
index d59d588..e3baf58 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -677,17 +677,18 @@ test http-7.2 {http::mapReply} {
test http-7.3 {http::formatQuery} -setup {
set enc [http::config -urlencoding]
} -returnCodes error -body {
- # this would be reverting to http <=2.4 behavior
+ # -urlencoding "" no longer supported. Use "iso8859-1".
http::config -urlencoding ""
http::mapReply "∈"
} -cleanup {
http::config -urlencoding $enc
-} -result "can't read \"formMap(∈)\": no such element in array"
+} -result {unknown encoding ""}
test http-7.4 {http::formatQuery} -constraints deprecated -setup {
set enc [http::config -urlencoding]
} -body {
# this would be reverting to http <=2.4 behavior w/o errors
- # (unknown chars become '?')
+ # with Tcl 8.x (unknown chars become '?'), generating a
+ # proper exception with Tcl 9.0
http::config -urlencoding "iso8859-1"
http::mapReply "∈"
} -cleanup {