We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 4ee55d2 commit dce19dcCopy full SHA for dce19dc
clojure-mode-util-test.el
@@ -163,6 +163,11 @@
163
(with-clojure-buffer "(ns)(ns foo)"
164
(expect (clojure-find-ns) :to-equal "foo"))
165
(with-clojure-buffer "(ns )(ns foo)"
166
+ (expect (clojure-find-ns) :to-equal "foo")))
167
+ (it "should ignore carriage returns"
168
+ (with-clojure-buffer "(ns \r\n foo)"
169
+ (expect (clojure-find-ns) :to-equal "foo"))
170
+ (with-clojure-buffer "(ns\r\n ^{:doc \"meta\r\n\"}\r\n foo\r\n)"
171
(expect (clojure-find-ns) :to-equal "foo"))))
172
173
(describe "clojure-sort-ns"
0 commit comments