diff options
author | dgp <dgp@users.sourceforge.net> | 2022-11-20 14:22:33 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2022-11-20 14:22:33 (GMT) |
commit | 0c93e6a9789994d6ca4803180c4d037cc462cdcb (patch) | |
tree | caeea9df414f5cabb94001ba66ecd9260819d10a | |
parent | 10a5b6e4c78d92ecb5c3c05002b4b5d42f66a869 (diff) | |
parent | 124340611ed97ad4347b3ce4bc6aa1d76a99f1b0 (diff) | |
download | tcl-0c93e6a9789994d6ca4803180c4d037cc462cdcb.zip tcl-0c93e6a9789994d6ca4803180c4d037cc462cdcb.tar.gz tcl-0c93e6a9789994d6ca4803180c4d037cc462cdcb.tar.bz2 |
merge 8.6
-rw-r--r-- | tests/http.test | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/tests/http.test b/tests/http.test index b0f5144..498621b 100644 --- a/tests/http.test +++ b/tests/http.test @@ -30,6 +30,8 @@ if {[catch {package require http 2} version]} { return } } +testConstraint http2.9.7 [package vsatisfies [package provide http] 2.9.7] +testConstraint http2.9.8 [package vsatisfies [package provide http] 2.9.8] proc bgerror {args} { global errorInfo @@ -119,25 +121,25 @@ test http-1.6 {http::config} -setup { test http-2.1 {http::reset} { catch {http::reset http#1} } 0 -test http-2.2 {http::CharsetToEncoding} { +test http-2.2 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding iso-8859-11 } iso8859-11 -test http-2.3 {http::CharsetToEncoding} { +test http-2.3 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding iso-2022-kr } iso2022-kr -test http-2.4 {http::CharsetToEncoding} { +test http-2.4 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding shift-jis } shiftjis -test http-2.5 {http::CharsetToEncoding} { +test http-2.5 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding windows-437 } cp437 -test http-2.6 {http::CharsetToEncoding} { +test http-2.6 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding latin5 } iso8859-9 -test http-2.7 {http::CharsetToEncoding} { +test http-2.7 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding latin1 } iso8859-1 -test http-2.8 {http::CharsetToEncoding} { +test http-2.8 {http::CharsetToEncoding} http2.9.7 { http::CharsetToEncoding latin4 } binary @@ -468,12 +470,14 @@ test http-3.33 {http::geturl application/xml is text} -body { } -cleanup { catch { http::cleanup $token } } -result {test 4660 /test} + + test http-3.34 {http::geturl -headers not a list} -returnCodes error -body { http::geturl http://test/t -headers \" -} -result {Bad value for -headers ("), must be list} +} -constraints http2.9.8 -result {Bad value for -headers ("), must be list} test http-3.35 {http::geturl -headers not even number of elements} -returnCodes error -body { http::geturl http://test/t -headers {List Length 3} -} -result {Bad value for -headers (List Length 3), number of list elements must be even} +} -constraints http2.9.8 -result {Bad value for -headers (List Length 3), number of list elements must be even} test http-4.1 {http::Event} -body { set token [http::geturl $url -keepalive 0] |