From dd0807b17de97345af6bdb303a73ec4d69844f44 Mon Sep 17 00:00:00 2001
From: Huo Yaoyuan <huoyaoyuan@hotmail.com>
Date: Sun, 7 Mar 2021 22:50:16 +0800
Subject: [PATCH] Add unit test for p/invoke.

---
 .../CSharp/Tests/NamingStyles/NamingStylesTests.cs   | 12 ++++++++++++
 .../Tests/NamingStyles/NamingStylesTests.vb          |  9 +++++++++
 2 files changed, 21 insertions(+)

diff --git a/src/Analyzers/CSharp/Tests/NamingStyles/NamingStylesTests.cs b/src/Analyzers/CSharp/Tests/NamingStyles/NamingStylesTests.cs
index ed4edba46ac14..647266a5b938f 100644
--- a/src/Analyzers/CSharp/Tests/NamingStyles/NamingStylesTests.cs
+++ b/src/Analyzers/CSharp/Tests/NamingStyles/NamingStylesTests.cs
@@ -1382,5 +1382,17 @@ class C : I
     int [|global::I.X|] => 0;
 }", new TestParameters(options: s_options.PropertyNamesArePascalCase));
         }
+
+        [Fact]
+        [WorkItem(51727, "https://github.com/dotnet/roslyn/issues/51727")]
+        public async Task TestExternAsync()
+        {
+            await TestMissingInRegularAndScriptAsync(
+@"
+class C
+{
+    static extern void [|some_p_invoke()|];
+}", new TestParameters(options: s_options.MethodNamesArePascalCase));
+        }
     }
 }
diff --git a/src/Analyzers/VisualBasic/Tests/NamingStyles/NamingStylesTests.vb b/src/Analyzers/VisualBasic/Tests/NamingStyles/NamingStylesTests.vb
index 20f3460bbb0ae..3cad4c80d6d14 100644
--- a/src/Analyzers/VisualBasic/Tests/NamingStyles/NamingStylesTests.vb
+++ b/src/Analyzers/VisualBasic/Tests/NamingStyles/NamingStylesTests.vb
@@ -497,5 +497,14 @@ End Class",
                 options:=s_options.TypeParameterNamesStartWithT)
         End Function
 
+        <Fact, Trait(Traits.Feature, Traits.Features.NamingStyle)>
+        <WorkItem(51727, "https://github.com/dotnet/roslyn/issues/51727")>
+        Public Async Function TestExternMethod() As Task
+            Await TestMissingInRegularAndScriptAsync(
+"Public Class C
+    Declare Sub [|some_p_invoke|] Lib ""some""()
+End Class",
+                New TestParameters(options:=s_options.MethodNamesArePascalCase))
+        End Function
     End Class
 End Namespace