' 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.CodeFixes
Imports Microsoft.CodeAnalysis.Diagnostics
Imports Microsoft.CodeAnalysis.Editor.UnitTests.Extensions
Imports Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.Diagnostics
Imports Microsoft.CodeAnalysis.VisualBasic.RemoveUnnecessaryImports
 
Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.RemoveUnnecessaryImports
    <Trait(Traits.Feature, Traits.Features.CodeActionsRemoveUnnecessaryImports)>
    Partial Public Class RemoveUnnecessaryImportsTests
        Inherits AbstractVisualBasicDiagnosticProviderBasedUserDiagnosticTest_NoEditor
 
        Friend Overrides Function CreateDiagnosticProviderAndFixer(workspace As Workspace) As (DiagnosticAnalyzer, CodeFixProvider)
            Return (New VisualBasicRemoveUnnecessaryImportsDiagnosticAnalyzer(),
                    New VisualBasicRemoveUnnecessaryImportsCodeFixProvider())
        End Function
 
        <Fact>
        Public Async Function TestProjectLevelMemberImport1() As Task
            Await TestAsync(
"[|Imports System
Module Program
    Sub Main(args As DateTime())
    End Sub
End Module|]",
"Module Program
    Sub Main(args As DateTime())
    End Sub
End Module",
parseOptions:=TestOptions.Regular,
compilationOptions:=TestOptions.ReleaseExe.WithGlobalImports({GlobalImport.Parse("System")}))
        End Function
 
        <Fact>
        Public Async Function TestProjectLevelMemberImport2() As Task
            Await TestMissingInRegularAndScriptAsync(
"[|Imports System
Module Program
    Sub Main(args As DateTime())
    End Sub
End Module|]")
        End Function
 
        <Fact>
        Public Async Function TestNoImports() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Module Program
    Sub Main(args As String())
    End Sub
End Module|]",
"Module Program
    Sub Main(args As String())
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestNoImportsWithCopyright() As Task
            Await TestInRegularAndScript1Async(
"[|' Copyright (c) Somebody.
 
Imports System
Imports System.Collections.Generic
Imports System.Linq
 
Module Program
    Sub Main(args As String())
    End Sub
End Module|]",
"' Copyright (c) Somebody.
 
Module Program
    Sub Main(args As String())
    End Sub
End Module")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/27006")>
        Public Async Function TestReferencesWithCopyrightAndGroupings() As Task
            Await TestInRegularAndScript1Async(
"[|' Copyright (c) Somebody.
 
Imports System.Collections.Generic
 
Imports System.Linq
 
Imports System
 
Module Program
    Sub Main(args As String())
        Dim a As Action
    End Sub
End Module|]",
"' Copyright (c) Somebody.
 
Imports System
 
Module Program
    Sub Main(args As String())
        Dim a As Action
    End Sub
End Module")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/27006")>
        Public Async Function TestReferencesWithCopyrightAndPreservableTrivia() As Task
            Await TestInRegularAndScript1Async(
"[|' Copyright (c) Somebody.
 
Imports System.Collections.Generic
 
Imports System
' This is important
Imports System.Linq
 
Module Program
    Sub Main(args As String())
        Dim a As Action
    End Sub
End Module|]",
"' Copyright (c) Somebody.
 
Imports System
' This is important
 
Module Program
    Sub Main(args As String())
        Dim a As Action
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestSimpleTypeName() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Module Program
    Sub Main(args As String())
        Dim s As DateTime
    End Sub
End Module|]",
"Imports System
Module Program
    Sub Main(args As String())
        Dim s As DateTime
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestGenericTypeName() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Module Program
    Sub Main(args As String())
        Dim s As List(Of Integer)
    End Sub
End Module|]",
"Imports System.Collections.Generic
Module Program
    Sub Main(args As String())
        Dim s As List(Of Integer)
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestNamespaceName() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Module Program
    Sub Main(args As String())
        Dim s As Collections.Generic.List(Of Integer)
    End Sub
End Module|]",
"Imports System
Module Program
    Sub Main(args As String())
        Dim s As Collections.Generic.List(Of Integer)
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestAliasName() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports G = System.Collections.Generic
Module Program
    Sub Main(args As String())
        Dim s As G.List(Of Integer)
    End Sub
