From: kaoru <kaoru>
Date: Fri, 21 Sep 2007 04:50:24 +0000 (+0000)
Subject: * test-ptexinfmt.el (test-texinfo-format-special-char): New testcase.
X-Git-Tag: wl-2_15_6-fixes~76
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6a613a5f80232912292e23de0541c1e2482d619c;p=elisp%2Fwanderlust.git

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

diff --git a/tests/ChangeLog b/tests/ChangeLog
index e1418c7..c4970c5 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-21  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* test-ptexinfmt.el (test-texinfo-format-special-char): New
+	testcase.
+
 2006-11-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* test-wl-draft.el: New file.
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))))