diff options
author | kjnash <k.j.nash@usa.net> | 2022-10-26 11:28:29 (GMT) |
---|---|---|
committer | kjnash <k.j.nash@usa.net> | 2022-10-26 11:28:29 (GMT) |
commit | 2ecf92f50b4fad000f8cf4b368ce47c6035bdf4c (patch) | |
tree | 2192cb150867343ff7984c767199c2d2cd9bd1b5 /tests/http.test | |
parent | ba62d5de6e8d0818da84501ef2dd6cd9a635b27b (diff) | |
download | tcl-2ecf92f50b4fad000f8cf4b368ce47c6035bdf4c.zip tcl-2ecf92f50b4fad000f8cf4b368ce47c6035bdf4c.tar.gz tcl-2ecf92f50b4fad000f8cf4b368ce47c6035bdf4c.tar.bz2 |
Minor changes to http tests.
Diffstat (limited to 'tests/http.test')
-rw-r--r-- | tests/http.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test index 18850d9..6826448 100644 --- a/tests/http.test +++ b/tests/http.test @@ -631,7 +631,10 @@ 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 3000 -command \#] + # With http::config -threadlevel 1 or 2, the script enters the event loop + # during the DNS lookup, and has the opportunity to time out. + # Increase -timeout from 3000 to 10000 to prevent this. + set token [http::geturl //not_a_host.tcl.tk -timeout 10000 -command \#] http::wait $token set result "[http::status $token] -- [lindex [http::error $token] 0]" # error codes vary among platforms. |