Move unit tests to correct file

src/VisualStudio/Core/Test/CodeModel/VisualBasic/CodeAccessorFunctionTests.vb

 ' Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
 
-Imports System.Runtime.InteropServices
 Imports Microsoft.CodeAnalysis
-Imports Microsoft.CodeAnalysis.Text
 Imports Roslyn.Test.Utilities
 
 Namespace Microsoft.VisualStudio.LanguageServices.UnitTests.CodeModel.VisualBasic
@@ -49,6 +47,91 @@ End Class
             TestAccess(code, EnvDTE.vsCMAccess.vsCMAccessPrivate)
         End Sub
 
+#End Region
+
+#Region "FunctionKind tests"
+
+        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
+        Public Sub FunctionKind_AddHandler()
+            Dim code =
+<Code>
+Imports System
+
+Public Class C1
+
+   Public Custom Event E1 As EventHandler
+
+      $$AddHandler(ByVal value As EventHandler)
+      End AddHandler
+
+      RemoveHandler(ByVal value As EventHandler)
+      End RemoveHandler
+
+      RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
+      End RaiseEvent
+
+   End Event
+
+End Clas
+</Code>
+
+            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionAddHandler)
+        End Sub
+
+        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
+        Public Sub FunctionKind_RemoveHandler()
+            Dim code =
+<Code>
+Imports System
+
+Public Class C1
+
+   Public Custom Event E1 As EventHandler
+
+      AddHandler(ByVal value As EventHandler)
+      End AddHandler
+
+      $$RemoveHandler(ByVal value As EventHandler)
+      End RemoveHandler
+
+      RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
+      End RaiseEvent
+
+   End Event
+
+End Clas
+</Code>
+
+            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionRemoveHandler)
+        End Sub
+
+        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
+        Public Sub FunctionKind_RaiseEvent()
+            Dim code =
+<Code>
+Imports System
+
+Public Class C1
+
+   Public Custom Event E1 As EventHandler
+
+      AddHandler(ByVal value As EventHandler)
+      End AddHandler
+
+      RemoveHandler(ByVal value As EventHandler)
+      End RemoveHandler
+
+      $$RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
+      End RaiseEvent
+
+   End Event
+
+End Clas
+</Code>
+
+            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionRaiseEvent)
+        End Sub
+
 #End Region
 
         Protected Overrides ReadOnly Property LanguageName As String

src/VisualStudio/Core/Test/CodeModel/VisualBasic/CodeFunctionTests.vb

@@ -347,91 +347,6 @@ End Class
 
 #End Region
 
-#Region "FunctionKind tests"
-
-        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
-        Public Sub FunctionKind_AddHandler()
-            Dim code =
-<Code>
-Imports System
-
-Public Class C1
-
-   Public Custom Event E1 As EventHandler
-
-      $$AddHandler(ByVal value As EventHandler)
-      End AddHandler
-
-      RemoveHandler(ByVal value As EventHandler)
-      End RemoveHandler
-
-      RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
-      End RaiseEvent
-
-   End Event
-
-End Clas
-</Code>
-
-            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionAddHandler)
-        End Sub
-
-        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
-        Public Sub FunctionKind_RemoveHandler()
-            Dim code =
-<Code>
-Imports System
-
-Public Class C1
-
-   Public Custom Event E1 As EventHandler
-
-      AddHandler(ByVal value As EventHandler)
-      End AddHandler
-
-      $$RemoveHandler(ByVal value As EventHandler)
-      End RemoveHandler
-
-      RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
-      End RaiseEvent
-
-   End Event
-
-End Clas
-</Code>
-
-            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionRemoveHandler)
-        End Sub
-
-        <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>
-        Public Sub FunctionKind_RaiseEvent()
-            Dim code =
-<Code>
-Imports System
-
-Public Class C1
-
-   Public Custom Event E1 As EventHandler
-
-      AddHandler(ByVal value As EventHandler)
-      End AddHandler
-
-      RemoveHandler(ByVal value As EventHandler)
-      End RemoveHandler
-
-      $$RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
-      End RaiseEvent
-
-   End Event
-
-End Clas
-</Code>
-
-            TestFunctionKind(code, EnvDTE80.vsCMFunction2.vsCMFunctionRaiseEvent)
-        End Sub
-
-#End Region
-
 #Region "MustImplement tests"
 
         <ConditionalFact(GetType(x86)), Trait(Traits.Feature, Traits.Features.CodeModel)>