summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-05-21 22:31:01 (GMT)
committerhobbs <hobbs>2001-05-21 22:31:01 (GMT)
commitba80e7cb63de2c073b18147f4482c208439925f9 (patch)
tree27e80d0ad147b35bc6242ca15c786b01ebc0cfdc
parent2097e7712c69bf74cbcbf12d2bdbc05701d42390 (diff)
downloadtcl-ba80e7cb63de2c073b18147f4482c208439925f9.zip
tcl-ba80e7cb63de2c073b18147f4482c208439925f9.tar.gz
tcl-ba80e7cb63de2c073b18147f4482c208439925f9.tar.bz2
* tests/httpd (httpdRespond): added response to timeout value in
query string.
-rw-r--r--tests/httpd3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/httpd b/tests/httpd
index e5fa282..fa553d6 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -183,6 +183,9 @@ 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 {$key == "timeout"} {
+ after $value ;# pause
+ }
}
append html </dl>\n
}