PublicValuesNames: add test for nested function

Which tests for the fact that the rule should not fire for
nested functions because they are not public.

Author: webwarrior-ws

tests/FSharpLint.Core.Tests/Rules/Conventions/Naming/PublicValuesNames.fs

@@ -94,3 +94,23 @@ let (|Empty|_|) str =
 """
 
          this.AssertNoWarnings()
+
+let pascalCaseConfig = { config with Naming = Some NamingCase.PascalCase }
+
+[<TestFixture>]
+type TestConventionsPublicValuesNamesPascalCase() =
+    inherit TestAstNodeRuleBase.TestAstNodeRuleBase(PublicValuesNames.rule pascalCaseConfig)
+        
+    [<Test>]
+    member this.``Nested function should not generate warning``() =
+        this.Parse """
+module Program
+
+[ "one" ]
+|> Seq.iter (fun str ->
+    let someFunc bar = bar
+    someFunc str
+)
+"""
+
+        this.AssertNoWarnings()