Add extra indentation test cases for records and protocols

Author: axvr

clj/resources/indent-test-cases/custom_types/in.clj

@@ -0,0 +1,20 @@
+(defrecord Thing [a]
+  FileNameMap
+  (getContentTypeFor [_ file-name]
+    (str a "-" file-name))
+  Object
+  (toString [_]
+    "My very own thing!!"))
+
+(defrecord TheNameOfTheRecord
+           [a pretty long argument list]
+  SomeType
+  (assoc [_ x]
+    (.assoc pretty x 10)))
+
+(extend-protocol MyProtocol
+            goog.date.Date
+(-to-date-time [x]
+                                  (goog.date.UtcDateTime. (.getYear x)
+                                                        (.getMonth x)
+                                           (.getDate x))))

clj/resources/indent-test-cases/custom_types/out.clj

@@ -0,0 +1,20 @@
+(defrecord Thing [a]
+  FileNameMap
+  (getContentTypeFor [_ file-name]
+    (str a "-" file-name))
+  Object
+  (toString [_]
+    "My very own thing!!"))
+
+(defrecord TheNameOfTheRecord
+           [a pretty long argument list]
+  SomeType
+  (assoc [_ x]
+    (.assoc pretty x 10)))
+
+(extend-protocol MyProtocol
+  goog.date.Date
+  (-to-date-time [x]
+    (goog.date.UtcDateTime. (.getYear x)
+                            (.getMonth x)
+                            (.getDate x))))