FShapLint.Core.Tests: test for private member

webwarrior-ws · Dec 28, 2023 · cd5eb27 · cd5eb27
1 parent ee1ef8f
commit cd5eb27
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs b/tests/FSharpLint.Core.Tests/Rules/Conventions/UsedUnderscorePrefixedElements.fs
@@ -49,5 +49,15 @@ type CustomerName(firstName) =
         printfn "%A" this._FirstName"""
 
         Assert.IsFalse this.ErrorsExist
+
+
+    member this.``Using private member with underscore prefix``() =
+        this.Parse """
+type CustomerName(firstName) =
+    member private this._FirstName = firstName
+    member this.MyFunc () =
+        printfn "%A" this._FirstName"""
+
+        Assert.IsFalse this.ErrorsExist