' 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.CodeRefactorings
Imports Microsoft.CodeAnalysis.Editor.UnitTests.Workspaces
Imports Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.CodeRefactorings
Imports Microsoft.CodeAnalysis.VisualBasic.IntroduceVariable
 
Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.IntroduceVariable
    <Trait(Traits.Feature, Traits.Features.CodeActionsIntroduceLocalForExpression)>
    Partial Public Class IntroduceLocalForExpressionTests
        Inherits AbstractVisualBasicCodeActionTest_NoEditor
 
        Protected Overrides Function CreateCodeRefactoringProvider(workspace As TestWorkspace, parameters As TestParameters) As CodeRefactoringProvider
            Return New VisualBasicIntroduceLocalForExpressionCodeRefactoringProvider()
        End Function
 
        <Fact>
        Public Async Function IntroduceLocal() As Task
            Await TestInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        N()[||]
    end sub
 
    function N() as string
    end function
end class",
"
imports System
 
class C
    sub M()
        Dim {|Rename:v|} = N()
    end sub
 
    function N() as string
    end function
end class")
        End Function
 
        <Fact>
        Public Async Function IntroduceLocal_TrailingBlankLine() As Task
            Await TestInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        N()[||]
 
    end sub
 
    function N() as string
    end function
end class",
"
imports System
 
class C
    sub M()
        Dim {|Rename:v|} = N()
 
    end sub
 
    function N() as string
    end function
end class")
        End Function
 
        <Fact>
        Public Async Function IntroduceLocal_Selection() As Task
            Await TestInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        [|N()|]
    end sub
 
    function N() as string
    end function
end class",
"
imports System
 
class C
    sub M()
        Dim {|Rename:v|} = N()
    end sub
 
    function N() as string
    end function
end class")
        End Function
 
        <Fact>
        Public Async Function IntroduceLocal_Space() As Task
            Await TestInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        N() [||]
    end sub
 
    function N() as string
    end function
end class",
"
imports System
 
class C
    sub M()
        Dim {|Rename:v|} = N() 
    end sub
 
    function N() as string
    end function
end class")
        End Function
 
        <Fact>
        Public Async Function IntroduceLocal_LeadingTrivia() As Task
            Await TestInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        ' Comment
        N()[||]
    end sub
 
    function N() as string
    end function
end class",
"
imports System
 
class C
    sub M()
        ' Comment
        Dim {|Rename:v|} = N()
    end sub
 
    function N() as string
    end function
end class")
        End Function
 
        <Fact>
        Public Async Function MissingOnVoidCall() As Task
            Await TestMissingInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        Console.WriteLine()[||]
    end sub
end class")
        End Function
 
        <Fact>
        Public Async Function MissingOnDeclaration() As Task
            Await TestMissingInRegularAndScriptAsync(
"
imports System
 
class C
    sub M()
        dim x = N()[||]
    end sub
 
    function N() as string
    end function
end class")
        End Function
    End Class
End Namespace