* test-wl-address.el: New file.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index ef13f97..1919168 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * test-wl-address.el: New file.
+

 2011-04-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * test-elmo-date.el: Add `lexical-binding' file variable.
 2011-04-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * 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 (file)
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 <m-sakura@example.org>")
+    )))
+
+(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)")
+    )))