143 |
;; Need to add a LPN test |
;; Need to add a LPN test |
144 |
|
|
145 |
(deftest ensure-directories-exist.error.1 |
(deftest ensure-directories-exist.error.1 |
146 |
(signals-error |
(signals-error-always |
147 |
(ensure-directories-exist |
(ensure-directories-exist |
148 |
(make-pathname :directory '(:relative :wild) |
(make-pathname :directory '(:relative :wild) |
149 |
:defaults *default-pathname-defaults*)) |
:defaults *default-pathname-defaults*)) |
150 |
file-error) |
file-error) |
151 |
t) |
t t) |
152 |
|
|
153 |
(deftest ensure-directories-exist.error.2 |
(deftest ensure-directories-exist.error.2 |
154 |
(signals-error (ensure-directories-exist) program-error) |
(signals-error (ensure-directories-exist) program-error) |