diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp new file mode 100644 index 0000000000000000000000000000000000000000..cefb1b1fb2eff6adc6bae08325562af033e9a741 --- /dev/null +++ b/ansi-tests/documentation.lsp @@ -0,0 +1,47 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Dec 14 07:30:01 2004 +;;;; Contains: Tests of DOCUMENTATION + +(in-package :cl-test) + +(deftest documentation.1 + (let* ((sym (gensym))) + (eval `(defun ,sym () nil)) + (documentation (symbol-function sym) t)) + nil) + +(deftest documentation.2 + (let* ((sym (gensym))) + (eval `(defun ,sym () nil)) + (let ((fn (symbol-function sym)) + (doc "FOO")) + (multiple-value-prog1 + (setf (documentation fn t) "FOO") + (assert (or (null (documentation fn t)) + (equal doc (documentation fn t))))))) + "FOO") + +(deftest documentation.3 + (let* ((sym (gensym))) + (eval `(defun ,sym () nil)) + (documentation (symbol-function sym) 'function)) + nil) + +(deftest documentation.4 + (let* ((sym (gensym))) + (eval `(defun ,sym () nil)) + (let ((fn (symbol-function sym)) + (doc "FOO")) + (multiple-value-prog1 + (setf (documentation fn 'function) "FOO") + (assert (or (null (documentation fn 'function)) + (equal doc (documentation fn 'function))))))) + "FOO") + + + + + + +