End Module|]",
"Imports G = System.Collections.Generic
Module Program
    Sub Main(args As String())
        Dim s As G.List(Of Integer)
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestExtensionMethod() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Module Program
    Sub Main(args As String())
        args.Where(Function(a) a.Length > 21)
    End Sub
End Module|]",
"Imports System.Linq
Module Program
    Sub Main(args As String())
        args.Where(Function(a) a.Length > 21)
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestModuleMember() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports Goo
Namespace Goo
    Public Module M
        Public Sub Bar(i As Integer)
        End Sub
    End Module
End Namespace
Module Program
    Sub Main(args As String())
        Bar(0)
    End Sub
End Module|]",
"Imports Goo
Namespace Goo
    Public Module M
        Public Sub Bar(i As Integer)
        End Sub
    End Module
End Namespace
Module Program
    Sub Main(args As String())
        Bar(0)
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestInvalidCodeRemovesImports() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Imports System.Collections.Generic
Module Program
    Sub Main()
        gibberish Dim lst As List(Of String) 
 Console.WriteLine(""TEST"")
    End Sub
End Module|]",
"Imports System
Module Program
    Sub Main()
        gibberish Dim lst As List(Of String) 
 Console.WriteLine(""TEST"")
    End Sub
End Module")
        End Function
 
        <Fact>
        Public Async Function TestExcludedCodeIsIgnored() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
Module Program
    Sub Main()
#If False Then
 Console.WriteLine(""TEST"") 
#End If
    End Sub
End Module|]",
"Module Program
    Sub Main()
#If False Then
 Console.WriteLine(""TEST"") 
#End If
    End Sub
End Module")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541744")>
        Public Async Function TestCommentsAroundImportsStatement() As Task
            Await TestInRegularAndScript1Async(
<Text>'c1
[|Imports System.Configuration 'c2
Imports System, System.Collections.Generic 'c3
'c4
 
Module Module1
    Sub Main()
        Dim x As List(Of Integer)
    End Sub
End Module|]</Text>.NormalizedValue,
<Text>'c1
Imports System.Collections.Generic 'c3
'c4
 
Module Module1
    Sub Main()
        Dim x As List(Of Integer)
    End Sub
End Module</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541747")>
        Public Async Function TestAttribute() As Task
            Await TestMissingInRegularAndScriptAsync(
"[|Imports SomeNamespace
<SomeAttr>
Class Goo
End Class
Namespace SomeNamespace
    Public Class SomeAttrAttribute
        Inherits Attribute
    End Class
End Namespace|]")
        End Function
 
        <Fact>
        Public Async Function TestAttributeArgument() As Task
            Await TestMissingInRegularAndScriptAsync(
"[|Imports System
Imports SomeNamespace
<SomeAttribute(Goo.C)>
Module Program
    Sub Main(args As String())
    End Sub
End Module
Namespace SomeNamespace
    Public Enum Goo
        A
        B
        C
    End Enum
End Namespace
Public Class SomeAttribute
    Inherits Attribute
    Public Sub New(x As SomeNamespace.Goo)
    End Sub
End Class|]")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541757")>
        Public Async Function TestImportsSurroundedByDirectives() As Task
            Await TestInRegularAndScript1Async(
"#If True Then
[|Imports System.Collections.Generic
#End If
Module Program
End Module|]",
"#If True Then
#End If
Module Program
End Module")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541758")>
        Public Async Function TestRemovingUnbindableImports() As Task
            Await TestInRegularAndScript1Async(
"[|Imports gibberish
Module Program
End Module|]",
"Module Program
End Module")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541744")>
        Public Async Function TestPreservePrecedingComments() As Task
            Await TestInRegularAndScript1Async(
<Text>' c1
[|Imports System 'c2
' C3
 
Module Module1
End Module|]</Text>.NormalizedValue,
<Text>' c1
' C3
 
Module Module1
End Module</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541757")>
        Public Async Function TestDirective1() As Task
            Await TestInRegularAndScript1Async(
<Text>#If True Then
[|Imports System.Collections.Generic
#End If
 
Module Program
End Module|]</Text>.NormalizedValue,
<Text>#If True Then
#End If
 
Module Program
End Module</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541757")>
        Public Async Function TestDirective2() As Task
            Await TestInRegularAndScript1Async(
<Text>#If True Then
[|Imports System
Imports System.Collections.Generic
#End If
 
Module Program
    Dim a As List(Of Integer)
End Module|]</Text>.NormalizedValue,
<Text>#If True Then
Imports System.Collections.Generic
#End If
 
Module Program
    Dim a As List(Of Integer)
End Module</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541932")>
        Public Async Function TestImportsClauseRemoval1() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System, goo, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace|]",
"Imports System, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541932")>
        Public Async Function TestImportsClauseRemoval2() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System, System.Collections.Generic, goo
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace|]",
"Imports System, System.Collections.Generic Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541932")>
        Public Async Function TestImportsClauseRemoval3() As Task
            Await TestInRegularAndScript1Async(
"[|Imports goo, System, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace|]",
"Imports System, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541758")>
        Public Async Function TestUnbindableNamespace() As Task
            Await TestInRegularAndScript1Async(
"[|Imports gibberish
Module Program
End Module|]",
"Module Program
End Module")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541780")>
        Public Async Function TestRemoveClause() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System, goo, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace|]",
