* ptexinfmt.el: Use lexical binding.

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

diff --git a/tests/test-elmo-util.el b/tests/test-elmo-util.el
index 2d5a5e1..6c0c6b8 100644 (file)
--- a/tests/test-elmo-util.el
+++ b/tests/test-elmo-util.el
@@ -1,3 +1,4 @@
+;; -*- lexical-binding: t -*-
 (require 'lunit)
 (require 'elmo-util)
 
@@ -324,3 +325,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"))))