Minor changes to http tests.

2 files changed, 5 insertions, 2 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.
diff --git a/tests/httpProxy.test b/tests/httpProxy.test
index 2d0bea2..42ad574 100644
--- a/tests/httpProxy.test
+++ b/tests/httpProxy.test
@@ -444,7 +444,7 @@ test httpProxy-5.6 {https with-proxy ipv6 with-auth bad-creds-provided} -constra
 }
 
 # cleanup
-unset -nocomplain n4host n6host n4port n6port a4host a6host a4port a6port
+unset -nocomplain n4host n6host n4port n6port a4host a6host a4port a6port aliceCreds badCreds
 
 rename bgerror {}