From: kaoru <kaoru>
Date: Mon, 23 Feb 2004 09:24:43 +0000 (+0000)
Subject: * lunit.el (lunit-make-test-suite-from-class): Fix regexp.
X-Git-Tag: flim-1_14_7~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=03d0a2979512c2040f046e48f4a442f4467695d1;p=elisp%2Fflim.git

* 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
--- 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
--- 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)))