From: kaoru <kaoru>
Date: Fri, 26 Oct 2001 16:41:01 +0000 (+0000)
Subject: * check-modules.el (check-modules-x-face-xmas): New testcase. For
X-Git-Tag: wl-2_7_6~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06c8bf5514ba886899813ef3e627fe48137fd65e;p=elisp%2Fwanderlust.git

* check-modules.el (check-modules-x-face-xmas): New testcase. For
old x-face utility.
(check-modules-x-face-xmas-wl-display-x-face-was-argument-required):
New function.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index c96a939..8ed8243 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,10 @@
+2001-10-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* check-modules.el (check-modules-x-face-xmas): New testcase. For
+	old x-face utility.
+	(check-modules-x-face-xmas-wl-display-x-face-was-argument-required):
+	New function.
+
 2001-08-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* test-env.el: Removed (Separated to check-*.el).
diff --git a/tests/check-modules.el b/tests/check-modules.el
index 8adc3bb..ce6a114 100644
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -12,3 +12,18 @@
   (require 'apel-ver)
   (lunit-assert
    (product-version>= (product-find 'apel-ver) '(10 2))))
+
+;; X-Face on XEmacs
+(luna-define-method check-modules-x-face-xmas ((case check-modules))
+  (when (and (locate-library "x-face") (featurep 'xemacs))
+    (lunit-assert
+     (check-modules-x-face-xmas-wl-display-x-face-was-argument-required))))
+
+(defun check-modules-x-face-xmas-wl-display-x-face-was-argument-required ()
+  "When `x-face-xmas-wl-display-x-face' has non-optional argument, return `t'."
+  (require 'x-face-xmas)
+  (condition-case nil
+      (with-temp-buffer
+	(x-face-xmas-wl-display-x-face)
+	t)
+    (wrong-number-of-arguments)))