src/EditorFeatures/VisualBasicTest/Recommendations/Declarations/EndBlockKeywordRecommenderTests.vb - main - githubmirror/roslyn

src/EditorFeatures/VisualBasicTest/Recommendations/Declarations/EndBlockKeywordRecommenderTests.vb
235 строк7 KB
Cyrus Najmabadi
Organize VB imports
27 июн 2025, 21:53
27 июн 2025, 21:53e9c47fd
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.

Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.Recommendations.Declarations
    <Trait(Traits.Feature, Traits.Features.KeywordRecommending)>
    Public Class EndBlockKeywordRecommenderTests
        Inherits RecommenderTests

        <Fact>
        Public Sub EndSubInBrokenMethodBodyTest()
            VerifyRecommendationsContain(<ClassDeclaration>Sub Goo()
|</ClassDeclaration>, "End Sub")
        End Sub

        <Fact>
        Public Sub NotAfterCompletedMethodBodyTest()
            VerifyRecommendationsMissing(<ClassDeclaration>
Sub Goo()
End Sub
|</ClassDeclaration>, "End")
        End Sub

        <Fact>
        Public Sub NotAfterMustOverrideMethodDeclaration1Test()
            VerifyRecommendationsMissing(<ClassDeclaration>
MustOverride Sub Goo()
|</ClassDeclaration>, "End")
        End Sub

        <Fact>
        Public Sub NotAfterMustOverrideMethodDeclaration2Test()
            VerifyRecommendationsMissing(<ClassDeclaration>
MustOverride Sub Goo()
|</ClassDeclaration>, "End Sub")
        End Sub

        <Fact>
        Public Sub EndPropertyAfterIncompleteProperty1Test()
            VerifyRecommendationsContain(<ClassDeclaration>Property goo As Integer
Get
End Get
Set(value As Integer)
End Set
|</ClassDeclaration>, "End Property")
        End Sub

        <Fact>
        Public Sub EndPropertyAfterIncompleteProperty2Test()
            VerifyRecommendationsContain(<ClassDeclaration>Property goo As Integer
Get
End Get
Set(value As Integer)
End Set
End |</ClassDeclaration>, "Property")
        End Sub

        <Fact>
        Public Sub EndSubInLambdaTest()
            VerifyRecommendationsContain(<MethodBody>Dim goo = Sub()
|</MethodBody>, "End Sub")
        End Sub

        <Fact>
        Public Sub EndIfInMethodBody1Test()
            VerifyRecommendationsContain(<MethodBody>If True Then
|</MethodBody>, "End", "End If")
        End Sub

        <Fact>
        Public Sub EndIfInMethodBody2Test()
            VerifyRecommendationsContain(<MethodBody>If True Then
End |</MethodBody>, "If")
        End Sub

        <Fact>
        Public Sub EndWithInMethodBodyTest()
            VerifyRecommendationsContain(<MethodBody>With goo
|</MethodBody>, "End With")
        End Sub

        <Fact>
        Public Sub EndWhileInMethodBodyTest()
            VerifyRecommendationsContain(<MethodBody>While goo
|</MethodBody>, "End While")
        End Sub

        <Fact>
        Public Sub EndSelectInMethodBody1Test()
            VerifyRecommendationsContain(<MethodBody>Select goo
|</MethodBody>, "End Select")
        End Sub

        <Fact>
        Public Sub EndSelectInMethodBody2Test()
            VerifyRecommendationsContain(<MethodBody>Select goo
Case 1
|</MethodBody>, "End Select")
        End Sub

        <Fact>
        Public Sub EndSelectInMethodBody3Test()
            VerifyRecommendationsContain(<MethodBody>Select goo
Case 1
Case Else
|</MethodBody>, "End Select")
        End Sub

        <Fact>
        Public Sub EndSyncLockInMethodBodyTest()
            VerifyRecommendationsContain(<MethodBody>SyncLock goo
|</MethodBody>, "End SyncLock")
        End Sub

        <Fact>
        Public Sub EndModuleInFile1Test()
            VerifyRecommendationsContain(<File>Module Goo
|</File>, {"End Module"})
        End Sub

        <Fact>
        Public Sub EndModuleInFile2Test()
            VerifyRecommendationsContain(<File>
Module Goo
End |</File>, "Module")
        End Sub

        <Fact>
        Public Sub EndInterfaceInFile1Test()
            VerifyRecommendationsContain(<File>Interface IGoo
|</File>, {"End Interface"})
        End Sub

        <Fact>
        Public Sub EndInterfaceInFile2Test()
            VerifyRecommendationsContain(<File>
Interface IGoo
End |</File>, "Interface")
        End Sub

        <Fact>
        Public Sub EndClassInFile1Test()
            VerifyRecommendationsContain(<File>Class Goo
|</File>, {"End Class"})
        End Sub

        <Fact>
        Public Sub EndClassInFile2Test()
            VerifyRecommendationsContain(<File>
Class Goo
End |</File>, "Class")
        End Sub

        <Fact>
        Public Sub EndStructureInFile1Test()
            VerifyRecommendationsContain(<File>Structure Goo
|</File>, {"End Structure"})
        End Sub

        <Fact>
        Public Sub EndStructureInFile2Test()
            VerifyRecommendationsContain(<File>
Structure Goo
End |</File>, "Structure")
        End Sub

        <Fact>
        Public Sub EndEnumInFile1Test()
            VerifyRecommendationsContain(<File>Enum Goo
|</File>, {"End Enum"})
        End Sub

        <Fact>
        Public Sub EndEnumInFile2Test()
            VerifyRecommendationsContain(<File>
Enum Goo
End |</File>, "Enum")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/539311")>
        Public Sub EndBlockMissingInPreprocessorTest()
            VerifyRecommendationsMissing(
<ClassDeclaration>
Module M
    Sub Goo()
        #If t|
    End Sub
End Module
</ClassDeclaration>, {"End Module", "End Sub"})
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540069")>
        Public Sub EndSubSuggestFunctionTest()
            VerifyRecommendationsContain(<ClassDeclaration>Sub Goo()
End |</ClassDeclaration>, "Function", "Sub")
        End Sub

        <WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540069")>
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/530599")>
        Public Sub EndFunctionDoesNotSuggestEndSubTest()
            VerifyRecommendationsMissing(<ClassDeclaration>Function Goo()
|</ClassDeclaration>, "End Sub")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540069")>
        Public Sub EndFunctionSuggestSubTest()
            VerifyRecommendationsContain(<ClassDeclaration>Function Goo()
End |</ClassDeclaration>, "Function", "Sub")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540069")>
        Public Sub EndSubNotClassSuggestedTest()
            VerifyRecommendationsMissing(<ClassDeclaration>Sub Goo()
|</ClassDeclaration>, "End Class", "End Module", "End Structure", "End Interface")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/969097")>
        Public Sub EndClassPairingsTest()
            VerifyRecommendationsMissing(<File>Class Goo()
End |</File>, "Module", "Interface", "Structure")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/969097")>
        Public Sub EndModulePairingsTest()
            VerifyRecommendationsMissing(<File>Module Goo()
End |</File>, "Class", "Interface", "Structure")
        End Sub

        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540069")>
        Public Sub EndModuleNotSubSuggestedTest()
            VerifyRecommendationsMissing(<File>Module Goo()
|</File>, "End Sub", "End Function")
        End Sub
    End Class
End Namespace