Tests(UnneededRecKeyword): add a failure test

fsprojects · Jan 6, 2024 · 97c2b9b · 97c2b9b
1 parent 3b20b01
commit 97c2b9b
Showing 1 changed file with 17 additions and 1 deletion.
diff --git a/tests/FSharpLint.Core.Tests/Rules/Conventions/UnneededRecKeyword.fs b/tests/FSharpLint.Core.Tests/Rules/Conventions/UnneededRecKeyword.fs
@@ -20,9 +20,25 @@ let rec Foo () =
         Assert.IsTrue this.NoErrorsExist
 
     [<Test>]
-    member this.UnneededRecKeywordShouldProduceError() =
+    member this.UnneededRecKeywordShouldProduceError_1() =
         this.Parse """
 let rec Foo someParam =
     ()"""
 
         Assert.IsTrue this.ErrorsExist
+
+    [<Test>]
+    member this.UnneededRecKeywordShouldProduceError_2() =
+        this.Parse """
+let rec Foo someParam =
+    ()
+
+[<EntryPoint>]
+let main args =
+    let Foo () =
+        ()
+
+    Foo()
+    0"""
+
+        Assert.IsTrue this.ErrorsExist