"Imports System, System.Collections.Generic
Module Program
    Sub Main(args As String())
        Console.WriteLine(""TEST"")
        Dim q As List(Of Integer)
    End Sub
End Module
Namespace goo
    Class bar
    End Class
End Namespace")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/528603")>
        Public Async Function TestRemoveClauseWithExplicitLC1() As Task
            Await TestInRegularAndScript1Async(
"[|Imports A _
 , B
Module Program
    Sub Main(args As String())
        Dim q As CA
    End Sub
End Module
Namespace A
    Public Class CA
    End Class
End Namespace
Namespace B
    Public Class CB
    End Class
End Namespace|]",
"Imports A _
Module Program
    Sub Main(args As String())
        Dim q As CA
    End Sub
End Module
Namespace A
    Public Class CA
    End Class
End Namespace
Namespace B
    Public Class CB
    End Class
End Namespace")
        End Function
 
        <Fact>
        Public Async Function TestRemoveClauseWithExplicitLC2() As Task
            Await TestInRegularAndScript1Async(
"[|Imports B _
 , A
Module Program
    Sub Main(args As String())
        Dim q As CA
    End Sub
End Module
Namespace A
    Public Class CA
    End Class
End Namespace
Namespace B
    Public Class CB
    End Class
End Namespace|]",
"Imports A
Module Program
    Sub Main(args As String())
        Dim q As CA
    End Sub
End Module
Namespace A
    Public Class CA
    End Class
End Namespace
Namespace B
    Public Class CB
    End Class
End Namespace")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/528603")>
        Public Async Function TestRemoveClauseWithExplicitLC3() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports A _
    , B _
    , C
 
Module Program
    Sub Main()
        Dim q As CB
 
    End Sub
End Module
 
Namespace A
    Public Class CA
    End Class
End Namespace
 
Namespace B
    Public Class CB
    End Class
End Namespace
 
Namespace C
    Public Class CC
    End Class
End Namespace|]</Text>.NormalizedValue,
<Text>Imports B _
 
Module Program
    Sub Main()
        Dim q As CB
 
    End Sub
End Module
 
Namespace A
    Public Class CA
    End Class
End Namespace
 
Namespace B
    Public Class CB
    End Class
End Namespace
 
Namespace C
    Public Class CC
    End Class
End Namespace</Text>.NormalizedValue)
        End Function
 
        <Fact>
        Public Async Function TestTypeImports() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports Goo
 
Module Program
    Sub Main()
    End Sub
End Module
 
Public Class Goo
    Shared Sub Bar()
    End Sub
End Class|]</Text>.NormalizedValue,
<Text>Module Program
    Sub Main()
    End Sub
End Module
 
Public Class Goo
    Shared Sub Bar()
    End Sub
End Class</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/528603")>
        Public Async Function TestTypeImports_DoesNotRemove() As Task
            Await TestMissingAsync(
<Text>[|Imports Goo
 
Module Program
    Sub Main()
        Bar()
    End Sub
End Module
 
Public Class Goo
    Shared Sub Bar()
 
    End Sub
End Class|]</Text>.NormalizedValue)
            ' TODO: Enable testing in script when it comes online
        End Function
 
        <Fact>
        Public Async Function TestAlias() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports F = SomeNS
 
