From: ueno <ueno>
Date: Thu, 9 Nov 2000 14:51:44 +0000 (+0000)
Subject: * lunit.el (lunit-class): New function.
X-Git-Tag: deisui-1_14_0-2000-12-14~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81995ac14dbcb58b97fcdba85c15cf1d5910512b;p=elisp%2Fflim.git

* lunit.el (lunit-class): New function.
(lunit-test-method-regexp): New variable.
---

diff --git a/lunit.el b/lunit.el
index 6cf93dd..8720515 100644
--- a/lunit.el
+++ b/lunit.el
@@ -31,22 +31,19 @@
 ;;
 ;; (luna-define-class silly-test-case (lunit-test-case))
 ;;
-;; (luna-define-method silly-test-1 ((case silly-test-case))
+;; (luna-define-method test-1 ((case silly-test-case))
 ;;   (lunit-assert (integerp "a")))
 ;;
-;; (luna-define-method silly-test-2 ((case silly-test-case))
+;; (luna-define-method test-2 ((case silly-test-case))
 ;;   (lunit-assert (stringp "b")))
 ;;
-;; (lunit
-;;  (lunit-make-test-suite
-;;   (lunit-make-test-case 'silly-test-case 'silly-test-1)
-;;   (lunit-make-test-case 'silly-test-case 'silly-test-2)))
+;; (lunit-class 'silly-test-case)
 ;; ______________________________________________________________________
-;; Starting test silly-test-1
+;; Starting test `test-1'
 ;; failure: (integerp "a")
 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ;; ______________________________________________________________________
-;; Starting test silly-test-2
+;; Starting test `test-2'
 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ;; 2 total, 1 failures, 0 errors
 
@@ -254,6 +251,7 @@ TESTS holds a number of instances of `lunit-test'."
        (signal 'lunit-failure (list ',condition-expr)))))
 
 (defvar lunit-test-results-buffer "*Lunit Results*")
+(defvar lunit-test-method-regexp "^test-")
 
 (luna-define-class lunit-test-printer (lunit-test-listener))
 
@@ -268,7 +266,7 @@ TESTS holds a number of instances of `lunit-test'."
 (luna-define-method lunit-test-listener-start ((printer lunit-test-printer) case)
   (princ (format "\
 ______________________________________________________________________
-Starting test %S
+Starting test `%S'
 " (lunit-test-name-internal case))))
 
 (luna-define-method lunit-test-listener-end ((printer lunit-test-printer) case)
@@ -276,6 +274,19 @@ Starting test %S
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 "))
 
+(defun lunit-class (class)
+  "Run all test methods of the CLASS and display the result."
+  (let (tests)
+    (mapatoms
+     (lambda (symbol)
+       (if (and (fboundp symbol)
+		(null (get symbol 'luna-method-qualifier))
+		(string-match lunit-test-method-regexp (symbol-name symbol)))
+	   (push (lunit-make-test-case class symbol) tests)))
+     (luna-class-obarray (luna-find-class class)))
+    (lunit
+     (apply #'lunit-make-test-suite tests))))
+
 (defun lunit (test)
   "Run TEST and display the result."
   (let* ((printer