Skip to content

Commit bed28b2

Browse files
committed
Test(FavourIgnoreOverLetWild): added more tests
1 parent e7aced4 commit bed28b2

File tree

1 file changed

+20
-0
lines changed

1 file changed

+20
-0
lines changed

tests/FSharpLint.Core.Tests/Rules/Binding/FavourIgnoreOverLetWild.fs

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -67,3 +67,23 @@ module Program
6767
let result = this.ApplyQuickFix source
6868

6969
Assert.AreEqual(expected, result)
70+
71+
[<Test>]
72+
member this.LetWildCardInParanUnitValueSuggestedFix() =
73+
let source = """
74+
module Program
75+
76+
let ((((_)))) = List.iter (fun x -> ()) []"""
77+
78+
let expected = """
79+
module Program
80+
81+
(List.iter (fun x -> ()) []) |> ignore"""
82+
83+
this.Parse source
84+
85+
Assert.IsTrue(this.ErrorExistsAt(4, 4))
86+
87+
let result = this.ApplyQuickFix source
88+
89+
Assert.AreEqual(expected, result)

0 commit comments

Comments
 (0)