From b97e56aa830dd95c08cf0d3372d6f44c126e5462 Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Wed, 29 Aug 2001 10:30:02 +0000
Subject: [PATCH] * test-env.el (test-base64-encode-4, test-base64-encode-5):
 New testcases.

---
 tests/ChangeLog   |    5 +++++
 tests/test-env.el |   20 ++++++++++++++++++++
 2 files changed, 25 insertions(+)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index b7ef3ae..847ea74 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* test-env.el (test-base64-encode-4, test-base64-encode-5):
+	New testcases.
+
 2001-08-29  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* test-utf7.el: New file.
diff --git a/tests/test-env.el b/tests/test-env.el
index e3bb93f..3c91210 100644
--- a/tests/test-env.el
+++ b/tests/test-env.el
@@ -36,3 +36,23 @@
    (string=
     "QUFB"
     (elmo-base64-encode-string "AAA"))))
+
+;; Old base64 module on XEmacs 21.1
+;;  <http://lists.airs.net/wl/archive/200104/msg00150.html>
+(luna-define-method test-base64-encode-4 ((case test-env))
+  (require 'elmo-util)
+  (lunit-assert
+   (condition-case nil
+       (elmo-base64-encode-string "" t)
+     (wrong-number-of-arguments))))
+
+;;  <http://lists.airs.net/wl/archive/200107/msg00121.html>
+(luna-define-method test-base64-encode-5 ((case test-env))
+  (require 'mel)
+  (lunit-assert
+   (condition-case nil
+       (with-temp-buffer
+	 (funcall (mel-find-function 'mime-encode-region "base64")
+		  (point-min) (point-max) t)
+	 t)
+     (wrong-number-of-arguments))))
-- 
1.7.10.4