tests/check-modules.el

   1 (require 'lunit)
   2 (require 'wl)
   3
   4 (luna-define-class check-modules (lunit-test-case))
   5
   6 ;;;
   7 ;;; environment test for user (not for developer)
   8 ;;;
   9
  10 ;; APEL
  11 (luna-define-method check-modules-apel-version ((case check-modules))
  12   (require 'apel-ver)
  13   (lunit-assert
  14    (product-version>= (product-find 'apel-ver) '(10 2))))
  15
  16 ;; X-Face on XEmacs
  17 (luna-define-method check-modules-x-face-xmas ((case check-modules))
  18   (when (and (locate-library "x-face") (featurep 'xemacs))
  19     (lunit-assert
  20      (check-modules-x-face-xmas-wl-display-x-face-was-argument-required))))
  21
  22 (defun check-modules-x-face-xmas-wl-display-x-face-was-argument-required ()
  23   "When `x-face-xmas-wl-display-x-face' has non-optional argument, return `t'."
  24   (require 'x-face-xmas)
  25   (condition-case nil
  26       (with-temp-buffer
  27         (x-face-xmas-wl-display-x-face)
  28         t)
  29     (wrong-number-of-arguments)))