Skip to content

Commit dce19dc

Browse files
yuhan0kommen
authored andcommitted
Add tests and changelog
1 parent 4ee55d2 commit dce19dc

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

clojure-mode-util-test.el

+5
Original file line numberDiff line numberDiff line change
@@ -163,6 +163,11 @@
163163
(with-clojure-buffer "(ns)(ns foo)"
164164
(expect (clojure-find-ns) :to-equal "foo"))
165165
(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)"
166171
(expect (clojure-find-ns) :to-equal "foo"))))
167172

168173
(describe "clojure-sort-ns"

0 commit comments

Comments
 (0)