Add regression test for cons pattern in let binding (#1996) (#2891)

* Add regression test for cons pattern in let binding (#1996) * Correct test. * Add changelog entry --------- Co-authored-by: nojaf <[email protected]>
fsprojects · Jun 2, 2023 · bfb4afc · bfb4afc
1 parent 6424a61
commit bfb4afc
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -7,6 +7,7 @@
 
 ### Fixed
 * Missing space before arrow. [#2888](https://github.com/fsprojects/fantomas/issues/2888)
+* Cons pattern in let bindings is converted to invalid code. [#1996](https://github.com/fsprojects/fantomas/issues/1996)
 
 ## [6.0.3] - 2023-05-14
 

diff --git a/src/Fantomas.Core.Tests/LetBindingTests.fs b/src/Fantomas.Core.Tests/LetBindingTests.fs
@@ -2165,3 +2165,18 @@ let x
     ) =
     print "hello"
 """
+
+[<Test>]
+let ``cons pattern in let binding, 1996`` () =
+    formatSourceString
+        false
+        """
+let x::y = []
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let x :: y = []
+"""