From: ueno <ueno>
Date: Thu, 9 Nov 2000 14:09:36 +0000 (+0000)
Subject: Rearrange.
X-Git-Tag: deisui-1_14_0-2000-12-14~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db0a9c4771731fafc9a9c363e13a85e2d7e834cb;p=elisp%2Fflim.git

Rearrange.
---

diff --git a/lunit.el b/lunit.el
index 2209de7..fc0abbf 100644
--- a/lunit.el
+++ b/lunit.el
@@ -56,29 +56,14 @@
 
 (eval-when-compile (require 'cl))
 
+;;; @ test
+;;;
+
 (eval-and-compile
   (luna-define-class lunit-test ()
 		     (name))
 
-  (luna-define-internal-accessors 'lunit-test)
-
-  (luna-define-class lunit-test-case (lunit-test))
-
-  (luna-define-class lunit-test-suite (lunit-test)
-		     (tests))
-
-  (luna-define-internal-accessors 'lunit-test-suite)
-
-  (luna-define-class lunit-test-result ()
-		     (errors
-		      failures
-		      listeners))
-
-  (luna-define-internal-accessors 'lunit-test-result)
-
-  (luna-define-class lunit-test-listener ())
-
-  (luna-define-class lunit-test-printer (lunit-test-listener)))
+  (luna-define-internal-accessors 'lunit-test))
 
 (luna-define-generic lunit-test-number-of-tests (test)
   "Count the number of test cases that will be run by the test.")
@@ -86,31 +71,13 @@
 (luna-define-generic lunit-test-run (test result)
   "Run the test and collects its result in result.")
 
-(luna-define-generic lunit-test-case-run (case)
-  "Run the test case.")
-
-(luna-define-generic lunit-test-case-setup (case)
-  "Setup the test case.")
-
-(luna-define-generic lunit-test-case-teardown (case)
-  "Clear the test case.")
-
 (luna-define-generic lunit-test-suite-add-test (suite test)
   "Add the test to the suite.")
 
-(luna-define-generic lunit-test-result-run (result case)
-  "Run the test case.")
-
-(luna-define-generic lunit-test-result-error (result case error)
-  "Add error to the list of errors.
-The passed in exception caused the error.")
+;;; @ test listener
+;;;
 
-(luna-define-generic lunit-test-result-failure (result case failure)
-  "Add failure to the list of failures.
-The passed in exception caused the failure.")
-
-(luna-define-generic lunit-test-result-add-listener (result listener)
-  "Add listener to the list of listeners.")
+(luna-define-class lunit-test-listener ())
 
 (luna-define-generic lunit-test-listener-error (listener case error)
   "An error occurred.")
@@ -124,62 +91,39 @@ The passed in exception caused the failure.")
 (luna-define-generic lunit-test-listener-end (listener case)
   "A test ended.")
 
+;;; @ test result
+;;;
+
 (put 'lunit-error 'error-message "test error")
 (put 'lunit-error 'error-conditions '(lunit-error error))
 
 (put 'lunit-failure 'error-message "test failure")
 (put 'lunit-failure 'error-conditions '(lunit-failure lunit-error error))
 
-(defmacro lunit-assert (condition-expr)
-  (let ((condition (eval condition-expr)))
-    `(unless ,condition
-       (signal 'lunit-failure (list ',condition-expr)))))
-
-(defvar lunit-test-results-buffer "*Lunit Results*")
-
-(defun lunit (test)
-  (let* ((printer
-	  (luna-make-entity 'lunit-test-printer))
-	 (result
-	  (lunit-make-test-result printer))
-	 failures
-	 errors)
-    (with-output-to-temp-buffer lunit-test-results-buffer
-      (lunit-test-run test result)
-      (setq failures (lunit-test-result-failures-internal result)
-	    errors (lunit-test-result-errors-internal result))
-      (princ (format "%d total, %d failures, %d errors"
-		     (lunit-test-number-of-tests test)
-		     (length failures)
-		     (length errors))))
-    nil))
+(eval-and-compile
+  (luna-define-class lunit-test-result ()
+		     (errors
+		      failures
+		      listeners))
 
-;;; @ test printer
-;;;
+  (luna-define-internal-accessors 'lunit-test-result))
 
-(luna-define-method lunit-test-listener-error ((printer lunit-test-printer)
-					       case error)
-  (princ (format "error: %S\n" error)))
-
-(luna-define-method lunit-test-listener-failure ((printer lunit-test-printer)
-						 case failure)
-  (princ (format "failure: %S\n" failure)))
+(luna-define-generic lunit-test-result-run (result case)
+  "Run the test case.")
 
-(luna-define-method lunit-test-listener-start ((printer lunit-test-printer) case)
-  (princ (format "\
-______________________________________________________________________
-Starting test %S
-" (lunit-test-name-internal case))))
+(luna-define-generic lunit-test-result-error (result case error)
+  "Add error to the list of errors.
+The passed in exception caused the error.")
 
-(luna-define-method lunit-test-listener-end ((printer lunit-test-printer) case)
-  (princ "\
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"))
+(luna-define-generic lunit-test-result-failure (result case failure)
+  "Add failure to the list of failures.
+The passed in exception caused the failure.")
 
-;;; @ test result
-;;;
+(luna-define-generic lunit-test-result-add-listener (result listener)
+  "Add listener to the list of listeners.")
 
 (defun lunit-make-test-result (&rest listeners)
+  "Return a newly allocated `lunit-test-result' instance with LISTENERS."
   (luna-make-entity 'lunit-test-result :listeners listeners))
 
 (luna-define-method lunit-test-result-run ((result lunit-test-result) case)
@@ -225,7 +169,21 @@ Starting test %S
 ;;; @ test case
 ;;;
 
+(luna-define-class lunit-test-case (lunit-test))
+
+(luna-define-generic lunit-test-case-run (case)
+  "Run the test case.")
+
+(luna-define-generic lunit-test-case-setup (case)
+  "Setup the test case.")
+
+(luna-define-generic lunit-test-case-teardown (case)
+  "Clear the test case.")
+
 (defun lunit-make-test-case (class name)
+  "Return a newly allocated `lunit-test-case'.
+CLASS is a symbol for class derived from `lunit-test-case'.
+NAME is name of the method to be tested."
   (luna-make-entity class :name name))
 
 (luna-define-method lunit-test-number-of-tests ((case lunit-test-case))
@@ -257,7 +215,14 @@ Starting test %S
 ;;; @ test suite
 ;;;
 
+(eval-and-compile
+  (luna-define-class lunit-test-suite (lunit-test)
+		     (tests))
+
+  (luna-define-internal-accessors 'lunit-test-suite))
+
 (defun lunit-make-test-suite (&rest tests)
+  "Return a newly allocated `lunit-test-suite' instance."
   (luna-make-entity 'lunit-test-suite :tests tests))
 
 (luna-define-method lunit-test-suite-add-test ((suite lunit-test-suite) test)
@@ -278,6 +243,55 @@ Starting test %S
     (dolist (test tests)
       (lunit-test-run test result))))
 
+;;; @ test runner
+;;;
+
+(defmacro lunit-assert (condition-expr)
+  (let ((condition (eval condition-expr)))
+    `(unless ,condition
+       (signal 'lunit-failure (list ',condition-expr)))))
+
+(defvar lunit-test-results-buffer "*Lunit Results*")
+
+(luna-define-class lunit-test-printer (lunit-test-listener))
+
+(luna-define-method lunit-test-listener-error ((printer lunit-test-printer)
+					       case error)
+  (princ (format "error: %S\n" error)))
+
+(luna-define-method lunit-test-listener-failure ((printer lunit-test-printer)
+						 case failure)
+  (princ (format "failure: %S\n" failure)))
+
+(luna-define-method lunit-test-listener-start ((printer lunit-test-printer) case)
+  (princ (format "\
+______________________________________________________________________
+Starting test %S
+" (lunit-test-name-internal case))))
+
+(luna-define-method lunit-test-listener-end ((printer lunit-test-printer) case)
+  (princ "\
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+"))
+
+(defun lunit (test)
+  "Run TEST and display the result."
+  (let* ((printer
+	  (luna-make-entity 'lunit-test-printer))
+	 (result
+	  (lunit-make-test-result printer))
+	 failures
+	 errors)
+    (with-output-to-temp-buffer lunit-test-results-buffer
+      (lunit-test-run test result)
+      (setq failures (lunit-test-result-failures-internal result)
+	    errors (lunit-test-result-errors-internal result))
+      (princ (format "%d runs, %d failures, %d errors"
+		     (lunit-test-number-of-tests test)
+		     (length failures)
+		     (length errors))))
+    nil))
+
 (provide 'lunit)
 
 ;;; lunit.el ends here