* test-env.el: New file.

(test-apel-version, test-base64-encode-1)
(test-base64-encode-2, test-base64-encode-3): New testcases.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 8206d10..6b48d02 100644 (file)
--- 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 (file)
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"))))