fixup! Add test cases for special case indentation

clojure-vim · Jan 14, 2021 · 8be7a7f · 8be7a7f
1 parent dcb3403
commit 8be7a7f
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 4 deletions.
diff --git a/clj/dev-resources/test-special-case-indent.in b/clj/dev-resources/test-special-case-indent.in
@@ -6,7 +6,6 @@
   (->> "ola"
      (x)))
 
-
 (->> "ola"
    (x))
 
@@ -22,4 +21,19 @@
   (println "Twice 15 =" (twice 15))
   (println "Six times 15 =" (six-times 15)))
 
+(letfn [(twice [x]
+            (* x 2))]
+       (->> "ola"
+                (x)))
+
+(letfn [(foo [x y]
+               (->> x
+                  y
+                      :bar))
+(twice [x]
+            (* x 2))
+        (six-times [y]
+(* (twice y) 3))]
+      (foo #{:foo :bar :biz} :foo))
+
 ;; vim:ft=clojure:
diff --git a/clj/dev-resources/test-special-case-indent.out b/clj/dev-resources/test-special-case-indent.out
@@ -6,7 +6,6 @@
   (->> "ola"
        (x)))
 
-
 (->> "ola"
      (x))
 
@@ -16,10 +15,25 @@
          (x))))
 
 (letfn [(twice [x]
-           (* x 2))
+          (* x 2))
         (six-times [y]
-           (* (twice y) 3))]
+          (* (twice y) 3))]
   (println "Twice 15 =" (twice 15))
   (println "Six times 15 =" (six-times 15)))
 
+(letfn [(twice [x]
+          (* x 2))]
+  (->> "ola"
+       (x)))
+
+(letfn [(foo [x y]
+          (->> x
+               y
+               :bar))
+        (twice [x]
+          (* x 2))
+        (six-times [y]
+          (* (twice y) 3))]
+  (foo #{:foo :bar :biz} :foo))
+
 ;; vim:ft=clojure: