File: Parser\ParserRegressionTests.vb
Web Access
Project: src\src\Compilers\VisualBasic\Test\Syntax\Microsoft.CodeAnalysis.VisualBasic.Syntax.UnitTests.vbproj (Microsoft.CodeAnalysis.VisualBasic.Syntax.UnitTests)
' 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 System.IO
Imports Microsoft.CodeAnalysis
Imports Microsoft.CodeAnalysis.Text
Imports Roslyn.Test.Utilities
Imports Roslyn.Test.Utilities.Syntax
Imports Basic.Reference.Assemblies
 
Public Class ParserRegressionTests : Inherits BasicTestBase
 
    <WorkItem(540022, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540022")>
    <Fact>
    Public Sub VB000011()
        Dim text = <![CDATA[
                Public Function methodOperator()
        [CStr]  =  [Unicode]   *   [CULng]  -  [RaiseEvent]  *  [Imports]  \ Friend  i Mod i And i Or i Handles   Strict  i CSByte  '+ - * / % & | ^
            b  <  Not While  b '!
        i [Public]   &=  i  .  5 [Resume]  '<<
        i  ;  i >>  [Set]  '>>
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB000103()
        Dim text = <![CDATA[
        Public  [MustOverride]  = Sub( -->  Console.WriteLine [xml] ("Sub Statement 2")
    Public Get  L4  )  Function(y [IsTrue]  As Integer) As Boolean
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB000103_minimal()
        Dim text = <![CDATA[
        Public goo = Sub( Console.WriteLine()
    Public Get ) 
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB000103_related()
        Dim text = <![CDATA[
        Public goo = Sub( Console.WriteLine()
    Public Set ) 
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB000126_01()
        Dim text = "         Property  con As [String] = [char] +  [Assembly]   <?  hexchar EndIf  +  [Yield] . [OrElse] ( [True] ) Case  & [double].ToString()  ?  float ) ToString( ;  &  [Dim] "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB000126_02()
        Dim text = <![CDATA[     Using  Function
     Dim  Sub  [CDec]  { )
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(542660, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542660")>
    <Fact>
    Public Sub VB000126_03()
        Dim text = <![CDATA[     Using  Function
     Public  Sub  [CDec]  { )
        ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540027, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540027")>
    <Fact>
    Public Sub VB000139()
        Dim text = <![CDATA[        Function  [Distinct] ()
     ExternalSource  Function
    MustInherit Class B(Of T)]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB000147()
        Dim text = <![CDATA[    Sub Overloads  Method1a * )
     Binary  Sub
    Dim Get   [xml]  As [Inherits]  MyDelegate
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540026, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540026")>
    <Fact>
    Public Sub VB000211()
        Dim text = <![CDATA[        Dim s As Object = Function(x <[CDATA[   [And]  + 1 '=>
End  ' 
#End Region
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB000365_01()
        Dim text = "     Property  Sub delfoo1( [Stop] ByVal Erase   [With]  As [Shadows]  Object -->   GetType  e As System ]]> EventArgs ]]> "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540027, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540027")>
    <Fact>
    Public Sub VB000365_02()
        Dim text = <![CDATA[    Public Function "   [When]  /  << 
     Until  Function
 Dim  Class
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540026, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540026")>
    <Fact>
    Public Sub VB000705()
        Dim text = <![CDATA[Next  Function
 MustOverride   Shared 
#
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540026, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540026")>
    <Fact>
    Public Sub VB001507()
        Dim text = <![CDATA[Function  [For]  << ) As  SByte 
         Option 
If %>  (  [Nothing] .LoopingMethod <> 0) then Property 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540030, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540030")>
    <Fact>
    Public Sub VB001690()
        Dim text = <![CDATA[Function RunTests( !   Interface  Integer [SyncLock] 
	 By   Function 
        Dim Namespace  [partial] &   ?  0
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540029, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540029")>
    <Fact>
    Public Sub VB001726()
        Dim text = <![CDATA[
             Static  Sub
            GC. Decimal SuppressFinalize(Me +=  , 
         Compare  Sub
        Public  NotInheritable  Operator Yield  IsTrue [Boolean]  ( ByVal CInt   [Enum]   Overridable   [Event] ) As Boolean
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540028, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540028")>
    <Fact>
    Public Sub VB001874()
        Dim text = <![CDATA[   Function MyClass  Goo(ByVal  [Preserve]  As  [Protected]  /=  For  T [CStr] ) :  As  Enum 
     Call  Function
     MustInherit   Enum 

]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB002423()
        Dim text = <![CDATA[               Sub  i2 As  Select ,
     Skip  Function
        Dim Event  b As Boolean = True  CUInt  False Or True  In  False '& | ^
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540031, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540031")>
    <Fact>
    Public Sub VB003108()
        Dim text = <![CDATA[Function RunTests </ ) As Integer Char 
If (  [Continue] .GooExtension /= "Scenario 13_2", 13)  <[CDATA[   [End]  & "test2") then Event 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540031, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540031")>
    <Fact>
    Public Sub VB003108_minimal()
        Dim text = <![CDATA[Function RunTests As Integer
if true then Event
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540031, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540031")>
    <Fact>
    Public Sub VB003108_related()
        Dim text = <![CDATA[Function RunTests As Integer
if true then else Event
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB003272()
        Dim text = "    Property  [Catch]  ' ) Interface   Interface  IVariance( Take  Animals [Protected] ) [Descending]"
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB003272_02()
        Dim text = "         MustInherit  Property Variant  item( Nothing   [Date]   Async   Await  .   OrElse  Integer CObj "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540027, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540027")>
    <Fact>
    Public Sub VB003272_03()
        Dim text = <![CDATA[         Shared  Sub CChar 
     Off  Sub
    MustInherit Class B(Of T)]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB004298()
        Dim text = <![CDATA[If Sub  (  [Option]  & AnonymousType <>  WriteOnly  @   Overloads 
    MustInherit Class B(Of T)
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB004742()
        Dim text = <![CDATA[        Function Overridable  SelectionMethods " )  When  Integer
            If [Decimal]  icount [Overloads]   !   Aggregate  Then [CShort] 
         CUInt  Function
             EndIf  a As AndAlso  Boolean  +  True
            Dim [IsNot]  b As  Select   )  False Unicode 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <Fact>
    Public Sub VB004742_minimal()
        Dim text = <![CDATA[        
            Function SelectionMethods()
            If true Then
         CUInt  Function
             endif         
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <Fact>
    Public Sub VB004742_related()
        Dim text = <![CDATA[        
            Function SelectionMethods()
            while true 
         CUInt  Function
             wend           
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540022, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540022")>
    <Fact>
    Public Sub VB006755()
        Dim text = "     NotInheritable  Function  [Me] (ByVal  [IsFalse]  As Integer) As  Error " + Environment.NewLine
        text = text + "    retVal  <  0" + Environment.NewLine + "                 [Set]   ]]>  1 [Of] "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB006755_02()
        Dim text = <![CDATA[     Erase  Function
    MustInherit Class B(Of T)
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB010019()
        Dim text = <![CDATA[             Sub  Case x. Select  [UShort] 
                    If x MyClass . [CStr]  [Not]  <> 4  Double 
     AddHandler  Function
 EndIf   While 
Public Delegate Sub MyDelegate( [Object] ByVal message  EndIf   Partial )
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB013380()
        Dim text = <![CDATA[        Function Operators As () As [Or]  Integer
            If ( [Mod]  Or
            Return  [Iterator] 
         Type  Function
         EndIf  AnonymousType ?>  <  <   MustOverride   Key 
 Operator   ExternalSource 
     Select   Like  Statements(ByVal ByRef   [GoTo]  As  Event  %>  As Or   Object 
        Dim retVal As Integer = [Xor]   ULong 
        Dim thislock =  ExternalChecksum  Object [SyncLock]  @  { 
                 Class   Order 
        Public Property  [Me] ( [RaiseEvent] ) #  As  Wend 
            Get Public 
             Decimal   Stop 
            Set( SByte  value  Catch  String [Yield]  ( 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB013706()
        Dim text = "    Property Integer   [NotOverridable] ( [Ansi] ) From  As IVariance MustInherit  ; Of CDate  Cheetah >> "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB013706_02()
        Dim text = <![CDATA[sub [Unicode]  Main /= ( <> 
if( [False] runTests GoTo  <> Single  <? ) -   Off 
 CObj  Sub
EndIf  1
            Dim [IsTrue]  s42 />  As %>  New ByRef   [OrElse]  ! Of  TypeOf ) [Call] . [CByte]  [Strict]  <> Of Integer) [MyBase]
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(541735, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/541735")>
    <Fact>
    Public Sub VB029482()
        Dim text = <![CDATA[Dim  [Each]  =  <[CDATA[ 1, Select 
                    #  ]
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB038799()
        Dim text = <![CDATA[        Public Sub Declare  Dispose [By]  (  <[CDATA[  Implements IDisposable.Dispose
            If  <[CDATA[ aa < 10)  Long 
                Return  Sub 
         EndIf   Explicit 
         Sub  Shared Operator [Descending]  +(ByVal  [Where]  As  [Mid]  >  ByVal second CSng  As A) As Integer
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB020620()
        Dim text = <![CDATA[sub Main( Select  \= 
if [MustInherit] ( [Namespace]  <> [Enum] 0 [WriteOnly]  (   Next 
 Me  Sub
             EndIf   [Catch]  As  WriteOnly   [RemoveHandler] 
If AddressOf   ^   [Key]  -= LoopingMethod @   )  0 [WithEvents]  />  then
	return 1 [Auto] 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB021387()
        Dim text = <![CDATA[            Return 0 * 
         Function  Function
    MustInherit Class B(Of T)
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB024372()
        Dim text = <![CDATA[                 Public  Sub [Like] 
                    If As   [Event]   <<=   To  < 10  If 
                 With  Function
 EndIf   [Imports] 
    Friend Function Statements( False  i [Like]  As Integer Try ) As [Case]  Integer
            If ( := aa  <--  10 '  Then
         Get  Property  [Select]   Sub  String [Shadows] 
         MustInherit  Property item(ByVal  [Shadows]   Unicode  Integer True ) As [Alias]  Integer
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540027, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540027")>
    <Fact>
    Public Sub VB030545()
        Dim text = <![CDATA[             Function  If [Do] 
                 [Narrowing]   Function 
 Const  Class With 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB030545_02()
        Dim text = <![CDATA[        Function =   [IsFalse]  \=  &=   Equals  Integer
         Assembly  Function
            Private  Set 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB016274()
        Dim text = <![CDATA[        Function LoopingMethod( @ ) As Integer
            While  [As]  <= 100 [Into] 
         Ascending  Function
 Wend  Class
            If  [Overloads]   xml ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB027868()
        Dim text = <![CDATA[    Function  [Lib] ( Until )
        If {1, Char  2 -   [Loop]  /> . [Return] Count = 2 Then
     CUInt  Function
         EndIf  b  Get  Boolean  <--  True [CDec]   ByVal   DirectCast  Or [CBool]  True  Implements  False '& | ^
        i  <  1 '++
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB025825()
        Dim text = <![CDATA[        Function [Interface]  Operators( [TryCast]  <?  As Integer
            If CSByte  ( [End]  Or
            Return 0
         ExternalChecksum  Function
             EndIf   " 
        Dim [Long]   [Friend]   >=  From c In customers [CLng] 
                             Interface  New With [Me]   ) Key .Address = [SByte]  Address WriteOnly , [AndAlso]  Key  <-- CustCount  <--   [TryCast]  <  [ParamArray]  >>=  \=  <[CDATA[ 
         Structure   Double  x In  [Boolean] 
 CObj  Delegate Sub [Continue]  MyDelegate( MyBase   [Friend]  As  Module )
Class MyClass1
    Custom Event  [Widening]  As MyDelegate
         CShort (ByVal  [ReDim]  As Function  MyDelegate)
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB062475()
        Dim text = <![CDATA[Function
If
CShort Sub
EndIf
o e()r
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540027, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540027")>
    <Fact>
    Public Sub VB069460()
        Dim text = <![CDATA[sub Main Byte  ]]&lt; )
     Assembly  Function
 MustInherit  Class Bar Iterator ]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB101269()
        Dim text = <![CDATA[        Function  [CLng] ()  CULng  Integer As 
            If icount [End]   ;  1  Xor 
         Me  Function
         EndIf  Operators() As Integer EndIf 
        Dim ia3 [Until]  As Const  Integer() = [Ascending]  { Module , [AddHandler] 
                                 <--  ) 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB097187()
        Dim text = <![CDATA[sub  [Next] ( Where  /= 
if(runTests [MustOverride]  <>0 +=  then
 Text  Sub
         EndIf 
If  :  Statements += 8) <> 0) [Integer]  then [Yield] 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB070370()
        Dim text = <![CDATA[             Sub  Pclass [GetXmlNamespace]  As [Const]  New ClsPPMTest003
If [Yield]   >>  s42 Object . [Infer] AnonymousType  }   DirectCast  <?   ParamArray 
	 Iterator   Sub 
If <<   \=   [CObj]  <>  [Compare] ) Ansi  then
end if
 EndIf   <>  Lambdas Like  "  [Global]  <<= invoke NotInheritable (2 >>  <> 0 Boolean  <<   Widening 
 Partial  (  [Infer]  > 8) [Function]  <> [Single]  0 Shadows ) [Off]   True 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB075281()
        Dim text = <![CDATA[    Sub Method1a Mod  " )
                    If y [When]   &=   [Then]   >>  10 Then Inherits 
                     Join  If Xor 
                 CULng  Function
         EndIf   [Call] ( {  =  . "Beverages" <   [Ascending]  {   GoTo , [CObj]  "Dairy Products", "Seafood" - 
        Dim  [IsTrue]  = From [Mod]  c In [Take]  categories [IsFalse]  _
                    Group !  Join p In productList On c Equals [Event]  p. [Not]  Into  If  _
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(542668, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542668")>
    <Fact>
    Public Sub VB063291()
        Dim text = <![CDATA[ Function RunTests() As Integer
        Try
            s20.item(5) =  Function 
If ( s20.p <> "A") then Catch 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(542668, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542668")>
    <Fact>
    Public Sub VB063291_minimal()
        Dim text = <![CDATA[ 
        Function RunTests() As Integer
        Try
            dim x = Function 
            If true then catch
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(542668, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/542668")>
    <Fact>
    Public Sub VB063291_related()
        Dim text = <![CDATA[ 
        Function RunTests() As Integer
        Try
            dim x = Function 
            If true then else catch
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540032, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540032")>
    <Fact>
    Public Sub VB087373()
        Dim text = <![CDATA[ Function RunTests </  <<=  As  False 
	 Try   [Erase] 
If [NotInheritable]  ( [Type]  ModuleEx. [Finally] GooExtension [Operator] ("Scenario 13_1" </  <> +=   RaiseEvent  & [In]  "test" [IsNot]  +=  then
	 Where   Sub 
	 Else   Finally 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540032, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540032")>
    <Fact>
    Public Sub VB087373_minimal()
        Dim text = <![CDATA[ Function RunTests() As Boolean
	 Try 
If true then
	 where sub
	 Else   Finally 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540032, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540032")>
    <Fact>
    Public Sub VB087373_related1()
        Dim text = <![CDATA[Function RunTests() As Boolean
	 Try 
If true then
	 where sub
	 Elseif true   Finally  
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540032, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540032")>
    <Fact>
    Public Sub VB087373_related2()
        Dim text = <![CDATA[Function RunTests() As Boolean
	 Try 
      select case true
        case true
          where sub
            case false   
        end select
   Finally 
   end try
end function 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540022, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540022")>
    <Fact>
    Public Sub VB087839()
        Dim text = <![CDATA[    Friend Function  [Date] ( Or ByVal i As (  Integer) As  Take 
            retVal  <--  1
        Else ; 

]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB087839_02()
        Dim text = <![CDATA[             Operator  icount [As]   }  1 Then
            If WriteOnly  ( </  [UInteger]  Or
         Return  Function
         EndIf   Off 
    Sub MyHandler( MyClass  Compare  message  Object  String)
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB074167()
        Dim text = <![CDATA[Function RunTests >>=  &   Enum  Integer
If (  [Join]  <<=  [TypeOf]  <[CDATA[  0) then
If Function  ( s42 {  [Case]  <>  >>=  /=  then
 EndIf   RemoveHandler 
If ( [Custom]   [Custom] .x ! . Friend GetType.Name <> "Int323" [CSByte]  ?   Yield 
end if
end if
If  {  Nullable( Group )  )  0 &   If 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540026, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540026")>
    <Fact>
    Public Sub VB137731()
        Dim text = <![CDATA[    Function  [Unicode]  <<= ) As Integer
     Call  Function
 Custom   Overloads 
#Region "Co Contra Variance Variance2"
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540024, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540024")>
    <Fact>
    Public Sub VB121067()
        Dim text = "         Property   Stop   [AddressOf]  = ByVal NotOverridable  index  CDate   DirectCast  '  As  CObj "
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB121067_02()
        Dim text = <![CDATA[             Operator  a And MustInherit 
         If  ia7 = { Exit ({ Step 1 Strict }) [Resume]  &  ( Ascending  : 3 =  4 \ ), ( %> 5, 6 <--  2})} 'jagged array
     xml  Function
         [Property]   <[CDATA[   [Implements]   .   [Structure]  '<<
         [CStr]  %>  [IsFalse]  = 10
         Event  p2  MustOverride  New  [While]  With [Lib]  { Operator .X = [Handles]   And ,  # Y  <[CDATA[  12} Order 
         EndIf  i [Error]   .  0 >>=   To   , Not b) [From]  AndAlso CULng  f [Optional]  =  Unicode   CByte 
        Dim  [Equals]   &   GetXmlNamespace  Object <? ) Infer 
        Using temp Class  As New Type   [Aggregate] ( Finally )
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540023, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540023")>
    <Fact>
    Public Sub VB142448()
        Dim text = <![CDATA[     Public  [Key]  = Function( CULng  [RaiseEvent]  As  Let  {  As <<=  Boolean
        Dim Function  ia4() As Integer  "   /  Private ,
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(540025, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/540025")>
    <Fact>
    Public Sub VB138211()
        Dim text = <![CDATA[        Function [On]  Operators &  =  As Integer [ByVal] 
            If  Me  a  IsNot 
             If   Function 
 EndIf   Like   [Mod] (Of Double  In Throw  T) " ( [ExternalSource] ByVal  [Declare]  As [By]   [ParamArray]  * 
    Function Goo( <<  As [CShort]  T
Public Class  [Continue] (Of T As  Unicode ) : Implements IVariance2( Await  T [Join] ) Default 
Module Lambdas
     With   [Compare]   >=  Function( [UInteger]   Binary  Integer :  As Integer   ElseIf 
]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <WorkItem(545424, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/545424")>
    <Fact()>
    Public Sub CaseStatementOutsideMethodBody()
        Dim text = <![CDATA[        Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True.
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select

]]>.Value
        VisualBasicSyntaxTree.ParseText(text)
    End Sub
 
    <ConditionalFact(GetType(ClrOnly), Reason:="https://github.com/dotnet/roslyn/issues/30926"), WorkItem(658140, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/658140")>
    <WorkItem(103047, "https://devdiv.visualstudio.com/defaultcollection/DevDiv/_workitems?_a=edit&id=103047")>
    Public Sub ParseFileOnBinaryFile()
        ' This is doing the same thing as ParseFile, but using a MemoryStream
        ' instead of FileStream (because I don't want to write a file to disk).
        Using data As New MemoryStream(Net461.Resources.mscorlib)
            Const bug103047IsFixed = False
 
            If bug103047IsFixed Then
                Dim tree As SyntaxTree = VisualBasicSyntaxTree.ParseText(EncodedStringText.Create(data))
                tree.GetDiagnostics().VerifyErrorCodes(Diagnostic(ERRID.ERR_BinaryFile))
            Else
                Assert.Throws(Of System.IO.InvalidDataException)(Sub() VisualBasicSyntaxTree.ParseText(EncodedStringText.Create(data)))
            End If
        End Using
    End Sub
 
    <Fact(), WorkItem(675589, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/675589")>
    Public Sub ParseBadLambda()
        ParseAndVerify(<![CDATA[
Module M
    Function F1()
        Dim x = Sub()
            If True Then Function F2()
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F1()
        Dim x = Sub()
            If True Then Else Function F2()
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F1()
        Dim x = Sub()
            If True Then F1() : Function F2()
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Dim x = Sub()
            If True Then Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Return Function() Sub() Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Return Function() Sub() If True Then Else Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Return Function()
            Return Sub()
                Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36674"/>
        <error id="36673"/>
        <error id="30289"/>
        <error id="30253"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Return Function()
            Return Sub()
                If True Then Else Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36674"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
        ParseAndVerify(<![CDATA[
Module M
    Function F()
        Return Function()
            Return Sub()
                If True Then Dim x = Sub() If False Then Else Interface I
End Module
]]>,
    <errors>
        <error id="30027"/>
        <error id="36674"/>
        <error id="36673"/>
        <error id="30289"/>
    </errors>)
    End Sub
 
    ''' <summary>
    ''' An identifier followed by a colon in an Enum block is only
    ''' treated as a label if there are no attributes. If there are
    ''' attributes, the identifier is considered an Enum member.
    ''' This matches the native compiler.
    ''' </summary>
    <Fact(), WorkItem(675486, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/675486")>
    Public Sub ParseAttributeOnIdentifierFollowedByColonInEnum()
        ' Label.
        ParseAndVerify(<![CDATA[
Enum E
    L : A
End Enum
]]>,
<errors>
    <error id="31001"/>
</errors>)
        ' Enum members.
        ParseAndVerify(<![CDATA[
Enum E
<A L : A
End Enum
]]>,
    <errors>
        <error id="30636"/>
    </errors>)
        ' Enum members.
        ParseAndVerify(<![CDATA[
Enum E
    <A>
    L:
End Enum
]]>)
        ' Other declarations.
        ParseAndVerify(<![CDATA[
Enum E
    Private L : A
End Enum
]]>,
    <errors>
        <error id="30185"/>
        <error id="30619"/>
        <error id="30689"/>
        <error id="30184"/>
    </errors>)
    End Sub
 
    <WorkItem(2867, "https://github.com/dotnet/roslyn/issues/2867")>
    <ConditionalFact(GetType(IsRelease))>
    Public Sub TestBinary()
        Dim tree = VisualBasicSyntaxTree.ParseText(New RandomizedSourceText())
        Assert.Equal(Syntax.InternalSyntax.Scanner.BadTokenCountLimit, tree.GetDiagnostics().Where(Function(d) d.Code = ERRID.ERR_IllegalChar).Count())
    End Sub
 
    <Fact, WorkItem(48587, "https://github.com/dotnet/roslyn/issues/48587")>
    Public Sub ParseTrailingTextAfterPropertyWithParentheses()
        Dim compilation = CompilationUtils.CreateCompilationWithMscorlib40(
<compilation name="ParseTrailingTextAfterPropertyWithParentheses">
    <file name="a.b">
Class C
    Public ReadOnly Property NumberOfResult1() String Integer JohnDoe WwwIIWww Wow
    Public ReadOnly Property NumberOfResult2() Some unexpected tokens As Integer
    Public ReadOnly Property NumberOfResult3() UnexpectedToken ' With comment.
    Public ReadOnly Property NumberOfResult4() UnexpectedToken _
        As Integer ' with line continuation and comment.
 
    Public ReadOnly Property NumberOfResult5() ' With comment - no errors.
    Public ReadOnly Property NumberOfResult6() _
        As Integer ' No error with line continuation.
End Class
    </file>
</compilation>)
        CompilationUtils.AssertTheseDiagnostics(compilation,
<errors>
BC30205: End of statement expected.
    Public ReadOnly Property NumberOfResult1() String Integer JohnDoe WwwIIWww Wow
                                               ~~~~~~
BC30205: End of statement expected.
    Public ReadOnly Property NumberOfResult2() Some unexpected tokens As Integer
                                               ~~~~
BC30205: End of statement expected.
    Public ReadOnly Property NumberOfResult3() UnexpectedToken ' With comment.
                                               ~~~~~~~~~~~~~~~
BC30205: End of statement expected.
    Public ReadOnly Property NumberOfResult4() UnexpectedToken _
                                               ~~~~~~~~~~~~~~~
</errors>)
    End Sub
End Class