From: kaoru <kaoru>
Date: Tue, 19 Feb 2008 10:48:01 +0000 (+0000)
Subject: * test-wl-util.el (test-wl-unique-id-by-user): New testcase.
X-Git-Tag: wl-2_15_6-fixes~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7cb9a2c1267c64e140a5a0c7aab1a26a362d1ada;p=elisp%2Fwanderlust.git

* test-wl-util.el (test-wl-unique-id-by-user): New testcase.
(test-wl-inverse-alist): Ditto.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index aeb5413..3113f69 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* test-wl-util.el (test-wl-unique-id-by-user): New testcase.
+	(test-wl-inverse-alist): Ditto.
+
 2008-02-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* test-elmo-date.el: New file.
diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el
index e8d8389..1efc1bf 100644
--- a/tests/test-wl-util.el
+++ b/tests/test-wl-util.el
@@ -16,3 +16,17 @@
    (not
     (string= (wl-unique-id)
 	     (progn (sleep-for 1) (wl-unique-id))))))
+
+(luna-define-method test-wl-unique-id-by-user ((case test-wl-util))
+  (lunit-assert
+   (let (user-login-name)
+     (not
+      (string= (progn (setq user-login-name "_alice") (wl-unique-id))
+	       (progn (setq user-login-name "_bob") (wl-unique-id)))))))
+
+
+(luna-define-method test-wl-inverse-alist ((case test-wl-util))
+  (lunit-assert
+   (equal
+    '((cc c) (aa a))
+    (wl-inverse-alist '(a c) '((a . aa) (a . bb) (c . cc))))))