Added regression test for long function signature. Fixes fsprojects#730

nojaf · Apr 19, 2020 · 2d12cb7 · 2d12cb7
1 parent 83073f2
commit 2d12cb7
Showing 1 changed file with 31 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/FunctionDefinitionTests.fs b/src/Fantomas.Tests/FunctionDefinitionTests.fs
@@ -484,4 +484,35 @@ module FormatCode =
         : HttpResponse
         =
         Http.main CodeFormatter.GetVersion format FormatConfig.FormatConfig.Default log req
+"""
+
+[<Test>]
+let ``long function signature, 492`` () =
+    formatSourceString false """
+let private addTaskToScheduler (scheduler : IScheduler) taskName taskCron prio (task : unit -> unit) groupName =
+        let mutable jobDataMap = JobDataMap()
+        jobDataMap.["task"] <- task
+        let job =
+            JobBuilder.Create<WrapperJob>().UsingJobData(jobDataMap)
+                .WithIdentity(taskName, groupName).Build()
+        1
+"""  ({ config with PageWidth = 100 })
+    |> prepend newline
+    |> should equal """
+let private addTaskToScheduler
+    (scheduler: IScheduler)
+    taskName
+    taskCron
+    prio
+    (task: unit -> unit)
+    groupName
+    =
+    let mutable jobDataMap = JobDataMap()
+    jobDataMap.["task"] <- task
+
+    let job =
+        JobBuilder.Create<WrapperJob>().UsingJobData(jobDataMap).WithIdentity(taskName, groupName)
+            .Build()
+
+    1
 """