Add test cases for special case indentation

Author: axvr

clj/dev-resources/test-special-case-indent.in

@@ -0,0 +1,25 @@
+(let [x (fn [y] 1)]
+  (->> "ola"
+     (x)))
+
+(letfn [(x [y] 1)]
+  (->> "ola"
+     (x)))
+
+
+(->> "ola"
+   (x))
+
+(defn foo []
+  (letfn [(x [y] 1)]
+    (->> "ola"
+       (x))))
+
+(letfn [(twice [x]
+               (* x 2))
+        (six-times [y]
+(* (twice y) 3))]
+  (println "Twice 15 =" (twice 15))
+  (println "Six times 15 =" (six-times 15)))
+
+;; vim:ft=clojure:

clj/dev-resources/test-special-case-indent.out

@@ -0,0 +1,25 @@
+(let [x (fn [y] 1)]
+  (->> "ola"
+       (x)))
+
+(letfn [(x [y] 1)]
+  (->> "ola"
+       (x)))
+
+
+(->> "ola"
+     (x))
+
+(defn foo []
+  (letfn [(x [y] 1)]
+    (->> "ola"
+         (x))))
+
+(letfn [(twice [x]
+           (* x 2))
+        (six-times [y]
+           (* (twice y) 3))]
+  (println "Twice 15 =" (twice 15))
+  (println "Six times 15 =" (six-times 15)))
+
+;; vim:ft=clojure:

clj/test/vim_clojure_static/indent_test.clj

@@ -33,3 +33,8 @@
   (test-indent "dispatch macro indentation is handled correctly"
                :in "test-dispatch-macro-indent.in"
                :out "test-dispatch-macro-indent.out"))
+
+(deftest test-special-case-indent
+  (test-indent "special case indentation is handled correctly"
+               :in "test-special-case-indent.in"
+               :out "test-special-case-indent.out"))