126 |
|
|
127 |
(deftest load.17 |
(deftest load.17 |
128 |
(let ((file #p"load-test-file.lsp")) |
(let ((file #p"load-test-file.lsp")) |
129 |
|
(fmakunbound 'load-file-test-fun.1) |
130 |
|
(fmakunbound 'load-file-test-fun.2) |
131 |
(values |
(values |
132 |
(notnot (load file)) |
(notnot (load file)) |
133 |
(let ((p1 (pathname (merge-pathnames file))) |
(let ((p1 (pathname (merge-pathnames file))) |
134 |
(p2 (load-file-test-fun.1))) |
(p2 (funcall 'load-file-test-fun.1))) |
135 |
(or (equalpt p1 p2) |
(or (equalpt p1 p2) |
136 |
(list p1 p2))) |
(list p1 p2))) |
137 |
(let ((p1 (truename file)) |
(let ((p1 (truename file)) |
138 |
(p2 (load-file-test-fun.2))) |
(p2 (funcall 'load-file-test-fun.2))) |
139 |
(or (equalpt p1 p2) |
(or (equalpt p1 p2) |
140 |
(list p1 p2))))) |
(list p1 p2))))) |
141 |
t t t) |
t t t) |
162 |
(list p1 p2))))) |
(list p1 p2))))) |
163 |
t t) |
t t) |
164 |
|
|
165 |
;;; Add logical pathname test |
(deftest load.19 |
166 |
|
(let ((file (logical-pathname "CLTEST:LDTEST.LSP")) |
167 |
|
(fn 'load-test-fun-3) |
168 |
|
(*package* (find-package "CL-TEST"))) |
169 |
|
(with-open-file |
170 |
|
(s file :direction :output :if-exists :supersede |
171 |
|
:if-does-not-exist :create) |
172 |
|
(format s "(in-package :cl-test) (defun ~a () :foo)" fn)) |
173 |
|
(fmakunbound fn) |
174 |
|
(values |
175 |
|
(notnot (load file)) |
176 |
|
(funcall fn))) |
177 |
|
t :foo) |
178 |
|
|
179 |
;;; Error tests |
;;; Error tests |
180 |
|
|