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

New testcase.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 3ab2ec6..722cba2 100644 (file)
--- 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 (file)
--- 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))