6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest pathnamep.1 |
(deftest pathnamep.1 |
9 |
(loop for x in *universe* |
(check-type-predicate #'pathnamep 'pathname) |
|
unless (if (pathnamep x) (typep x 'pathname) |
|
|
(not (typep x 'pathname))) |
|
|
collect x) |
|
10 |
nil) |
nil) |
11 |
|
|
12 |
(deftest pathnamep.2 |
(deftest pathnamep.2 |
13 |
(loop for x in *universe* |
(check-predicate #'(lambda (x) (eql (length (multiple-value-list (pathnamep x))) 1))) |
14 |
always (eql (length (multiple-value-list (pathnamep x))) 1)) |
nil) |
|
t) |
|
15 |
|
|
16 |
(deftest pathnamep.3 |
(deftest pathnamep.3 |
17 |
(loop for x in *universe* |
(check-predicate (typef '(not logical-pathname)) #'pathnamep) |
18 |
always (or (not (typep x 'logical-pathname)) |
nil) |
|
(pathnamep x))) |
|
|
t) |
|
19 |
|
|
20 |
(deftest pathnamep.error.1 |
(deftest pathnamep.error.1 |
21 |
(signals-error (pathnamep) program-error) |
(signals-error (pathnamep) program-error) |