projects
/
puri.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10883: update policy
[puri.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index a8a1b6c3d25e25d414fe25a2750b027409fe4f18..e401470fb015e000f3a75eae2ae2981a8b2a2ed7 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-20,7
+20,7
@@
;; Original version from ACL 6.1:
;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer
;;
;; Original version from ACL 6.1:
;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer
;;
-;; $Id
: tests.lisp,v 1.5 2003/07/20 18:51:48 kevin Exp
$
+;; $Id$
(defpackage #:puri-tests (:use #:puri #:cl #:ptester))
(defpackage #:puri-tests (:use #:puri #:cl #:ptester))
@@
-40,7
+40,10
@@
("g/" "http://a/b/c/g/" ,base-uri)
("/g" "http://a/g" ,base-uri)
("//g" "http://g" ,base-uri)
("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)
("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 "%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)
(push `(test "&" (format nil "~a" (parse-uri "%26"))
:test 'string=)
res)