From b41b912f051718a3674ea58f703d68d1052f66d0 Mon Sep 17 00:00:00 2001
From: Florian Verdonck <florian.verdonck@outlook.com>
Date: Sun, 19 Apr 2020 12:41:04 +0200
Subject: [PATCH] Added regression test for long function signature. Fixes #730
 (#769)

---
 src/Fantomas.Tests/FunctionDefinitionTests.fs | 31 +++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/src/Fantomas.Tests/FunctionDefinitionTests.fs b/src/Fantomas.Tests/FunctionDefinitionTests.fs
index 7a8173f889..246362e755 100644
--- 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
 """
\ No newline at end of file