FSharpLint.Core.Tests: test for private property

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