From e6652fa60b4b9bb45c55dde9d8b1a2b1ac24f1ea Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 18 Feb 2004 15:25:08 +0000 Subject: [PATCH] * lunit.el (lunit-make-test-suite-from-class): Restrict test method name to test-*. --- ChangeLog | 5 +++++ lunit.el | 1 + 2 files changed, 6 insertions(+) diff --git a/ChangeLog b/ChangeLog index 877d922..ca1c344 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-02-18 TAKAHASHI Kaoru + + * lunit.el (lunit-make-test-suite-from-class): Restrict test + method name to test-*. + 2004-02-17 Daiki Ueno * 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))) -- 1.7.10.4