Skip to content
Snippets Groups Projects
Commit c3f038f1 authored by pfdietz's avatar pfdietz
Browse files

Add a documentation test

parent eb6c36e6
No related branches found
No related tags found
No related merge requests found
...@@ -73,6 +73,15 @@ ...@@ -73,6 +73,15 @@
(defun-test-fun-5))) (defun-test-fun-5)))
2 1) 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 ;;; Error tests
(deftest defun.error.1 (deftest defun.error.1
......
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