AddParameterTests.Cascading.vb

' 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.
 
Imports Microsoft.CodeAnalysis.ChangeSignature
Imports Microsoft.CodeAnalysis.Editor.UnitTests.Extensions
Imports Microsoft.CodeAnalysis.Test.Utilities.ChangeSignature
 
Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.ChangeSignature
    <Trait(Traits.Feature, Traits.Features.ChangeSignature)>
    Partial Public Class ChangeSignatureTests
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToImplementedMethod() As Task
            Dim markup = <Text><![CDATA[
Interface I
    Sub Goo(x As Integer, y As String)
End Interface

Class C
    Implements I

    $$Public Sub Goo(x As Integer, y As String) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Interface I
    Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
End Interface

Class C
    Implements I

    Public Sub Goo(y As String, newIntegerParameter As Integer, x As Integer) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToImplementedMethod_WithTuples() As Task
            Dim markup = <Text><![CDATA[
Interface I
    Sub Goo(x As (Integer, Integer), y As (String, String))
End Interface

Class C
    Implements I

    $$Public Sub Goo(x As (Integer, Integer), y As (String, String)) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Interface I
    Sub Goo(y As (String, String), newIntegerParameter As Integer, x As (Integer, Integer))
End Interface

Class C
    Implements I

    Public Sub Goo(y As (String, String), newIntegerParameter As Integer, x As (Integer, Integer)) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToImplementingMethod() As Task
            Dim markup = <Text><![CDATA[
Interface I
    $$Sub Goo(x As Integer, y As String)
End Interface

Class C
    Implements I

    Public Sub Goo(x As Integer, y As String) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Interface I
    Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
End Interface

Class C
    Implements I

    Public Sub Goo(y As String, newIntegerParameter As Integer, x As Integer) Implements I.Goo
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToOverriddenMethod() As Task
            Dim markup = <Text><![CDATA[
Class B
    Overridable Sub Goo(x As Integer, y As String)
    End Sub
End Class

Class D
    Inherits B

    $$Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    Overridable Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class D
    Inherits B

    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToOverridingMethod() As Task
            Dim markup = <Text><![CDATA[
Class B
    $$Overridable Sub Goo(x As Integer, y As String)
    End Sub
End Class

Class D
    Inherits B

    Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    Overridable Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class D
    Inherits B

    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToOverriddenMethod_Transitive() As Task
 
            Dim markup = <Text><![CDATA[
Class B
    Overridable Sub Goo(x As Integer, y As String)
    End Sub
End Class

Class C
    Inherits B
    Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class

Class D
    Inherits C
    $$Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    Overridable Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class C
    Inherits B
    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class

Class D
    Inherits C
    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToOverridingMethod_Transitive() As Task
 
            Dim markup = <Text><![CDATA[
Class B
    $$Overridable Sub Goo(x As Integer, y As String)
    End Sub
End Class

Class C
    Inherits B
    Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class

Class D
    Inherits C
    Public Overrides Sub Goo(x As Integer, y As String)
        MyBase.Goo(x, y)
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    Overridable Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class C
    Inherits B
    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class

Class D
    Inherits C
    Public Overrides Sub Goo(y As String, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
 
        End Function
 
        <Fact>
        Public Async Function TestAddParameter_Cascade_ToMethods_Complex() As Task
 
            '     B   I   I2
            '      \ / \ / 
            '       D  (I3)
            '      / \   \
            '   $$D2  D3  C
 
            Dim markup = <Text><![CDATA[
Class B
    Overridable Sub M(x As Integer, y As String)
    End Sub
End Class

Class D
    Inherits B
    Implements I
    Public Overrides Sub M(x As Integer, y As String) Implements I.M
    End Sub
End Class

Class D2
    Inherits D
    Overrides Sub $$M(x As Integer, y As String)
    End Sub
End Class

Class D3
    Inherits D
    Overrides Sub M(x As Integer, y As String)
    End Sub
End Class

Interface I
    Sub M(x As Integer, y As String)
End Interface

Interface I2
    Sub M(x As Integer, y As String)
End Interface

Interface I3
    Inherits I, I2
End Interface

Class C
    Implements I3
    Public Sub M(x As Integer, y As String) Implements I.M, I2.M
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    Overridable Sub M(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class D
    Inherits B
    Implements I
    Public Overrides Sub M(y As String, newIntegerParameter As Integer, x As Integer) Implements I.M
    End Sub
End Class

Class D2
    Inherits D
    Overrides Sub M(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Class D3
    Inherits D
    Overrides Sub M(y As String, newIntegerParameter As Integer, x As Integer)
    End Sub
End Class

Interface I
    Sub M(y As String, newIntegerParameter As Integer, x As Integer)
End Interface

Interface I2
    Sub M(y As String, newIntegerParameter As Integer, x As Integer)
End Interface

Interface I3
    Inherits I, I2
End Interface

Class C
    Implements I3
    Public Sub M(y As String, newIntegerParameter As Integer, x As Integer) Implements I.M, I2.M
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
 
        Public Shared Async Function TestAddParameter_Cascade_ToOverridingMethod_IncludeParamTags() As Task
 
            Dim markup = <Text><![CDATA[
Class B
    ''' <param name="a"></param>
    ''' <param name="b"></param>
    Overridable Sub Goo(a As Integer, b As Integer)
    End Sub
End Class

Class D
    Inherits B

    ''' <param name="x"></param>
    ''' <param name="y"></param>
    Public Overrides Sub $$Goo(x As Integer, y As Integer)
        MyBase.Goo(x, y)
    End Sub
End Class]]></Text>.NormalizedValue()
            Dim permutation = {
                New AddedParameterOrExistingIndex(1),
                New AddedParameterOrExistingIndex(New AddedParameter(Nothing, "Integer", "newIntegerParameter", CallSiteKind.Value, "12345"), "Integer"),
                New AddedParameterOrExistingIndex(0)}
            Dim updatedCode = <Text><![CDATA[
Class B
    ''' <param name="b"></param>
    ''' <param name="newIntegerParameter"></param>
    ''' <param name="a"></param>
    Overridable Sub Goo(b As Integer, newIntegerParameter As Integer, a As Integer)
    End Sub
End Class

Class D
    Inherits B

    ''' <param name="y"></param>
    ''' <param name="newIntegerParameter"></param>
    ''' <param name="x"></param>
    Public Overrides Sub Goo(y As Integer, newIntegerParameter As Integer, x As Integer)
        MyBase.Goo(y, 12345, x)
    End Sub
End Class]]></Text>.NormalizedValue()
 
            Await TestChangeSignatureViaCommandAsync(LanguageNames.VisualBasic, markup, updatedSignature:=permutation, expectedUpdatedInvocationDocumentCode:=updatedCode)
        End Function
    End Class
End Namespace
File: ChangeSignature\AddParameterTests.Cascading.vb	Web Access
Project: ..\..\..\src\EditorFeatures\VisualBasicTest\Microsoft.CodeAnalysis.VisualBasic.EditorFeatures.UnitTests.vbproj (Microsoft.CodeAnalysis.VisualBasic.EditorFeatures.UnitTests)