Reenabling ReplaceWithSuggestion for FS1129 (#16020)

Co-authored-by: Vlad Zarytovskii <[email protected]>

Author: psfinaki

vsintegration/src/FSharp.Editor/CodeFixes/ReplaceWithSuggestion.fs

@@ -19,7 +19,7 @@ open CancellableTasks
 type internal ReplaceWithSuggestionCodeFixProvider [<ImportingConstructor>] () =
     inherit CodeFixProvider()
 
-    override _.FixableDiagnosticIds = ImmutableArray.Create("FS0039", "FS0495")
+    override _.FixableDiagnosticIds = ImmutableArray.Create("FS0039", "FS0495", "FS1129")
 
     override this.RegisterCodeFixesAsync context =
         if context.Document.Project.IsFSharpCodeFixesSuggestNamesForErrorsEnabled then

vsintegration/tests/FSharp.Editor.Tests/CodeFixes/ReplaceWithSuggestionTests.fs

@@ -156,3 +156,37 @@ let song = Song(title = "Under The Milky Way")
     let actual = codeFix |> multiFix code Auto
 
     Assert.Equal(expected, actual)
+
+[<Fact>]
+let ``Fixes FS1129`` () =
+    let code =
+        """
+type SomeType = { TheField : string }
+
+let f x =
+    match x with
+    | { TheField = "A" } -> true
+    | { TheFiedl = "B" } -> true
+    | _ -> false
+"""
+
+    let expected =
+        [
+            {
+                Message = "Replace with 'TheField'"
+                FixedCode =
+                    """
+type SomeType = { TheField : string }
+
+let f x =
+    match x with
+    | { TheField = "A" } -> true
+    | { TheField = "B" } -> true
+    | _ -> false
+"""
+            }
+        ]
+
+    let actual = codeFix |> multiFix code Auto
+
+    Assert.Equal(expected, actual)