From 551a5ac2b5af167a4cd351017e4c68516991a72e Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 9 Nov 2000 14:14:35 +0000 Subject: [PATCH] Add docstring. --- lunit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))))) -- 1.7.10.4