Changeset 12616
- Timestamp:
- 04/15/10 14:54:08 (13 years ago)
- Location:
- trunk/abcl/test/lisp/abcl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/jar-pathname.lisp
r12610 r12616 279 279 (d (first (pathname-device p)))) 280 280 (values 281 ( pathname-url-p d)281 (system:pathname-url-p d) 282 282 (namestring d) 283 283 (pathname-directory p) (pathname-name p) (pathname-type p))) … … 292 292 (d1 (second d))) 293 293 (values 294 ( pathname-url-p d0)294 (system:pathname-url-p d0) 295 295 (namestring d0) 296 296 (pathname-name d1) (pathname-type d1) -
trunk/abcl/test/lisp/abcl/url-pathname.lisp
r12610 r12616 2 2 3 3 ;; URL Pathname tests 4 (deftest pathname-url.14 (deftest url-pathname.1 5 5 (let* ((p #p"http://example.org/a/b/foo.lisp") 6 6 (host (pathname-host p))) … … 12 12 (equal (getf host :authority) 13 13 "example.org")))) 14 (t t))14 t t) 15 15 16 (deftest pathname-url.217 (let* ((p #p"http://example.org/a/b/foo.lisp?query=this#that-fragment")16 (deftest url-pathname.2 17 (let* ((p (pathname "http://example.org/a/b/foo.lisp?query=this#that-fragment")) 18 18 (host (pathname-host p))) 19 19 (values 20 20 (check-physical-pathname p '(:absolute "a" "b") "foo" "lisp") 21 (and (consp host) 22 (equal (getf host :scheme) 23 "http") 24 (equal (getf host :authority) 25 "example.org") 26 (equal (getf host :query) 27 "query=this") 28 (equal (getf host :fragment) 29 "that-fragment")))) 30 (t t)) 21 (consp host) 22 (getf host :scheme) 23 (getf host :authority) 24 (getf host :query) 25 (getf host :fragment))) 26 t 27 t 28 "http" 29 "example.org" 30 "query=this" 31 "that-fragment")
Note: See TracChangeset
for help on using the changeset viewer.