* 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 (file)
--- 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 (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)))