From: kaoru <kaoru>
Date: Wed, 29 Aug 2001 10:26:41 +0000 (+0000)
Subject: * test-utf7.el: New file.
X-Git-Tag: wl-2_7_4~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e16b3ea2df381f58aa0cc531173fd924d28b0d91;p=elisp%2Fwanderlust.git

* test-utf7.el: New file.
(test-utf7-encode-string, test-utf7-decode-string): New testcases.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 6b48d02..b7ef3ae 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-29  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* test-utf7.el: New file.
+	(test-utf7-encode-string, test-utf7-decode-string): New testcases.
+
 	* 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/test-utf7.el b/tests/test-utf7.el
new file mode 100644
index 0000000..6bc2364
--- /dev/null
+++ b/tests/test-utf7.el
@@ -0,0 +1,16 @@
+(require 'lunit)
+(require 'utf7)
+
+(luna-define-class test-utf7 (lunit-test-case))
+
+(luna-define-method test-utf7-encode-string ((case test-utf7))
+  (lunit-assert
+   (string=
+    "+ZeVnLIqe-"
+    (utf7-encode-string "日本語"))))	; FIXME!!: don't care coding system
+
+(luna-define-method test-utf7-decode-string ((case test-utf7))
+  (lunit-assert
+   (string=
+    "日本語"				; FIXME!!: don't care coding system
+    (utf7-decode-string "+ZeVnLIqe-"))))