From: kaoru <kaoru>
Date: Tue, 28 Aug 2001 16:18:34 +0000 (+0000)
Subject: * test-wl-util.el: New file.
X-Git-Tag: wl-2_7_3~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e005cd185360f18846c1922eebbe518ebc4d27d;p=elisp%2Fwanderlust.git

* test-wl-util.el: New file.
(test-wl-parse-addresses-1, test-wl-unique-id): New testcases.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index a59d43f..8206d10 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,6 +1,9 @@
 2001-08-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
-	* test-elmo-util.el: New file
+	* test-wl-util.el: New file.
+	(test-wl-parse-addresses-1, test-wl-unique-id): New testcases.
+
+	* test-elmo-util.el: New file.
 	(test-elmo-replace-string-as-filename-1): New testcase.
 
 	* test-dist.el: New file.
diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el
new file mode 100644
index 0000000..e8d8389
--- /dev/null
+++ b/tests/test-wl-util.el
@@ -0,0 +1,18 @@
+(require 'lunit)
+(require 'wl-util)
+
+(luna-define-class test-wl-util (lunit-test-case))
+
+(luna-define-method test-wl-parse-addresses-1 ((case test-wl-util))
+  (lunit-assert
+   (equal
+    '("foo@example.com" "bar@example.com")
+    (wl-parse-addresses "foo@example.com, bar@example.com"))))
+
+
+;; Message-ID
+(luna-define-method test-wl-unique-id ((case test-wl-util))
+  (lunit-assert
+   (not
+    (string= (wl-unique-id)
+	     (progn (sleep-for 1) (wl-unique-id))))))