diff --git a/test/clojure-mode-font-lock-test.el b/test/clojure-mode-font-lock-test.el index c7e2fef4..833df99e 100644 --- a/test/clojure-mode-font-lock-test.el +++ b/test/clojure-mode-font-lock-test.el @@ -77,6 +77,7 @@ TESTS are lists of the form (content (start end expected-face)*). For each test check that each `expected-face` is found in `content` between `start` and `end`. DESCRIPTION is the description of the spec." + (declare (indent 1)) `(it ,description (dolist (test (quote ,tests)) (apply #'expect-faces-at test)))) @@ -797,8 +798,8 @@ DESCRIPTION is the description of the spec." ("(def foo \"usage\" \"hello\" )" (18 24 font-lock-string-face)) - ("(def foo \"usage\" \n \"hello\")" - (21 27 font-lock-string-face)) + ("(def foo \"usage\" \n \"hello\")" + (21 27 font-lock-string-face)) ("(def foo \n \"usage\" \"hello\")" (13 19 font-lock-doc-face)) @@ -864,8 +865,8 @@ DESCRIPTION is the description of the spec." (when-fontifying-it "should handle keyword-meta" ("^:meta-data" - (1 1 nil) - (2 11 clojure-keyword-face))) + (1 1 nil) + (2 11 clojure-keyword-face))) (when-fontifying-it "should handle a keyword with allowed characters" (":aaa#bbb" diff --git a/test/utils/test-helper.el b/test/utils/test-helper.el index 90763128..2cb20713 100644 --- a/test/utils/test-helper.el +++ b/test/utils/test-helper.el @@ -34,6 +34,7 @@ (defmacro with-clojure-buffer (text &rest body) "Create a temporary buffer, insert TEXT, switch to clojure-mode and evaluate BODY." + (declare (indent 1)) `(with-temp-buffer (erase-buffer) (insert ,text) @@ -49,6 +50,7 @@ AFTER. BODY should contain the refactoring that transforms BEFORE into AFTER. DESCRIPTION is the description of the spec." + (declare (indent 1)) `(it ,description (with-clojure-buffer ,before ,@body