(test-spamfilter): Check `spamf-corpus-name'.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 5b1e026..269f610 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2003-11-30  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * check-modules.el (test-spamfilter): Check `spamf-corpus-name'.
+
 2003-07-31  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * check-modules.el (test-shimbun): Check `shimbun-server'.

diff --git a/tests/check-modules.el b/tests/check-modules.el
index 9f4104d..8595c71 100644 (file)
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -148,3 +148,9 @@
   (when (locate-library "shimbun")
     (require 'shimbun)
     (lunit-assert (fboundp 'shimbun-server))))
+
+;; spamfilter.el >= 0.10
+(luna-define-method test-spamfilter ((case check-modules))
+  (when (locate-library "spamfilter")
+    (require 'spamfilter)
+    (lunit-assert (fboundp 'spamf-corpus-name))))