159 |
(equalpt (truename file) (funcall 'compile-file-test-fun.5)) |
(equalpt (truename file) (funcall 'compile-file-test-fun.5)) |
160 |
(equalpt (pathname (merge-pathnames file)) |
(equalpt (pathname (merge-pathnames file)) |
161 |
(funcall 'compile-file-test-fun.5a)))) |
(funcall 'compile-file-test-fun.5a)))) |
162 |
t t) |
t t) |
163 |
|
|
164 |
|
;;; Add tests of logical pathnames |
165 |
|
|
166 |
|
(deftest compile-file.17 |
167 |
|
(let ((file (logical-pathname "CLTEST:COMPILE-FILE-TEST-LP.LSP"))) |
168 |
|
(with-open-file |
169 |
|
(s file :direction :output :if-exists :supersede :if-does-not-exist :create) |
170 |
|
(format s "(in-package :cl-test)~%(defun compile-file-test-lp.fun () nil)~%")) |
171 |
|
(compile-file-test file 'compile-file-test-lp.fun)) |
172 |
|
t nil) |
173 |
|
|
174 |
|
(deftest compile-file.18 |
175 |
|
(let ((file (logical-pathname "CLTEST:COMPILE-FILE-TEST-LP.OUT"))) |
176 |
|
(with-open-file |
177 |
|
(s file :direction :output :if-exists :supersede :if-does-not-exist :create)) |
178 |
|
(compile-file-test "compile-file-test-file.lsp" |
179 |
|
'compile-file-test-fun.1 |
180 |
|
:output-file file)) |
181 |
|
t nil) |
182 |
|
|
183 |
|
|
184 |
|
|
185 |
|
|
186 |
|
(deftest compile-file-pathname.1 |
187 |
|
*compile-file-pathname* |
188 |
|
nil) |
189 |
|
|
190 |
|
(deftest compile-file-truename.1 |
191 |
|
*compile-file-truename* |
192 |
|
nil) |
193 |
|
|
194 |
;;; Error cases |
;;; Error cases |
195 |
|
|