Add regression test for comment after match keyword. Fixes fsprojects…

…#1851. (fsprojects#2127)
jindraivanek · Mar 30, 2022 · 74e591b · 74e591b
1 parent a239de1
commit 74e591b
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -5,6 +5,7 @@
 ### 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)
+* Comment after match keyword is lost. [#1851](https://github.com/fsprojects/fantomas/issues/1851)
 
 ## [4.7.0] - 2022-03-04
 

diff --git a/src/Fantomas.Tests/PatternMatchingTests.fs b/src/Fantomas.Tests/PatternMatchingTests.fs
@@ -2123,3 +2123,30 @@ match!
 match! a with // foo
 | B b -> ()
 """
+
+[<Test>]
+let ``comment after match keyword, 1851`` () =
+    formatSourceString
+        false
+        """
+match // foo
+                                a with
+| _ -> ()
+
+match! // foo!
+                                a with
+| _ -> ()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+match // foo
+    a with
+| _ -> ()
+
+match! // foo!
+    a with
+| _ -> ()
+"""