src/Analyzers/VisualBasic/Tests/UseExplicitTupleName/UseExplicitTupleNameTests.vb - main - githubmirror/roslyn

src/Analyzers/VisualBasic/Tests/UseExplicitTupleName/UseExplicitTupleNameTests.vb
144 строки4 KB
DoctorKrolic
VerifyVB
27 ноя 2022, 13:47
27 ноя 2022, 13:47d110ae9
' 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 VerifyVB = Microsoft.CodeAnalysis.Editor.UnitTests.CodeActions.VisualBasicCodeFixVerifier(Of
    Microsoft.CodeAnalysis.UseExplicitTupleName.UseExplicitTupleNameDiagnosticAnalyzer,
    Microsoft.CodeAnalysis.UseExplicitTupleName.UseExplicitTupleNameCodeFixProvider)

Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.UseExplicitTupleName
    <Trait(Traits.Feature, Traits.Features.CodeActionsUseExplicitTupleName)>
    Public Class UseExplicitTupleNameTests
        <Fact>
        Public Async Function TestNamedTuple1() As Task
            Await VerifyVB.VerifyCodeFixAsync("
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.[|Item1|]
    end sub
end class", "
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.i
    end sub
end class")
        End Function

        <Fact>
        Public Async Function TestInArgument() As Task
            Await VerifyVB.VerifyCodeFixAsync("
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        Goo(v1.[|Item1|])
    end sub

    Sub Goo(i as integer)
    end sub
end class", "
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        Goo(v1.i)
    end sub

    Sub Goo(i as integer)
    end sub
end class")
        End Function

        <Fact>
        Public Async Function TestNamedTuple2() As Task
            Await VerifyVB.VerifyCodeFixAsync("
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.[|Item2|]
    end sub
end class", "
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.s
    end sub
end class")
        End Function

        <Fact>
        Public Async Function TestMissingOnMatchingName1() As Task
            Dim code = "
class C
    Sub M()
        dim v1 as (integer, s as string)
        dim v2 = v1.Item1
    end sub
end class"

            Await VerifyVB.VerifyCodeFixAsync(code, code)
        End Function

        <Fact>
        Public Async Function TestMissingOnMatchingName2() As Task
            Dim code = "
class C
    Sub M()
        dim v1 as (Item1 as integer, s as string)
        dim v2 = v1.Item1
    end sub
end class"

            Await VerifyVB.VerifyCodeFixAsync(code, code)
        End Function

        <Fact>
        Public Async Function TestWrongCasing() As Task
            Dim code = "
class C
    Sub M()
        dim v1 as (item1 as integer, s as string)
        dim v2 = v1.Item1
    end sub
end class"

            Await VerifyVB.VerifyCodeFixAsync(code, code)
        End Function

        <Fact>
        Public Async Function TestFixAll1() As Task
            Await VerifyVB.VerifyCodeFixAsync("
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.[|Item1|]
        dim v3 = v1.[|Item2|]
    end sub
end class", "
class C
    Sub M()
        dim v1 as (i as integer, s as string)
        dim v2 = v1.i
        dim v3 = v1.s
    end sub
end class")
        End Function

        <Fact>
        Public Async Function TestFixAll2() As Task
            Await VerifyVB.VerifyCodeFixAsync("
class C
    Sub M()
        dim v1 as (i as integer, s as integer) 
        v1.[|Item1|] = v1.[|Item2|]
    end sub
end class", "
class C
    Sub M()
        dim v1 as (i as integer, s as integer) 
        v1.i = v1.s
    end sub
end class")
        End Function
    End Class
End Namespace