From: kaoru <kaoru>
Date: Wed, 22 May 2002 21:19:14 +0000 (+0000)
Subject: * check-modules.el (check-modules-x-face-mule): New testcase.
X-Git-Tag: elmo-mark-root~98
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7082519c6e8dfae414b8fdc958eb74896ef42298;p=elisp%2Fwanderlust.git

* check-modules.el (check-modules-x-face-mule): New testcase.
(check-modules-x-face-decode-message-header): New function.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 63f1da3..3ab2ec6 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* check-modules.el (check-modules-x-face-mule): New testcase.
+	(check-modules-x-face-decode-message-header): New function.
+
 2002-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* test-dist.el (test-refcard-version): Check version.tex.
diff --git a/tests/check-modules.el b/tests/check-modules.el
index f89fc9a..1599118 100644
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -28,6 +28,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)