diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2009-04-10 14:19:44 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-04-10 14:19:44 (GMT) |
| commit | 7f03bcedc4828e74d510884c108c632aaae9fed2 (patch) | |
| tree | 3f82c7678e9f194509fbad9a23bd977dc7a5245c /tests/http.test | |
| parent | eec238cfa6822ad7a80ba6e1678b59e8b01863e6 (diff) | |
| download | tcl-7f03bcedc4828e74d510884c108c632aaae9fed2.zip tcl-7f03bcedc4828e74d510884c108c632aaae9fed2.tar.gz tcl-7f03bcedc4828e74d510884c108c632aaae9fed2.tar.bz2 | |
Improved HTTP/1.1 support and added specific HTTP/1.1 testing.
This patch makes use of the 8.6 zlib support to provide for
deflate and gzip support and handles the -channel option with
compression and chunked transfer encoding. For the -handler
option we currently disable HTTP/1.1 features as we cannot
properly pass the data through to the caller.
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test index c4006f9..7fac104 100644 --- a/tests/http.test +++ b/tests/http.test @@ -12,7 +12,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # -# RCS: @(#) $Id: http.test,v 1.50 2009/04/10 09:37:52 patthoyts Exp $ +# RCS: @(#) $Id: http.test,v 1.51 2009/04/10 14:19:45 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -83,8 +83,9 @@ if {[info commands testthread] == "testthread" && [file exists $httpdFile]} { } test http-1.1 {http::config} { + http::config -useragent UserAgent http::config -} [list -accept */* -proxyfilter http::ProxyRequired -proxyhost {} -proxyport {} -urlencoding utf-8 -useragent "Tcl http client package $version"] +} [list -accept */* -proxyfilter http::ProxyRequired -proxyhost {} -proxyport {} -urlencoding utf-8 -useragent "UserAgent"] test http-1.2 {http::config} { http::config -proxyfilter } http::ProxyRequired |