From 36076324ac16440e7fa4f70ae3ea2013d951ec67 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Thu, 9 Nov 2000 19:17:52 +0000
Subject: [PATCH] * lunit.el (lunit-test-method-regexp): Abolish.
 (lunit-test-printer#lunit-test-listener-start): Display
 class name.

---
 lunit.el |   15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lunit.el b/lunit.el
index 8720515..d004e40 100644
--- a/lunit.el
+++ b/lunit.el
@@ -39,13 +39,13 @@
 ;;
 ;; (lunit-class 'silly-test-case)
 ;; ______________________________________________________________________
-;; Starting test `test-1'
+;; Starting test `silly-test-case#test-1'
 ;; failure: (integerp "a")
 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ;; ______________________________________________________________________
-;; Starting test `test-2'
+;; Starting test `silly-test-case#test-2'
 ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-;; 2 total, 1 failures, 0 errors
+;; 2 runs, 1 failures, 0 errors
 
 ;;; Code:
 
@@ -251,7 +251,6 @@ 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))
 
@@ -266,8 +265,9 @@ 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'
-" (lunit-test-name-internal case))))
+Starting test `%S#%S'\n"
+		 (luna-class-name case)
+		 (lunit-test-name-internal case))))
 
 (luna-define-method lunit-test-listener-end ((printer lunit-test-printer) case)
   (princ "\
@@ -280,8 +280,7 @@ Starting test `%S'
     (mapatoms
      (lambda (symbol)
        (if (and (fboundp symbol)
-		(null (get symbol 'luna-method-qualifier))
-		(string-match lunit-test-method-regexp (symbol-name symbol)))
+		(null (get symbol 'luna-method-qualifier)))
 	   (push (lunit-make-test-case class symbol) tests)))
      (luna-class-obarray (luna-find-class class)))
     (lunit
-- 
1.7.10.4