diff options
| author | nijtmans <nijtmans> | 2009-11-18 21:04:32 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-18 21:04:32 (GMT) |
| commit | 76095248c12bff189c0c8c073ca52ed6e384b87c (patch) | |
| tree | f4c5f88d4d1f326b8a7f94ab04b4bdb509039c40 /tests/http.test | |
| parent | 993641779032d19e86c6ad4c7451a25acb940d19 (diff) | |
| download | tcl-76095248c12bff189c0c8c073ca52ed6e384b87c.zip tcl-76095248c12bff189c0c8c073ca52ed6e384b87c.tar.gz tcl-76095248c12bff189c0c8c073ca52ed6e384b87c.tar.bz2 | |
Fix [Bug 2891171]: URL checking too strict when using multiple question marks (added test case)
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test index a62f1c1..d879e45 100644 --- a/tests/http.test +++ b/tests/http.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: http.test,v 1.54 2009/09/11 15:45:19 dkf Exp $ +# RCS: @(#) $Id: http.test,v 1.55 2009/11/18 21:04:32 nijtmans Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -342,7 +342,7 @@ test http-3.22 {http::geturl parse failures} -body { http::geturl http://somewhere/%path } -returnCodes error -result {Illegal encoding character usage "%pa" in URL path} test http-3.23 {http::geturl parse failures} -body { - http::geturl http://somewhere/path?{query} + http::geturl http://somewhere/path?{query}? } -returnCodes error -result {Illegal characters in URL path} test http-3.24 {http::geturl parse failures} -body { http::geturl http://somewhere/path?%query |