* test-ptexinfmt.el (test-texinfo-format-special-char): New testcase.

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

diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el
index e8d8389..33e35df 100644 (file)
--- 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))))