106 |
verbosity)) |
verbosity)) |
107 |
2 t nil "") |
2 t nil "") |
108 |
|
|
|
|
|
109 |
;;; Case where directory shouldn't exist |
;;; Case where directory shouldn't exist |
110 |
|
|
111 |
;; The directort ansi-tests/scratch must not exist before this |
;; The directort ansi-tests/scratch must not exist before this |
138 |
))) |
))) |
139 |
2 t t t "") |
2 t t t "") |
140 |
|
|
141 |
|
;;; Specialized string tests |
142 |
|
|
143 |
|
(deftest ensure-directories-exist.9 |
144 |
|
(do-special-strings |
145 |
|
(str "ensure-directories-exist.lsp" nil) |
146 |
|
(let* ((results (multiple-value-list (ensure-directories-exist str)))) |
147 |
|
(assert (eql (length results) 2)) |
148 |
|
(assert (equalt (truename (first results)) (truename str))) |
149 |
|
(assert (null (second results))))) |
150 |
|
nil) |
151 |
|
|
152 |
;; FIXME |
;; FIXME |
153 |
;; Need to add a LPN test |
;; Need to add a LPN test |
154 |
|
|