From 97c2b9baf131e3b5a01337e60a294a9136d0aba1 Mon Sep 17 00:00:00 2001
From: Mehrshad <code.rezaei@gmail.com>
Date: Thu, 28 Dec 2023 16:39:10 +0330
Subject: [PATCH] Tests(UnneededRecKeyword): add a failure test

---
 .../Rules/Conventions/UnneededRecKeyword.fs    | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/tests/FSharpLint.Core.Tests/Rules/Conventions/UnneededRecKeyword.fs b/tests/FSharpLint.Core.Tests/Rules/Conventions/UnneededRecKeyword.fs
index a6851b00f..aa8e7390d 100644
--- 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