Add regression tests for lost comments after equals sign. (fsprojects…

…#2125)

CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## [Unreleased]
+
+### Fixed
+* Comment after equals is remove in anonymous record. [#1921](https://github.com/fsprojects/fantomas/issues/1921)
+* Comment after equals in record type is lost. [#2001](https://github.com/fsprojects/fantomas/issues/2001)
+
 ## [4.7.0] - 2022-03-04
 
 ### Changed

src/Fantomas.Tests/RecordTests.fs

@@ -2001,3 +2001,22 @@ type Foo =   // comment
 type Foo = // comment
     { Bar: int }
 """
+
+[<Test>]
+let ``comment after equals sign in anonymous record field, 1921`` () =
+    formatSourceString
+        false
+        """
+let a =
+    {| Foo = //
+        2 |}
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let a =
+    {| Foo = //
+        2 |}
+"""

src/Fantomas.Tests/TypeDeclarationTests.fs

@@ -2962,3 +2962,24 @@ type Graph<'a when 'a:comparison> = Set<'a * 'a>
         """
 type Graph<'a when 'a: comparison> = Set<'a * 'a>
 """
+
+[<Test>]
+let ``comment after equals sign in type defn, 2001`` () =
+    formatSourceString
+        false
+        """
+type V = // comment
+    { X: SomeFieldType
+      Y: OhSomethingElse
+      Z: ALongTypeName }
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type V = // comment
+    { X: SomeFieldType
+      Y: OhSomethingElse
+      Z: ALongTypeName }
+"""