X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=e401470fb015e000f3a75eae2ae2981a8b2a2ed7;hb=296f1e6510731c33d6d1f545dfc27dfdc189ff37;hp=a8a1b6c3d25e25d414fe25a2750b027409fe4f18;hpb=ccfeb8799cab1bba23f41ab1e18bd6d1700ab731;p=puri.git

diff --git a/tests.lisp b/tests.lisp
index a8a1b6c..e401470 100644
--- 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
 ;;
-;; $Id: tests.lisp,v 1.5 2003/07/20 18:51:48 kevin Exp $
+;; $Id$
 
 
 (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) 
-		 ("?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)