diff options
| author | hobbs <hobbs> | 2005-10-05 05:01:37 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-10-05 05:01:37 (GMT) |
| commit | 9f6bbd3b79f74a8449023467afca0207c7621dad (patch) | |
| tree | 29c75199c236489f27110732b2078142188520c8 /tests/http.test | |
| parent | ac08c2624bd5c89d68f61d6899b692051cf75fb1 (diff) | |
| download | tcl-9f6bbd3b79f74a8449023467afca0207c7621dad.zip tcl-9f6bbd3b79f74a8449023467afca0207c7621dad.tar.gz tcl-9f6bbd3b79f74a8449023467afca0207c7621dad.tar.bz2 | |
* tests/http.test: do not URI encode -._~ according
* library/http/http.tcl (init): to RFC3986. [Bug 1182373] (aho)
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test index 942c9a5..b0020e7 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.33.2.2 2004/05/25 22:50:47 hobbs Exp $ +# RCS: @(#) $Id: http.test,v 1.33.2.3 2005/10/05 05:01:37 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -483,7 +483,7 @@ test http-5.3 {http::formatQuery} { test http-5.4 {http::formatQuery} { http::formatQuery name1 ~bwelch name2 \xa1\xa2\xa2 -} {name1=%7ebwelch&name2=%c2%a1%c2%a2%c2%a2} +} {name1=~bwelch&name2=%c2%a1%c2%a2%c2%a2} test http-5.5 {http::formatQuery} { set enc [http::config -urlencoding] @@ -491,7 +491,7 @@ test http-5.5 {http::formatQuery} { set res [http::formatQuery name1 ~bwelch name2 \xa1\xa2\xa2] http::config -urlencoding $enc set res -} {name1=%7ebwelch&name2=%a1%a2%a2} +} {name1=~bwelch&name2=%a1%a2%a2} test http-6.1 {http::ProxyRequired} { http::config -proxyhost [info hostname] -proxyport $port |