diff options
author | kjnash <k.j.nash@usa.net> | 2022-06-15 00:43:58 (GMT) |
---|---|---|
committer | kjnash <k.j.nash@usa.net> | 2022-06-15 00:43:58 (GMT) |
commit | cd11a370748a0056f5d6968020773382050d3d6e (patch) | |
tree | f60d82863c5534c5f3bf96c38f958bd722910cfe /tests/http.test | |
parent | 436e6b5e69fc7aa7c86c30ae0eb2c19d0560fd79 (diff) | |
download | tcl-cd11a370748a0056f5d6968020773382050d3d6e.zip tcl-cd11a370748a0056f5d6968020773382050d3d6e.tar.gz tcl-cd11a370748a0056f5d6968020773382050d3d6e.tar.bz2 |
Minor bugfixes to library/http/http.tcl and tests/http.test
Diffstat (limited to 'tests/http.test')
-rw-r--r-- | tests/http.test | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test index 40113dc..b0f5144 100644 --- a/tests/http.test +++ b/tests/http.test @@ -468,9 +468,12 @@ 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 dict} -returnCodes error -body { - http::geturl http://test/t -headers NoDict -} -result {Bad value for -headers (NoDict), must be dict} +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} +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} test http-4.1 {http::Event} -body { set token [http::geturl $url -keepalive 0] |