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

Use "^test" instead of "^test-".

diff --git a/ChangeLog b/ChangeLog
index 8b58015..7758497 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * lunit.el (lunit-make-test-suite-from-class): Fix regexp.
+       Use "^test" instead of "^test-".
+
 2004-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * lunit.el (lunit-assert): Avoid double-eval `condtion-expr'.

diff --git a/lunit.el b/lunit.el
index 10c8707..dbe1f74 100644 (file)
--- a/lunit.el
+++ b/lunit.el
@@ -265,7 +265,7 @@ TESTS holds a number of instances of `lunit-test'."
     (mapatoms
      (lambda (symbol)
        (if (and (fboundp symbol)
-               (string-match "^test-" (symbol-name 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)))