summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-11-18 21:04:32 (GMT)
committernijtmans <nijtmans>2009-11-18 21:04:32 (GMT)
commit76095248c12bff189c0c8c073ca52ed6e384b87c (patch)
treef4c5f88d4d1f326b8a7f94ab04b4bdb509039c40
parent993641779032d19e86c6ad4c7451a25acb940d19 (diff)
downloadtcl-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)
-rw-r--r--tests/http.test4
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