From 63f7f5131768dd1592a7e43ecfb0dfa8aa3c30ac Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Wed, 29 Aug 2001 09:53:53 +0000
Subject: [PATCH] * test-env.el: New file. (test-apel-version,
 test-base64-encode-1) (test-base64-encode-2,
 test-base64-encode-3): New testcases.

---
 tests/ChangeLog   |    6 ++++++
 tests/test-env.el |   38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100644 tests/test-env.el

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 8206d10..6b48d02 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-29  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* test-env.el: New file.
+	(test-apel-version, test-base64-encode-1)
+	(test-base64-encode-2, test-base64-encode-3): New testcases.
+
 2001-08-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* test-wl-util.el: New file.
diff --git a/tests/test-env.el b/tests/test-env.el
new file mode 100644
index 0000000..e3bb93f
--- /dev/null
+++ b/tests/test-env.el
@@ -0,0 +1,38 @@
+(require 'lunit)
+(require 'wl)
+
+(luna-define-class test-env (lunit-test-case))
+
+;;;
+;;; environment test for user (not for developer)
+;;;
+
+;; APEL
+(luna-define-method test-apel-version ((case test-env))
+  (require 'apel-ver)
+  (lunit-assert
+   (product-version>= (product-find 'apel-ver) '(10 2))))
+
+
+;; mel-b-ccl on XEmacs 21.1
+;;  <http://lists.airs.net/wl/archive/200101/msg00075.html>
+(luna-define-method test-base64-encode-1 ((case test-env))
+  (require 'elmo-util)
+  (lunit-assert
+   (string=
+    "QQ=="
+    (elmo-base64-encode-string "A"))))
+
+(luna-define-method test-base64-encode-2 ((case test-env))
+  (require 'elmo-util)
+  (lunit-assert
+   (string=
+    "QUE="
+    (elmo-base64-encode-string "AA"))))
+
+(luna-define-method test-base64-encode-3 ((case test-env))
+  (require 'elmo-util)
+  (lunit-assert
+   (string=
+    "QUFB"
+    (elmo-base64-encode-string "AAA"))))
-- 
1.7.10.4