Module Program
    Sub Main()
    End Sub
End Module
 
Namespace SomeNS
    Public Class Goo
    End Class
End Namespace|]</Text>.NormalizedValue,
<Text>Module Program
    Sub Main()
    End Sub
End Module
 
Namespace SomeNS
    Public Class Goo
    End Class
End Namespace</Text>.NormalizedValue)
        End Function
 
        <Fact>
        Public Async Function TestAlias_DoesNotRemove() As Task
            Await TestMissingInRegularAndScriptAsync(
<Text>[|Imports F = SomeNS
 
Module Program
    Sub Main()
        Dim q As F.Goo
    End Sub
End Module
 
Namespace SomeNS
    Public Class Goo
    End Class
End Namespace|]</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541809")>
        <WorkItem(16488, "DevDiv_Projects/Roslyn")>
        Public Async Function TestImportsOnSameLine1() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports A : Imports B
 
Module Program
    Sub Main()
        Dim q As ClassA
    End Sub
End Module
 
Namespace A
    Public Class ClassA
    End Class
End Namespace
 
Namespace B
    Public Class ClassB
    End Class
End Namespace|]</Text>.NormalizedValue,
<Text>Imports A
 
Module Program
    Sub Main()
        Dim q As ClassA
    End Sub
End Module
 
Namespace A
    Public Class ClassA
    End Class
End Namespace
 
Namespace B
    Public Class ClassB
    End Class
End Namespace</Text>.NormalizedValue)
        End Function
 
        <Fact>
        Public Async Function TestImportsOnSameLine2() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports A : Imports B
Imports C
 
Module Program
    Sub Main()
        Dim q1 As ClassA
        Dim q2 As ClassC
    End Sub
End Module
 
Namespace A
    Public Class ClassA
    End Class
End Namespace
 
Namespace B
    Public Class ClassB
    End Class
End Namespace
 
Namespace C
    Public Class ClassC
    End Class
End Namespace|]</Text>.NormalizedValue,
<Text>Imports A
Imports C
 
Module Program
    Sub Main()
        Dim q1 As ClassA
        Dim q2 As ClassC
    End Sub
End Module
 
Namespace A
    Public Class ClassA
    End Class
End Namespace
 
Namespace B
    Public Class ClassB
    End Class
End Namespace
 
Namespace C
    Public Class ClassC
    End Class
End Namespace</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541808")>
        Public Async Function TestTypeImport1() As Task
            Await TestMissingAsync(
"[|Imports Goo
Module Program
    Sub Main()
        Bar()
    End Sub
End Module
Public Class Goo
    Shared Sub Bar()
    End Sub
End Class|]") 'TODO (tomat): modules not yet supported in script
        End Function
 
        <Fact>
        Public Async Function TestTypeImport2() As Task
            Await TestMissingAsync(
"[|Imports Goo
Module Program
    Sub Main()
        Dim q As Integer = Bar
    End Sub
End Module
Public Class Goo
    Public Shared Bar As Integer
    End Sub
End Class|]") 'TODO (tomat): modules not yet supported in script
        End Function
 
        <Fact>
        Public Async Function TestUnusedTypeImportIsRemoved() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports SomeNS.Goo
 
Module Program
    Sub Main(args As String())
    End Sub
End Module
 
Namespace SomeNS
    Module Goo
    End Module
End Namespace|]</Text>.NormalizedValue,
<Text>Module Program
    Sub Main(args As String())
    End Sub
End Module
 
Namespace SomeNS
    Module Goo
    End Module
