From: kaoru <kaoru>
Date: Wed, 29 Aug 2001 09:53:53 +0000 (+0000)
Subject: * test-env.el: New file.
X-Git-Tag: wl-2_7_4~61
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=63f7f5131768dd1592a7e43ecfb0dfa8aa3c30ac;p=elisp%2Fwanderlust.git

* 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
--- 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"))))