* test-elmo-util.el (test-elmo-delete-cr-1): New testcase.

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

diff --git a/tests/test-elmo-util.el b/tests/test-elmo-util.el
index 2d5a5e1..01e178f 100644 (file)
--- a/tests/test-elmo-util.el
+++ b/tests/test-elmo-util.el
@@ -324,3 +324,9 @@
   (lunit-assert
    (equal '(1)
          (elmo-number-set-to-number-list '(1)))))
+
+(luna-define-method test-elmo-delete-cr-1 ((case test-elmo-util))
+  (lunit-assert (string= "" (elmo-delete-cr "")))
+  (lunit-assert (string= "\n" (elmo-delete-cr "\r\n")))
+  (lunit-assert (string= "\n\n" (elmo-delete-cr "\r\n\n")))
+  (lunit-assert (string= "\n\n" (elmo-delete-cr "\r\n\r\n"))))