Commit c3f038f1 authored by pfdietz's avatar pfdietz
Browse files

Add a documentation test

parent eb6c36e6
......@@ -73,6 +73,15 @@
(defun-test-fun-5)))
2 1)
;; Documentation
(deftest defun.8
(let* ((sym (gensym))
(doc "DEFUN.8")
(form `(defun ,sym () ,doc nil)))
(or (documentation sym 'function) doc))
"DEFUN.8")
;;; Error tests
(deftest defun.error.1
......
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