36 |
(deftest pathname-match-p.5 |
(deftest pathname-match-p.5 |
37 |
(let ((pn1 (make-pathname :directory '(:relative :wild))) |
(let ((pn1 (make-pathname :directory '(:relative :wild))) |
38 |
(pn2 (make-pathname :directory nil))) |
(pn2 (make-pathname :directory nil))) |
39 |
(pathname-match-p pn1 pn2)) |
(and (wild-pathname-p pn1) |
40 |
|
(not (pathname-directory pn2)) |
41 |
|
(not (pathname-match-p pn1 pn2)))) |
42 |
nil) |
nil) |
43 |
|
|
44 |
(deftest pathname-match-p.6 |
(deftest pathname-match-p.6 |
45 |
(let ((pn1 (make-pathname :version :wild)) |
(let ((pn1 (make-pathname :version :wild)) |
46 |
(pn2 (make-pathname))) |
(pn2 (make-pathname))) |
47 |
(and (wild-pathname-p pn1) |
(and (wild-pathname-p pn1) |
48 |
(not (wild-pathname-p pn2)) |
(not (pathname-version pn2)) |
49 |
(pathname-match-p pn1 pn2))) |
(not (pathname-match-p pn1 pn2)))) |
50 |
nil) |
nil) |
51 |
|
|
52 |
;;; Here are error tests |
;;; Here are error tests |