Skip to content
Snippets Groups Projects
Commit 6714a3a1 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix mistake in test.

parent 5524c034
No related branches found
No related tags found
No related merge requests found
......@@ -302,9 +302,11 @@
(define-test issue.30
(:tag :issues)
(let* ((test-file #p"resources/issue-30.lisp")
(let* ((test-file #.(merge-pathnames #p"resources/issue-30.lisp" cl:*load-pathname*))
(fasl-file (compile-file-pathname test-file)))
;; Compiling and loading the test file should succeed without
;; errors.
(assert-equal (list fasl-file nil nil)
(compile-file test-file :load t))))
(assert-true (pathnamep test-file))
(assert-true (pathnamep fasl-file))
(assert-equalp (list fasl-file nil nil)
(multiple-value-list (compile-file test-file :load t)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment