Keep spaces for named arguments

src/Fantomas.Tests/AppTests.fs

@@ -751,3 +751,31 @@ x |> f<y> // some comment
         """
 x |> f<y> // some comment
 """
+
+[<Test>]
+let ``single named arguments should have space surrounding the '=', 1877`` () =
+    formatSourceString
+        false
+        """
+let makeStreamReader x = new System.IO.StreamReader(path=x)"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let makeStreamReader x = new System.IO.StreamReader(path = x)
+"""
+
+[<Test>]
+let ``multiple named arguments should have space surrounding the '=', 1877`` () =
+    formatSourceString
+        false
+        """
+let makeStreamReader x y = new StreamReader(arg1=x, arg2=y)"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let makeStreamReader x y = new StreamReader(arg1 = x, arg2 = y)
+"""

src/Fantomas.Tests/PatternMatchingTests.fs

@@ -2047,3 +2047,23 @@ match!
 | None -> false
 | Some balance -> someRetrievedBalance = balance
 """
+
+[<Test>]
+let ``single line named fields in a pattern matching should have space surrounding the '=', 1877`` () =
+    formatSourceString
+        false
+        """
+let examineData x =
+    match data with
+    | OnePartData(part1 = p1) -> p1
+    | TwoPartData(part1 = p1; part2=p2) -> p1 + p2"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let examineData x =
+    match data with
+    | OnePartData (part1 = p1) -> p1
+    | TwoPartData (part1 = p1; part2 = p2) -> p1 + p2
+"""