X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Ftest-wl-util.el;h=33e35dfd03778c391a46ba5c1909da1d9514aef3;hb=6a613a5f80232912292e23de0541c1e2482d619c;hp=e8d8389e66f46c4be038e1b401bd2cd12d63d4d5;hpb=613d7cf06a2b0199385f556c159977f7ee77ab6a;p=elisp%2Fwanderlust.git

diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el
index e8d8389..33e35df 100644
--- a/tests/test-wl-util.el
+++ b/tests/test-wl-util.el
@@ -16,3 +16,10 @@
    (not
     (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."
+  (lunit-assert
+   (string= "" (wl-repeat-string "string" 0))) ; nil expected?
+  (lunit-assert
+   (string= "" (wl-repeat-string "" 99))))