Ticket [0063cbcada]: check http::geturl -headers parameter to be a dict.

1 files changed, 6 insertions, 0 deletions

diff --git a/tests/http.test b/tests/http.test
index 636a651..bd776c6 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -448,6 +448,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 list}
+test http-3.2 {http::geturl} -returnCodes error -body {
+    http::geturl http:junk
+} -result {Unsupported URL: http:junk}
 
 test http-4.1 {http::Event} -body {
     set token [http::geturl $url -keepalive 0]