From: kaoru <kaoru>
Date: Mon, 30 May 2011 07:50:54 +0000 (+0000)
Subject: * test-wl-address.el: New file.
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=d67233898479d059e2340a0609af0f845d1236e5

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

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  <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.
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 <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)")
+    )))