From: kaoru <kaoru>
Date: Fri, 12 Jul 2002 23:01:16 +0000 (+0000)
Subject: * check-modules.el (check-modules-charsets-mime-charset-alist):
X-Git-Tag: elmo-mark-root~53
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=8a2df105ad2efa1b30fc71ff750fce0f97bcb77c

* check-modules.el (check-modules-charsets-mime-charset-alist):
New testcase.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 3ab2ec6..722cba2 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* check-modules.el (check-modules-charsets-mime-charset-alist):
+	New testcase.
+
 2002-05-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* check-modules.el (check-modules-x-face-mule): New testcase.
diff --git a/tests/check-modules.el b/tests/check-modules.el
index 1599118..a9e4071 100644
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -13,6 +13,11 @@
   (lunit-assert
    (product-version>= (product-find 'apel-ver) '(10 3))))
 
+(luna-define-method check-modules-charsets-mime-charset-alist ((case check-modules))
+  (require 'mcharset)
+  (lunit-assert
+   (not (memq nil charsets-mime-charset-alist))))
+
 ;; X-Face on XEmacs
 (luna-define-method check-modules-x-face-xmas ((case check-modules))
   (when (and (locate-library "x-face") (featurep 'xemacs))