tests/test-env.el

   1 (require 'lunit)
   2 (require 'wl)
   3
   4 (luna-define-class test-env (lunit-test-case))
   5
   6 ;;;
   7 ;;; environment test for user (not for developer)
   8 ;;;
   9
  10 ;; APEL
  11 (luna-define-method test-apel-version ((case test-env))
  12   (require 'apel-ver)
  13   (lunit-assert
  14    (product-version>= (product-find 'apel-ver) '(10 2))))
  15
  16
  17 ;; mel-b-ccl on XEmacs 21.1
  18 ;;  <http://lists.airs.net/wl/archive/200101/msg00075.html>
  19 (luna-define-method test-base64-encode-1 ((case test-env))
  20   (require 'elmo-util)
  21   (lunit-assert
  22    (string=
  23     "QQ=="
  24     (elmo-base64-encode-string "A"))))
  25
  26 (luna-define-method test-base64-encode-2 ((case test-env))
  27   (require 'elmo-util)
  28   (lunit-assert
  29    (string=
  30     "QUE="
  31     (elmo-base64-encode-string "AA"))))
  32
  33 (luna-define-method test-base64-encode-3 ((case test-env))
  34   (require 'elmo-util)
  35   (lunit-assert
  36    (string=
  37     "QUFB"
  38     (elmo-base64-encode-string "AAA"))))
  39
  40 ;; Old base64 module on XEmacs 21.1
  41 ;;  <http://lists.airs.net/wl/archive/200104/msg00150.html>
  42 (luna-define-method test-base64-encode-4 ((case test-env))
  43   (require 'elmo-util)
  44   (lunit-assert
  45    (condition-case nil
  46        (elmo-base64-encode-string "" t)
  47      (wrong-number-of-arguments))))
  48
  49 ;;  <http://lists.airs.net/wl/archive/200107/msg00121.html>
  50 (luna-define-method test-base64-encode-5 ((case test-env))
  51   (require 'mel)
  52   (lunit-assert
  53    (condition-case nil
  54        (with-temp-buffer
  55          (funcall (mel-find-function 'mime-encode-region "base64")
  56                   (point-min) (point-max) t)
  57          t)
  58      (wrong-number-of-arguments))))