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

Add test for issue #24.

parent 48d1f01f
No related branches found
No related tags found
No related merge requests found
...@@ -310,3 +310,8 @@ ...@@ -310,3 +310,8 @@
(assert-true (pathnamep fasl-file)) (assert-true (pathnamep fasl-file))
(assert-equalp (list fasl-file nil nil) (assert-equalp (list fasl-file nil nil)
(multiple-value-list (compile-file test-file :load t))))) (multiple-value-list (compile-file test-file :load t)))))
(define-test issue.24
(:tag :issues)
(let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*)))
(assert-true (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