4 (luna-define-class check-base64 (lunit-test-case))
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))
13 (elmo-base64-encode-string "A"))))
15 (luna-define-method check-base64-encode-2 ((case check-base64))
20 (elmo-base64-encode-string "AA"))))
22 (luna-define-method check-base64-encode-3 ((case check-base64))
27 (elmo-base64-encode-string "AAA"))))
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 ()
34 (elmo-base64-encode-string "" t)
35 (wrong-number-of-arguments)))
37 (luna-define-method check-base64-encode-4 ((case check-base64))
39 (check-base64-encode-string-has-no-line-break-argument)))
41 ;; <http://lists.airs.net/wl/archive/200107/msg00121.html>
43 (defun check-base64-encode-region-has-no-line-break-argument ()
47 (funcall (mel-find-function 'mime-encode-region "base64")
48 (point-min) (point-max) t)
50 (wrong-number-of-arguments)))
52 (luna-define-method check-base64-encode-5 ((case check-base64))
54 (check-base64-encode-region-has-no-line-break-argument)))