From: hmurata <hmurata>
Date: Sun, 30 Nov 2003 05:08:50 +0000 (+0000)
Subject: (test-spamfilter): Check `spamf-corpus-name'.
X-Git-Tag: wl-2_11_23~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67048f924a07974bb03c6160feeb3fafd9411590;p=elisp%2Fwanderlust.git

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

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 5b1e026..269f610 100644
--- 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
--- 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))))