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

Add test for issue #30.

parent 53fe0a4f
No related branches found
No related tags found
No related merge requests found
...@@ -298,3 +298,13 @@ ...@@ -298,3 +298,13 @@
(assert-eql (length in-string) (length out-string)) (assert-eql (length in-string) (length out-string))
(assert-equal in-string out-string))))) (assert-equal in-string out-string)))))
(define-test issue.30
(:tag :issues)
(let* ((test-file #p"resources/issue-30.lisp")
(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))))
(defun foo ()
(print "Hello world"))
(describe 'foo)
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