End Namespace</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/528643")>
        Public Async Function TestExtensionMethodLinq() As Task
            ' TODO: Enable script context testing.
 
            Await TestMissingAsync(<Text>[|Imports System.Collections
Imports System
Imports SomeNS
 
Public Module Program
    Sub Main()
        Dim qq As Goo = New Goo()
        Dim x As IEnumerable = From q In qq Select q
    End Sub
End Module
 
Public Class Goo
    Public Sub Goo()
    End Sub
End Class
 
Namespace SomeNS
    Public Module SomeClass
        &lt;System.Runtime.CompilerServices.ExtensionAttribute()&gt;
        Public Function [Select](ByRef o As Goo, f As Func(Of Object, Object)) As IEnumerable
            Return Nothing
        End Function
    End Module
End Namespace|]</Text>.NormalizedValue, New TestParameters(parseOptions:=TestOptions.Regular))
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/543217")>
        Public Async Function TestExtensionMethodLinq2() As Task
            Await TestMissingInRegularAndScriptAsync(
<Text>[|Imports System.Collections.Generic
Imports System.Linq
 
Module Program
    Sub Main(args As String())
        Dim product = New With {Key .Name = "", Key .Price = 0}
        Dim products = ToList(product)
        Dim namePriceQuery = From prod In products
                             Select prod.Name, prod.Price
    End Sub
 
    Function ToList(Of T)(a As T) As IEnumerable(Of T)
        Return Nothing
    End Function
End Module
|]</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542135")>
        Public Async Function TestImportedTypeUsedAsGenericTypeArgument() As Task
            Await TestMissingInRegularAndScriptAsync(
<Text>[|Imports GenericThingie
 
Public Class GenericType(Of T)
End Class
 
Namespace GenericThingie
 
    Public Class Something
    End Class
 
End Namespace
 
Public Class Program
    Sub goo()
        Dim type As GenericType(Of Something)
    End Sub
End Class|]</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542132")>
        Public Async Function TestRemoveSuperfluousNewLines1() As Task
            Await TestInRegularAndScript1Async(
<Text>[|Imports System
Imports System.Collections.Generic
Imports System.Linq
 
Module Program
    Sub Main(args As String())
 
    End Sub
End Module|]</Text>.NormalizedValue,
<Text>Module Program
    Sub Main(args As String())
 
    End Sub
End Module</Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542132")>
        Public Async Function TestRemoveSuperfluousNewLines2() As Task
            Await TestInRegularAndScript1Async(
<Text><![CDATA[[|Imports System
Imports System.Collections.Generic
Imports System.Linq


<Assembly: System.Obsolete()>


Module Program
    Sub Main(args As String())

    End Sub
End Module|]]]></Text>.NormalizedValue,
<Text><![CDATA[<Assembly: System.Obsolete()>


Module Program
    Sub Main(args As String())

    End Sub
End Module]]></Text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542895")>
        Public Async Function TestRegressionFor10326() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System.ComponentModel
<Goo(GetType(Category))>
Class Category
End Class|]",
"<Goo(GetType(Category))>
Class Category
End Class")
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/712656")>
        Public Async Function TestRemovalSpan1() As Task
            Await TestSpansAsync(
<text>    [|Imports System|]
 
Namespace N
End Namespace</text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/545434")>
        <WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/712656")>
        Public Async Function TestRemovalSpan2() As Task
            Await TestSpansAsync(
<text>
#Const A = 1
[|Imports System|]
#Const B = 1
Imports System.Runtime.InteropServices</text>.NormalizedValue,
diagnosticId:=IDEDiagnosticIds.RemoveUnnecessaryImportsDiagnosticId)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/545434")>
        <WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/712656")>
        Public Async Function TestRemovalSpan3() As Task
            Await TestSpansAsync(
<text>
#Const A = 1
Imports System
#Const B = 1
[|Imports System.Runtime.InteropServices|]</text>.NormalizedValue,
diagnosticId:=IDEDiagnosticIds.RemoveUnnecessaryImportsDiagnosticId)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/712656")>
        Public Async Function TestRemovalSpan4() As Task
            Await TestInRegularAndScript1Async(
<text>
#Const A = 1
Imports System
[|#Const B = 1|]
Imports System.Runtime.InteropServices
Class C : Dim x As Action : End Class</text>.NormalizedValue,
<text>
#Const A = 1
Imports System
#Const B = 1
Class C : Dim x As Action : End Class</text>.NormalizedValue)
        End Function
 
        <Fact, WorkItem("http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/545831")>
        Public Async Function TestImplicitElementAtOrDefault() As Task
            Await TestInRegularAndScript1Async(
<Text><![CDATA[[|Option Strict On

Imports System
Imports System.Text
Imports System.Runtime.CompilerServices
Imports N

Module M
    Sub Main()
        Goo(Function(x) x(0), Nothing)
    End Sub

    Sub Goo(x As Func(Of C, Object), y As String)
        Console.WriteLine(1)
    End Sub

    Sub Goo(x As Func(Of Integer(), Object), y As Object)
        Console.WriteLine(2)
    End Sub
End Module

Class C
    Public Function ElementAtOrDefault(index As Integer) As Integer
    End Function
End Class

Namespace N
    Module E
        <Extension>
        Function [Select](x As C, y As Func(Of Integer, Integer)) As C
        End Function
    End Module
End Namespace|]]]></Text>.NormalizedValue,
<Text><![CDATA[Option Strict On

Imports System
Imports System.Runtime.CompilerServices
Imports N

Module M
    Sub Main()
        Goo(Function(x) x(0), Nothing)
    End Sub

    Sub Goo(x As Func(Of C, Object), y As String)
        Console.WriteLine(1)
    End Sub

    Sub Goo(x As Func(Of Integer(), Object), y As Object)
        Console.WriteLine(2)
    End Sub
End Module

Class C
    Public Function ElementAtOrDefault(index As Integer) As Integer
    End Function
End Class

Namespace N
    Module E
        <Extension>
        Function [Select](x As C, y As Func(Of Integer, Integer)) As C
        End Function
    End Module
End Namespace]]></Text>.NormalizedValue)
        End Function
 
        <Fact>
        Public Async Function TestImportsInPPRegionWithoutOtherMembers() As Task
            Await TestInRegularAndScript1Async(
"[|
#If True
Imports System
#End If
|]",
"
#If True
#End If
")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/1323")>
        Public Async Function TestMissingOnSynthesizedEventType() As Task
            Await TestMissingInRegularAndScriptAsync(
"[|Class C
    Event E()
End Class|]")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/45866")>
        Public Async Function TestImportGroup_DeleteLeadingBlankLinesIfFirstGroupWasDeleted_SingleImport() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System.Threading.Tasks
 
Imports System|]
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
",
"Imports System
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/45866")>
        Public Async Function TestImportGroup_DeleteLeadingBlankLinesIfFirstGroupWasDeleted_MultipleImports() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System.Threading.Tasks
Imports System.Collections.Generic
 
Imports System|]
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
",
"Imports System
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/45866")>
        Public Async Function TestImportGroup_NotAllFirstGroupIsDeleted() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System.Threading.Tasks
Imports System.Collections.Generic
 
Imports System|]
 
