Add tests to validate code has been fixed (#2715)

Co-authored-by: Florian Verdonck <[email protected]>

src/Fantomas.Core.Tests/TypeDeclarationTests.fs

@@ -711,6 +711,64 @@ type Delegate4 = delegate of int -> int -> int
 type U = U of (int * int)
 """
 
+[<Test>]
+let ``very long delegate type alias, 1514`` () =
+    formatSourceString
+        false
+        """
+type SomeWin32Callback = delegate of NastyWinApi32Type * int * int * int * NastyWinApi32Type * int * int * int * int * NastyWinApi32Type * int * int -> bool
+    """
+        { config with MaxLineLength = 60 }
+    |> prepend newline
+    |> should
+        equal
+        """
+type SomeWin32Callback =
+    delegate of
+        NastyWinApi32Type *
+        int *
+        int *
+        int *
+        NastyWinApi32Type *
+        int *
+        int *
+        int *
+        int *
+        NastyWinApi32Type *
+        int *
+        int ->
+            bool
+"""
+
+[<Test>]
+let ``very long delegate type alias wrapped in parens, 1514`` () =
+    formatSourceString
+        false
+        """
+type SomeWin32Callback = delegate of (NastyWinApi32Type * int * int * int * NastyWinApi32Type * int * int * int * int * NastyWinApi32Type * int * int) -> bool
+    """
+        { config with MaxLineLength = 60 }
+    |> prepend newline
+    |> should
+        equal
+        """
+type SomeWin32Callback =
+    delegate of
+        (NastyWinApi32Type *
+        int *
+        int *
+        int *
+        NastyWinApi32Type *
+        int *
+        int *
+        int *
+        int *
+        NastyWinApi32Type *
+        int *
+        int) ->
+            bool
+"""
+
 [<Test>]
 let ``should keep the ? in optional parameters`` () =
     formatSourceString