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

method name to test-*.

diff --git a/ChangeLog b/ChangeLog
index 877d922..ca1c344 100644 (file)
--- 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 (file)
--- 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)))