* check-modules.el (check-modules-x-face-xmas): New testcase. For

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

diff --git a/tests/check-modules.el b/tests/check-modules.el
index 8adc3bb..ce6a114 100644 (file)
--- 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)))