|
Last change
on this file since 12610 was
12610,
checked in by Mark Evenson, 13 years ago
|
|
Separate jar and URL pathname tests into distinct files.
|
|
File size:
979 bytes
|
| Line | |
|---|
| 1 | (in-package #:abcl.test.lisp) |
|---|
| 2 | |
|---|
| 3 | ;; URL Pathname tests |
|---|
| 4 | (deftest pathname-url.1 |
|---|
| 5 | (let* ((p #p"http://example.org/a/b/foo.lisp") |
|---|
| 6 | (host (pathname-host p))) |
|---|
| 7 | (values |
|---|
| 8 | (check-physical-pathname p '(:absolute "a" "b") "foo" "lisp") |
|---|
| 9 | (and (consp host) |
|---|
| 10 | (equal (getf host :scheme) |
|---|
| 11 | "http") |
|---|
| 12 | (equal (getf host :authority) |
|---|
| 13 | "example.org")))) |
|---|
| 14 | (t t)) |
|---|
| 15 | |
|---|
| 16 | (deftest pathname-url.2 |
|---|
| 17 | (let* ((p #p"http://example.org/a/b/foo.lisp?query=this#that-fragment") |
|---|
| 18 | (host (pathname-host p))) |
|---|
| 19 | (values |
|---|
| 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)) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
