Fixed timeout-related HTTP test

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}