Commit 37f3a5da authored by pfdietz's avatar pfdietz
Browse files

General errors tests for MAKE-LOAD-FORM.

parent 91a5ac27
......@@ -154,4 +154,16 @@
(nil t t)
((a b c) a))
;;; Additional tests will be in the files testing file compilation
;;; Other error tests
(deftest make-load-form.error.1
(classify-error (make-load-form))
program-error)
(deftest make-load-form.error.2
(classify-error
(let ((obj (make-instance 'make-load-form-class-04 :b '(a b c) :c 'a)))
(make-load-form obj nil nil)))
program-error)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment