Add indentation tests for defmethod, multi-arity defn, nested letfn, and try/catch/finally

These forms all have indent specs but lacked dedicated tests verifying
their indentation output:

- defmethod with dispatch values (:defn style)
- Multi-arity defn with and without docstrings/metadata
- Nested letfn verifying the complex '(1 ((:defn)) nil) spec
  propagates correctly through multiple nesting levels
- try/catch/finally verifying specs 0/2/0

Author: bbatsov

test/clojure-mode-indentation-test.el

@@ -512,6 +512,60 @@ DESCRIPTION is a string with the description of the spec."
     (with-out-binding [out messages]
       (.flush out))))")
 
+  (when-indenting-it "should handle defmethod"
+    "
+(defmethod foo :bar
+  [x]
+  (println x))"
+
+    "
+(defmethod foo :default
+  [x y]
+  (+ x y))")
+
+  (when-indenting-it "should handle multi-arity defn"
+    "
+(defn foo
+  ([x]
+   (foo x 1))
+  ([x y]
+   (+ x y)))"
+
+    "
+(defn foo
+  \"docstring\"
+  ([x]
+   (foo x 1))
+  ([x y]
+   (+ x y)))"
+
+    "
+(defn ^:private foo
+  ([x]
+   (foo x 1))
+  ([x y]
+   (+ x y)))")
+
+  (when-indenting-it "should handle nested letfn"
+    "
+(letfn [(foo [x]
+          (let [y (inc x)]
+            (* y y)))
+        (bar [a]
+          (letfn [(baz [b]
+                    (+ a b))]
+            (baz 1)))]
+  (foo (bar 10)))")
+
+  (when-indenting-it "should handle try/catch/finally"
+    "
+(try
+  (dangerous)
+  (catch Exception e
+    (println e))
+  (finally
+    (cleanup)))")
+
   (when-indenting-it "should handle reader conditionals"
     "#?@ (:clj []
      :cljs [])")