summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/http.test12
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test
index 2403c33..c4ddbf8 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -11,7 +11,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#
-# RCS: @(#) $Id: http.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
+# RCS: @(#) $Id: http.test,v 1.3 1998/11/03 02:00:54 welch Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
@@ -145,6 +145,14 @@ proc httpdRespond { sock } {
append html "<h2>Query</h2>\n<dl>\n"
foreach {key value} [split $data(query) &=] {
append html "<dt>$key<dd>$value\n"
+ if {[string compare $key timeout] == 0} {
+ # Simulate a timeout by not responding,
+ # but clean up our socket later.
+
+ after 50 [list httpdSockDone $sock]
+ httpd_log $sock Noresponse ""
+ return
+ }
}
append html </dl>\n
}
@@ -375,7 +383,7 @@ test http-4.11 {http::Event} {
http::status $token
} {reset}
test http-4.12 {http::Event} {
- set token [http::geturl $url -timeout 1 -command {#}]
+ set token [http::geturl $url?timeout=10 -timeout 1 -command {#}]
http::wait $token
http::status $token
} {timeout}