From e16b3ea2df381f58aa0cc531173fd924d28b0d91 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 29 Aug 2001 10:26:41 +0000 Subject: [PATCH 1/1] * test-utf7.el: New file. (test-utf7-encode-string, test-utf7-decode-string): New testcases. --- tests/ChangeLog | 3 +++ tests/test-utf7.el | 16 ++++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 tests/test-utf7.el 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 + * 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-")))) -- 1.7.10.4