From d67233898479d059e2340a0609af0f845d1236e5 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 30 May 2011 07:50:54 +0000 Subject: [PATCH] * test-wl-address.el: New file. --- tests/ChangeLog | 4 ++++ tests/test-wl-address.el | 19 +++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 tests/test-wl-address.el diff --git a/tests/ChangeLog b/tests/ChangeLog index ef13f97..1919168 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,7 @@ +2011-05-30 TAKAHASHI Kaoru + + * test-wl-address.el: New file. + 2011-04-07 TAKAHASHI Kaoru * test-elmo-date.el: Add `lexical-binding' file variable. diff --git a/tests/test-wl-address.el b/tests/test-wl-address.el new file mode 100644 index 0000000..1e2418f --- /dev/null +++ b/tests/test-wl-address.el @@ -0,0 +1,19 @@ +;; -*- lexical-binding: t -*- +(require 'lunit) +(require 'wl-address) + +(luna-define-class test-wl-address (lunit-test-case)) + +(luna-define-method test-wl-address-header-extract-address-1 ((case test-wl-address)) + (lunit-assert + (string= + "m-sakura@example.org" + (wl-address-header-extract-address "Mine Sakurai ") + ))) + +(luna-define-method test-wl-address-header-extract-address-2 ((case test-wl-address)) + (lunit-assert + (string= + "m-sakura@example.org" + (wl-address-header-extract-address "m-sakura@example.org (Mine Sakurai)") + ))) -- 1.7.10.4