Test(FavourIgnoreOverLetWild): added more tests

fsprojects · Dec 26, 2023 · 1ceb155 · 1ceb155
1 parent 0d8cbcd
commit 1ceb155
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/tests/FSharpLint.Core.Tests/Rules/Binding/FavourIgnoreOverLetWild.fs b/tests/FSharpLint.Core.Tests/Rules/Binding/FavourIgnoreOverLetWild.fs
@@ -62,3 +62,23 @@ module Program
         let result = this.ApplyQuickFix source
 
         Assert.AreEqual(expected, result)
+
+    [<Test>]
+    member this.LetWildCardInParanUnitValueSuggestedFix() =
+        let source = """
+module Program
+
+let ((((_)))) = List.iter (fun x -> ()) []"""
+
+        let expected = """
+module Program
+
+(List.iter (fun x -> ()) []) |> ignore"""
+
+        this.Parse source
+
+        Assert.IsTrue(this.ErrorExistsAt(4, 4))
+
+        let result = this.ApplyQuickFix source
+
+        Assert.AreEqual(expected, result)