diff options
| author | stanton <stanton> | 1998-11-11 04:08:12 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-11-11 04:08:12 (GMT) |
| commit | 131c68d85079ca5a553b28fef489cf29b79f1176 (patch) | |
| tree | 7e89676f31bb688b2686f508446e3282e7148a05 /tests/httpold.test | |
| parent | 0a41c61107c36da0a8e4ca0fc259149e3bc1956d (diff) | |
| download | tcl-131c68d85079ca5a553b28fef489cf29b79f1176.zip tcl-131c68d85079ca5a553b28fef489cf29b79f1176.tar.gz tcl-131c68d85079ca5a553b28fef489cf29b79f1176.tar.bz2 | |
merged 8.0.4 into 8.1
Diffstat (limited to 'tests/httpold.test')
| -rw-r--r-- | tests/httpold.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/httpold.test b/tests/httpold.test index 3873639..138574a 100644 --- a/tests/httpold.test +++ b/tests/httpold.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: httpold.test,v 1.1.2.1 1998/09/24 23:59:25 stanton Exp $ +# RCS: @(#) $Id: httpold.test,v 1.1.2.2 1998/11/11 04:08:28 stanton 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 } |