tests/check-base64.el

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