Changeset 12616


Ignore:
Timestamp:
04/15/10 14:54:08 (13 years ago)
Author:
Mark Evenson
Message:

All URL/JAR tests now passing.

Location:
trunk/abcl/test/lisp/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/jar-pathname.lisp

    r12610 r12616  
    279279           (d (first (pathname-device p))))
    280280      (values
    281        (pathname-url-p d)
     281       (system:pathname-url-p d)
    282282       (namestring d)
    283283       (pathname-directory p) (pathname-name p) (pathname-type p)))
     
    292292           (d1 (second d)))
    293293      (values
    294        (pathname-url-p d0)
     294       (system:pathname-url-p d0)
    295295       (namestring d0)
    296296       (pathname-name d1) (pathname-type d1)
  • trunk/abcl/test/lisp/abcl/url-pathname.lisp

    r12610 r12616  
    22
    33;; URL Pathname tests
    4 (deftest pathname-url.1
     4(deftest url-pathname.1
    55    (let* ((p #p"http://example.org/a/b/foo.lisp")
    66           (host (pathname-host p)))
     
    1212            (equal (getf host :authority)
    1313                   "example.org"))))
    14   (t t))
     14  t t)
    1515
    16 (deftest pathname-url.2
    17     (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"))
    1818           (host (pathname-host p)))
    1919      (values
    2020       (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.