From: kaoru <kaoru>
Date: Wed, 18 Feb 2004 15:25:08 +0000 (+0000)
Subject: * lunit.el (lunit-make-test-suite-from-class): Restrict test
X-Git-Tag: flim-1_14_7~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e6652fa60b4b9bb45c55dde9d8b1a2b1ac24f1ea;p=elisp%2Fflim.git

* lunit.el (lunit-make-test-suite-from-class): Restrict test
method name to test-*.
---

diff --git a/ChangeLog b/ChangeLog
index 877d922..ca1c344 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* lunit.el (lunit-make-test-suite-from-class): Restrict test
+	method name to test-*.
+
 2004-02-17  Daiki Ueno  <ueno@unixuser.org>
 
 	* smtp.el (smtp-starttls-program): New user option.
diff --git a/lunit.el b/lunit.el
index 99132d3..7abf22a 100644
--- a/lunit.el
+++ b/lunit.el
@@ -265,6 +265,7 @@ TESTS holds a number of instances of `lunit-test'."
     (mapatoms
      (lambda (symbol)
        (if (and (fboundp symbol)
+		(string-match "^test-" (symbol-name symbol))
 		(null (get symbol 'luna-method-qualifier)))
 	   (push (lunit-make-test-case class symbol) tests)))
      (luna-class-obarray (luna-find-class class)))