52 |
(do-special-strings (s "" nil) (pathname-host s)) |
(do-special-strings (s "" nil) (pathname-host s)) |
53 |
nil) |
nil) |
54 |
|
|
55 |
|
;;; pathname-host returns a valid pathname host, which is defined to be either |
56 |
|
;;; a string, a list of strings, or the symbol :unspecific |
57 |
|
|
58 |
|
(deftest pathname-host.9 |
59 |
|
(loop for p in *pathnames* |
60 |
|
for host = (pathname-host p) |
61 |
|
unless (or (stringp host) |
62 |
|
(and (listp host) (every #'stringp host)) |
63 |
|
(eql host :unspecific)) |
64 |
|
collect (list p host)) |
65 |
|
nil) |
66 |
|
|
67 |
|
;;; Error cases |
68 |
|
|
69 |
(deftest pathname-host.error.1 |
(deftest pathname-host.error.1 |
70 |
(signals-error (pathname-host) program-error) |
(signals-error (pathname-host) program-error) |
71 |
t) |
t) |