* test-utf7.el (toplevel): Use `fboundp' instead of `boundp'.

[elisp/wanderlust.git] / tests / test-wl-util.el

diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el
index 33e35df..1efc1bf 100644 (file)
--- a/tests/test-wl-util.el
+++ b/tests/test-wl-util.el
@@ -17,9 +17,16 @@
     (string= (wl-unique-id)
             (progn (sleep-for 1) (wl-unique-id))))))
 
-(luna-define-method test-wl-repeat-string ((case test-wl-util))
-  "Should be empty testcase."
+(luna-define-method test-wl-unique-id-by-user ((case test-wl-util))
   (lunit-assert
-   (string= "" (wl-repeat-string "string" 0))) ; nil expected?
+   (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
-   (string= "" (wl-repeat-string "" 99))))
+   (equal
+    '((cc c) (aa a))
+    (wl-inverse-alist '(a c) '((a . aa) (a . bb) (c . cc))))))