Changeset 15462

Timestamp:

10/29/20 16:55:06 (3 years ago)

Author:

Mark Evenson

Message:

Reflect current behavior in URI encoding tests

Location:

trunk/abcl/test/lisp/abcl

Files:

• pathname-tests.lisp (modified) (1 diff)
• url-pathname.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/pathname-tests.lisp

@@ -1680 +1680 @@
   t)
 
-(deftest pathname.uri-encoding.1
-    (signals-error
-     (let ((s "file:/path with /spaces"))
-       (equal s
-              (namestring (pathname s))))
-     'error)
-  t)
-
-(deftest pathname.uri-encoding.2
-    (string-equal "/path with/uri-escaped/?characters/"
-                  (namestring (pathname "file:/path%20with/uri-escaped/%3fcharacters/")))
-  t)
-
 (deftest pathname.load.1
     (let ((dir (merge-pathnames "dir+with+plus/"

trunk/abcl/test/lisp/abcl/url-pathname.lisp

@@ -43 +43 @@
   "query=this"  
   "that-fragment")
+
+(deftest url-pathname.file.1
+    (signals-error
+     (let ((s "file:///path with /spaces"))
+       (equal s
+              (namestring (pathname s))))
+     'error)
+  t)
+
+(deftest url-pathname.file.2
+    (let ((p "file:///path%20with/uri-escaped/%3fcharacters/"))
+      (pathname-directory p))
+  (:ABSOLUTE "path with" "uri-escaped" "?characters"))
+