From aae257e9533ae8b3d2cf25cdab7f51a3f7846fa9 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 21 Feb 2004 20:29:15 +0000 Subject: [PATCH] * test-rfc2368.el: New file. --- tests/ChangeLog | 2 ++ tests/test-rfc2368.el | 50 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 52 insertions(+) create mode 100644 tests/test-rfc2368.el diff --git a/tests/ChangeLog b/tests/ChangeLog index a1ac941..c66b412 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,5 +1,7 @@ 2004-02-21 TAKAHASHI Kaoru + * test-rfc2368.el: New file. + * test-elmo-util.el (test-elmo-number-set-member-1): Use `equal'. (test-elmo-number-set-member-2): New testcase. diff --git a/tests/test-rfc2368.el b/tests/test-rfc2368.el new file mode 100644 index 0000000..763ced2 --- /dev/null +++ b/tests/test-rfc2368.el @@ -0,0 +1,50 @@ +(require 'lunit) +(require 'rfc2368) + +(luna-define-class test-rfc2368 (lunit-test-case)) + +(luna-define-method test-rfc2368-parse-mailto-url-1 ((case test-rfc2368)) + "To field only." + (lunit-assert + (equal + '(("To" . "chris@example.com")) + (rfc2368-parse-mailto-url "mailto:chris@example.com")))) + +(luna-define-method test-rfc2368-parse-mailto-url-2 ((case test-rfc2368)) + "RFC2368 example in 2. Syntax of a mailto URL " + (lunit-assert + (equal + (rfc2368-parse-mailto-url "mailto:addr1%2C%20addr2") + (rfc2368-parse-mailto-url "mailto:?to=addr1%2C%20addr2"))) + (lunit-assert + (equal + (rfc2368-parse-mailto-url "mailto:?to=addr1%2C%20addr2") + (rfc2368-parse-mailto-url "mailto:addr1?to=addr2")))) + +(luna-define-method test-rfc2368-parse-mailto-url-3 ((case test-rfc2368)) + "With Subject field." + (lunit-assert + (equal + '(("To" . "infobot@example.com") + ("Subject" . "current-issue")) + (rfc2368-parse-mailto-url + "mailto:infobot@example.com?subject=current-issue")))) + +(luna-define-method test-rfc2368-parse-mailto-url-4 ((case test-rfc2368)) + "Space in Subject field." + (lunit-assert + (equal + '(("To" . "infobot@example.com") + ("Body" . "send current-issue")) + (rfc2368-parse-mailto-url + "mailto:infobot@example.com?body=send%20current-issue")))) + +(luna-define-method test-rfc2368-parse-mailto-url-5 ((case test-rfc2368)) + "CRLF in body." + (lunit-assert + (equal + '(("To" . "infobot@example.com") + ("Body" . "send current-issue\nsend index")) + (rfc2368-parse-mailto-url + (concat "mailto:infobot@example.com?body=send%20current-\n" + "issue%0D%0Asend%20index"))))) -- 1.7.10.4