Class C
    Function Test()
        Console.WriteLine()
        Dim list As List(Of Integer) = Nothing
    End Function
End Class
",
"Imports System.Collections.Generic
 
Imports System
 
Class C
    Function Test()
        Console.WriteLine()
        Dim list As List(Of Integer) = Nothing
    End Function
End Class
")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/45866")>
        Public Async Function TestImportGroup_AllLastGroupIsDeleted() As Task
            Await TestInRegularAndScript1Async(
"[|Imports System
 
Imports System.Threading.Tasks
Imports System.Collections.Generic|]
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
",
"Imports System
 
Class C
    Function Test()
        Console.WriteLine()
    End Function
End Class
")
        End Function
 
        <Fact, WorkItem("https://github.com/dotnet/roslyn/issues/63591")>
        Public Async Function TestAmbiguityWithProjectLevelMemberImport() As Task
            Await TestAsync(
"[|Imports System
' need to keep 'Goo' to prevent ambiguity with 'Bar'.
Imports Goo
Module Program
    Sub Main(c as C)
    End Sub
End Module|]
 
Namespace Goo
    Public Class C
    End Class
End Namespace
Namespace Bar
    Public Class C
    End Class
End Namespace
",
"' need to keep 'Goo' to prevent ambiguity with 'Bar'.
Imports Goo
Module Program
    Sub Main(c as C)
    End Sub
End Module
 
Namespace Goo
    Public Class C
    End Class
End Namespace
Namespace Bar
    Public Class C
    End Class
End Namespace
",
parseOptions:=TestOptions.Regular,
compilationOptions:=TestOptions.ReleaseExe.WithGlobalImports({GlobalImport.Parse("System"), GlobalImport.Parse("Goo"), GlobalImport.Parse("Bar")}))
        End Function
    End Class
End Namespace