sync with wl-2_10 branch

[elisp/wanderlust.git] / tests / check-modules.el

diff --git a/tests/check-modules.el b/tests/check-modules.el
index 9bce2ee..1b1744c 100644 (file)
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -11,7 +11,12 @@
 (luna-define-method check-modules-apel-version ((case check-modules))
   (require 'apel-ver)
   (lunit-assert
-   (product-version>= (product-find 'apel-ver) '(10 2))))
+   (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))
@@ -28,6 +33,24 @@
        t)
     (wrong-number-of-arguments)))
 
+;; x-face-mule
+(luna-define-method check-modules-x-face-mule ((case check-modules))
+  (when (and (locate-library "x-face-mule")
+            (not (featurep 'xemacs))
+            (not (locate-library "x-face-e21")))
+    (require 'x-face-mule)
+    (lunit-assert (fboundp 'x-face-decode-message-header))
+    (lunit-assert (check-modules-x-face-decode-message-header))))
+
+(defun check-modules-x-face-decode-message-header ()
+  "When `x-face-decode-message-header' has non-optional argument, return nil."
+  (require 'x-face-mule)
+  (condition-case nil
+      (with-temp-buffer
+       (x-face-decode-message-header)
+       t)
+    (wrong-number-of-arguments)))
+
 ;; MIME entity (FLIM API Version 1.14 Draft Release 3)
 (luna-define-method check-modules-flim-mime-entity ((case check-modules))
   (require 'mime)
@@ -61,9 +84,12 @@
 ;; Content-Transfer-Encoding (FLIM API Version 1.14 Draft Release 3)
 (luna-define-method check-modules-flim-content-transfer-encoding ((case check-modules))
   (require 'mel)
-  (lunit-assert (fboundp 'mime-decode-string)) ; [Required]<Suggest>
-;;; document only?
-;;;  (lunit-assert (fboundp 'mime-encode-string)) ; [Required]<Suggest>
+  ;; mime-decode-string (string encoding) [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-decode-string))
+  (lunit-assert (fboundp (mel-find-function 'mime-decode-string "base64")))
+  ;; mime-encode-string (string encoding)  [Required]<Suggest>
+  (lunit-assert (fboundp (mel-find-function 'mime-encode-string "base64")))
+
   (lunit-assert (fboundp 'base64-decode-string)) ; [Required]
   (lunit-assert (fboundp 'base64-encode-string)) ; [Required]
   (lunit-assert (fboundp 'mime-write-decoded-region)) ; [Required]<Suggest>