Commit 8a061230 authored by Vladimir Sedach's avatar Vladimir Sedach

Changed list of unreserved characters for URI encoding to conform to RFC 3986...

Changed list of unreserved characters for URI encoding to conform to RFC 3986 (all reserved characters are percent-encoded in all cases).
parent 02237934
......@@ -21,7 +21,7 @@
(assert (string= #Uhttp://www.foo.com/bar/{bar}{baz}
"http://www.foo.com/bar/bar1"))
(assert (string= #Uhttp://www.foo.com/bar?foo={"^BAZ !bar"}
"http://www.foo.com/bar?foo=%5EBAZ%20!bar"))))
"http://www.foo.com/bar?foo=%5EBAZ%20%21bar"))))
(defun run-destructuring-tests ()
(assert (equal (uri-template-bind (#Uhttp://www.factory.com/orders/{part}/{number})
......
......@@ -12,7 +12,7 @@ True by default.")
do (if (or (<= 48 c 57)
(<= 65 c 90)
(<= 97 c 122)
(find c '(36 45 95 46 33 42 39 40 41)))
(find c '(45 95 46 126)))
(write-char (code-char c) s)
(format s "%~2,'0x" c)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment