3 (luna-define-class check-base64 (lunit-test-case))
5 ;; mel-b-ccl on XEmacs 21.1
6 ;; <http://lists.airs.net/wl/archive/200101/msg00075.html>
7 (luna-define-method check-base64-encode-1 ((case check-base64))
12 (elmo-base64-encode-string "A"))))
14 (luna-define-method check-base64-encode-2 ((case check-base64))
19 (elmo-base64-encode-string "AA"))))
21 (luna-define-method check-base64-encode-3 ((case check-base64))
26 (elmo-base64-encode-string "AAA"))))
28 ;; Old base64 module on XEmacs 21.1
29 ;; <http://lists.airs.net/wl/archive/200104/msg00150.html>
30 (defun check-base64-encode-string-has-no-line-break-argument ()
33 (elmo-base64-encode-string "" t)
34 (wrong-number-of-arguments)))
36 (luna-define-method check-base64-encode-4 ((case check-base64))
38 (check-base64-encode-string-has-no-line-break-argument)))
40 ;; <http://lists.airs.net/wl/archive/200107/msg00121.html>
42 (defun check-base64-encode-region-has-no-line-break-argument ()
46 (funcall (mel-find-function 'mime-encode-region "base64")
47 (point-min) (point-max) t)
49 (wrong-number-of-arguments)))
51 (luna-define-method check-base64-encode-5 ((case check-base64))
53 (check-base64-encode-region-has-no-line-break-argument)))