diff options
| author | kjnash <k.j.nash@usa.net> | 2018-03-27 08:49:13 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2018-03-27 08:49:13 (GMT) |
| commit | f35c0dc2edcc96ff38d150cd621cea7b771c9a4c (patch) | |
| tree | 7b9f9e958d09c200aef2cb16e54d0ead54dafe4c /tests/http11.test | |
| parent | e80e2146736e8176a0364b03fd8ad0fefe92e8d6 (diff) | |
| download | tcl-f35c0dc2edcc96ff38d150cd621cea7b771c9a4c.zip tcl-f35c0dc2edcc96ff38d150cd621cea7b771c9a4c.tar.gz tcl-f35c0dc2edcc96ff38d150cd621cea7b771c9a4c.tar.bz2 | |
Revise tests/http11.test for use with commits from 78b23edb6b onwards. Adjust proc "handler" to conform to http(n)
Diffstat (limited to 'tests/http11.test')
| -rw-r--r-- | tests/http11.test | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tests/http11.test b/tests/http11.test index c9ded0b..8483aa3 100644 --- a/tests/http11.test +++ b/tests/http11.test @@ -515,10 +515,7 @@ proc handler {var sock token} { set chunk [read $sock] append data $chunk #::http::Log "handler read [string length $chunk] ([chan configure $sock -buffersize])" - if {[eof $sock]} { - #::http::Log "handler eof $sock" - chan event $sock readable {} - } + return [string length $chunk] } test http11-3.0 "-handler,close,identity" -setup { |