diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-03 20:32:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-03 20:32:29 (GMT) |
commit | 09dedf803bc15cd4cf3822bc5c76e5db56052cb2 (patch) | |
tree | 0fce00daf6dc96f3d2cee1139f2c3309188e3ea4 | |
parent | 87ef98228645c237bd89200f404908d00e597c97 (diff) | |
download | tcl-09dedf803bc15cd4cf3822bc5c76e5db56052cb2.zip tcl-09dedf803bc15cd4cf3822bc5c76e5db56052cb2.tar.gz tcl-09dedf803bc15cd4cf3822bc5c76e5db56052cb2.tar.bz2 |
Increase some timeout's a little, hoping this reduces the chance on Travis test-failures
-rw-r--r-- | tests/http.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/http.test b/tests/http.test index 242dceb..73fe10c 100644 --- a/tests/http.test +++ b/tests/http.test @@ -190,7 +190,7 @@ test http-3.7 {http::geturl} -body { <h2>GET $tail</h2> </body></html>" test http-3.8 {http::geturl} -body { - set token [http::geturl $url -query Name=Value&Foo=Bar -timeout 2000] + set token [http::geturl $url -query Name=Value&Foo=Bar -timeout 3000] http::data $token } -cleanup { http::cleanup $token @@ -356,7 +356,7 @@ test http-3.24 {http::geturl parse failures} -body { test http-3.25 {http::meta} -setup { unset -nocomplain m token } -body { - set token [http::geturl $url -timeout 2000] + set token [http::geturl $url -timeout 3000] array set m [http::meta $token] lsort [array names m] } -cleanup { @@ -366,7 +366,7 @@ test http-3.25 {http::meta} -setup { test http-3.26 {http::meta} -setup { unset -nocomplain m token } -body { - set token [http::geturl $url -headers {X-Check 1} -timeout 2000] + set token [http::geturl $url -headers {X-Check 1} -timeout 3000] array set m [http::meta $token] lsort [array names m] } -cleanup { @@ -592,7 +592,7 @@ test http-4.14 {http::Event} -body { test http-4.15 {http::Event} -body { # This test may fail if you use a proxy server. That is to be # expected and is not a problem with Tcl. - set token [http::geturl //not_a_host.tcl.tk -timeout 1000 -command \#] + set token [http::geturl //not_a_host.tcl.tk -timeout 3000 -command \#] http::wait $token http::status $token # error codes vary among platforms. |