From 7082519c6e8dfae414b8fdc958eb74896ef42298 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 22 May 2002 21:19:14 +0000 Subject: [PATCH] * check-modules.el (check-modules-x-face-mule): New testcase. (check-modules-x-face-decode-message-header): New function. --- tests/ChangeLog | 5 +++++ tests/check-modules.el | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) 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 + + * check-modules.el (check-modules-x-face-mule): New testcase. + (check-modules-x-face-decode-message-header): New function. + 2002-01-01 TAKAHASHI Kaoru * 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) -- 1.7.10.4