OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r10882: fix delimited-to-string and parse-uri to correspond to franz' code

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2006-01-27 03:18:00 +00:00
parent ec30187f4b
commit 296f1e6510
4 changed files with 76 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests.lisp
View File

@ -40,7 +40,10 @@
("g/" "http://a/b/c/g/" ,base-uri)
("/g" "http://a/g" ,base-uri)
("//g" "http://g" ,base-uri)
("?y" "http://a/b/c/?y" ,base-uri)
;; Following was changed from appendix C of RFC 2396
;; http://www.apache.org/~fielding/uri/rev-2002/issues.html#003-relative-query
#-ignore ("?y" "http://a/b/c/d;p?y" ,base-uri)
#+ignore ("?y" "http://a/b/c/?y" ,base-uri)
("g?y" "http://a/b/c/g?y" ,base-uri)
("#s" "http://a/b/c/d;p?q#s" ,base-uri)
("g#s" "http://a/b/c/g#s" ,base-uri)
@ -180,6 +183,9 @@
(push `(test "%20" (format nil "~a" (parse-uri "%20"))
:test 'string=)
res)
(push `(test "%FF" (format nil "~a" (parse-uri "%FF"))
:test 'string=)
res) ;Value 255 outside reserved-chars vector (128 bits)
(push `(test "&" (format nil "~a" (parse-uri "%26"))
:test 'string=)
res)