From: ueno <ueno>
Date: Thu, 9 Nov 2000 14:14:35 +0000 (+0000)
Subject: Add docstring.
X-Git-Tag: deisui-1_14_0-2000-12-14~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=551a5ac2b5af167a4cd351017e4c68516991a72e;p=elisp%2Fflim.git

Add docstring.
---

diff --git a/lunit.el b/lunit.el
index fc0abbf..6cf93dd 100644
--- a/lunit.el
+++ b/lunit.el
@@ -222,7 +222,8 @@ NAME is name of the method to be tested."
   (luna-define-internal-accessors 'lunit-test-suite))
 
 (defun lunit-make-test-suite (&rest tests)
-  "Return a newly allocated `lunit-test-suite' instance."
+  "Return a newly allocated `lunit-test-suite' instance.
+TESTS holds a number of instances of `lunit-test'."
   (luna-make-entity 'lunit-test-suite :tests tests))
 
 (luna-define-method lunit-test-suite-add-test ((suite lunit-test-suite) test)
@@ -247,6 +248,7 @@ NAME is name of the method to be tested."
 ;;;
 
 (defmacro lunit-assert (condition-expr)
+  "Verify that CONDITION-EXPR returns non-nil; signal an error if not."
   (let ((condition (eval condition-expr)))
     `(unless ,condition
        (signal 'lunit-failure (list ',condition-expr)))))