Changeset 12617 for trunk/abcl/test/lisp/abcl/url-pathname.lisp

Timestamp:

04/15/10 14:54:55 (13 years ago)

Author:

Mark Evenson

Message:

Move pathname functions to EXT; implement DEFSETF for URL pathnames.

Implemented DEFSETF functions for HOST, AUTHORITY, QUERY, and FRAGMENT
sections of URL pathname.

Moved PATHNAME-JAR-P and PATHNAME-URL-P to EXT.

EXT::%INVALIDATE-NAMESTRING resets the namestring after changing the
internal structure. Having to monkey around with the internal
structure of Pathname is just wrong: we should implement the get/set
accessor pattern in Java even though it would make the code more
verbose.

File:

• trunk/abcl/test/lisp/abcl/url-pathname.lisp (modified) (1 diff)

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

@@ -30 +30 @@
   "query=this"  
   "that-fragment")
+
+(deftest url-pathname.3
+    (let* ((p (pathname
+               "http://example.org/a/b/foo.lisp?query=this#that-fragment")))
+      (values 
+       (ext:url-pathname-scheme p)
+       (ext:url-pathname-authority p)
+       (ext:url-pathname-query p)
+       (ext:url-pathname-fragment p)))
+  "http"
+  "example.org"
+  "query=this"  
+  "that-fragment")