From 5524c034fdd4894a33b5a41012168be0e9d55a79 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Wed, 7 Sep 2016 20:29:38 -0700 Subject: [PATCH] Add test for issue #30. --- tests/issues.lisp | 10 ++++++++++ tests/resources/issue-30.lisp | 4 ++++ 2 files changed, 14 insertions(+) create mode 100644 tests/resources/issue-30.lisp diff --git a/tests/issues.lisp b/tests/issues.lisp index b02fc1266..40a2a96f6 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -298,3 +298,13 @@ (assert-eql (length in-string) (length 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)))) diff --git a/tests/resources/issue-30.lisp b/tests/resources/issue-30.lisp new file mode 100644 index 000000000..d92429579 --- /dev/null +++ b/tests/resources/issue-30.lisp @@ -0,0 +1,4 @@ +(defun foo () + (print "Hello world")) + +(describe 'foo) -- GitLab