Add doc-string tests

Author: vspinu

test/clojure-mode-syntax-test.el

@@ -77,6 +77,18 @@
       (backward-prefix-chars)
       (should (bobp)))))
 
+(ert-deftest test-clojure-in-docstring-p ()
+  (with-temp-buffer
+    (insert  "(def my-example-variable
+  \"Doc here and `doc-here`\"
+  nil)")
+    (clojure-mode)
+    (font-lock-ensure)
+    (goto-char 32)
+    (should (clojure-in-docstring-p))
+    (goto-char 46)
+    (should (clojure-in-docstring-p))))
+
 (def-refactor-test test-paragraph-fill-within-comments
     "
 ;; Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt
@@ -105,4 +117,19 @@
   (let ((fill-column 80))
     (fill-paragraph)))
 
+(def-refactor-test test-paragraph-fill-not-altering-surrounding-code
+  "(def my-example-variable
+  \"It has a very long docstring. So long, in fact, that it wraps onto multiple lines! This is to demonstrate what happens when the docstring wraps over three lines.\"
+  nil)"
+  "(def my-example-variable
+  \"It has a very long docstring. So long, in fact, that it wraps onto multiple
+  lines! This is to demonstrate what happens when the docstring wraps over three
+  lines.\"
+  nil)"
+  (switch-to-buffer (current-buffer))
+  (font-lock-ensure)
+  (goto-char 40) ; land in doc-string
+  (let ((fill-column 80))
+    (fill-paragraph)))
+
 (provide 'clojure-mode-syntax-test)