From 03d0a2979512c2040f046e48f4a442f4467695d1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 23 Feb 2004 09:24:43 +0000 Subject: [PATCH] * lunit.el (lunit-make-test-suite-from-class): Fix regexp. Use "^test" instead of "^test-". --- ChangeLog | 5 +++++ lunit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8b58015..7758497 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-02-23 TAKAHASHI Kaoru + + * lunit.el (lunit-make-test-suite-from-class): Fix regexp. + Use "^test" instead of "^test-". + 2004-02-19 TAKAHASHI Kaoru * 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))) -- 1.7.10.4