49 |
(not (pathname-match-p pn1 pn2)))) |
(not (pathname-match-p pn1 pn2)))) |
50 |
nil) |
nil) |
51 |
|
|
52 |
|
;;; Specialized string tests |
53 |
|
|
54 |
|
(deftest pathname-match-p.7 |
55 |
|
(let ((wpn (parse-namestring "CLTEST:*.LSP"))) |
56 |
|
(assert (wild-pathname-p wpn)) |
57 |
|
(do-special-strings |
58 |
|
(s "CLTEST:FOO.LSP" nil) |
59 |
|
(assert (pathname-match-p s wpn)))) |
60 |
|
nil) |
61 |
|
|
62 |
|
(deftest pathname-match-p.8 |
63 |
|
(do-special-strings |
64 |
|
(s "CLTEST:*.LSP" nil) |
65 |
|
(assert (pathname-match-p "CLTEST:FOO.LSP" s))) |
66 |
|
nil) |
67 |
|
|
68 |
|
|
69 |
;;; Add more tests here |
;;; Add more tests here |
70 |
|
|
71 |
;;; Here are error tests |
;;; Here are error tests |