Add regression test for lambda argument in multiline function applica…

…tion. Fixes #1028. (#1764)
fsprojects · Jun 5, 2021 · ffb2ee5 · ffb2ee5
1 parent ff30eac
commit ffb2ee5
Showing 1 changed file with 46 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/LambdaTests.fs b/src/Fantomas.Tests/LambdaTests.fs
@@ -834,3 +834,49 @@ fun _ _ -> ()
         """
 fun _ _ -> ()
 """
+
+[<Test>]
+let ``lambda argument in multiline function application, 1028`` () =
+    formatSourceString
+        false
+        """
+module Lifecycle =
+
+
+  let init config =
+    async {
+      cfg <- config
+      do!
+        MassTransit.init
+          cfg.LoggerFactory cfg.AzureServiceBusConnStr cfg.QueueName cfg.LoggerFactory
+          (fun reg ->
+            reg.Consume User.handleUserInitiatedRegistration
+            reg.Consume User.handleUserUpdated
+            reg.Consume User.handleGetSessionUserIdRequest
+          )
+    }
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Lifecycle =
+
+
+    let init config =
+        async {
+            cfg <- config
+
+            do!
+                MassTransit.init
+                    cfg.LoggerFactory
+                    cfg.AzureServiceBusConnStr
+                    cfg.QueueName
+                    cfg.LoggerFactory
+                    (fun reg ->
+                        reg.Consume User.handleUserInitiatedRegistration
+                        reg.Consume User.handleUserUpdated
+                        reg.Consume User.handleGetSessionUserIdRequest)
+        }
+"""