Imported Upstream version 3.6.0

Former-commit-id: da6be194a6b1221998fc28233f2503bd61dd9d14

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/Blocks.vb

@@ -0,0 +1,255 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class Blocks
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("Blocks.vbhtml",1)
+     
+    Dim i as Integer = 1
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",5)
+ While i <= 10
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Hello from VB.Net, #")
+
+
+#ExternalSource("Blocks.vbhtml",6)
+                        Write(i)
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",7)
+    i += 1
+End While
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",10)
+ If i = 11 Then
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>We wrote 10 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",12)
+End If
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",14)
+ Do
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Hello again: ")
+
+
+#ExternalSource("Blocks.vbhtml",15)
+                Write(i)
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",16)
+    i -= 1
+Loop While i > 0
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",19)
+ Select Case i
+    Case 11
+
+
+#End ExternalSource
+WriteLiteral("        ")
+
+WriteLiteral("<p>No really, we wrote 10 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",22)
+    Case Else
+
+
+#End ExternalSource
+WriteLiteral("        ")
+
+WriteLiteral("<p>We wrote a bunch more lines too!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",24)
+End Select
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",26)
+ For j as Integer = 1 to 10 Step 2
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Hello again from VB.Net, #")
+
+
+#ExternalSource("Blocks.vbhtml",27)
+                              Write(j)
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",28)
+Next j
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",30)
+ Try
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>That time, we wrote 5 lines!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",32)
+Catch ex as Exception
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Oh no! An error occurred: ")
+
+
+#ExternalSource("Blocks.vbhtml",33)
+                              Write(ex.Message)
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",34)
+End Try
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",36)
+ With i
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>i is now ")
+
+
+#ExternalSource("Blocks.vbhtml",37)
+             Write(.ToString())
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",38)
+End With
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",40)
+ SyncLock New Object()
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>This block is locked, for your security!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",42)
+End SyncLock
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",44)
+ Using New System.IO.MemoryStream()
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Some random memory stream will be disposed after rendering this block</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Blocks.vbhtml",46)
+End Using
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/CodeBlock.vb

@@ -0,0 +1,31 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class CodeBlock
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("CodeBlock.vbhtml",1)
+     
+    Test()
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/CodeBlockAtEOF.vb

@@ -0,0 +1,29 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class CodeBlockAtEOF
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("CodeBlockAtEOF.vbhtml",1)
+     
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/Comments.vb

@@ -0,0 +1,51 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class Comments
+Public Overrides Sub Execute()
+
+
+#ExternalSource("Comments.vbhtml",1)
+ 'This is not going to be rendered
+
+
+#End ExternalSource
+WriteLiteral("<p>This is going to be rendered</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+
+#ExternalSource("Comments.vbhtml",3)
+ REM Neither is this
+
+
+#End ExternalSource
+
+
+#ExternalSource("Comments.vbhtml",4)
+ rem nor this
+
+
+#End ExternalSource
+
+
+#ExternalSource("Comments.vbhtml",5)
+ rEm nor this
+
+#End ExternalSource
+
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ConditionalAttributes.vb

@@ -0,0 +1,146 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class ConditionalAttributes
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("ConditionalAttributes.vbhtml",1)
+     
+    Dim ch = True
+    Dim cls = "bar"
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<a")
+
+WriteLiteral(" href=""Foo""")
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<p")
+
+WriteAttribute("class", Tuple.Create(" class=""", 77), Tuple.Create("""", 89) _
+, Tuple.Create(Tuple.Create("", 85), Tuple.Create(Of System.Object, System.Int32)(cls _
+, 85), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<p")
+
+WriteAttribute("class", Tuple.Create(" class=""", 102), Tuple.Create("""", 118) _
+, Tuple.Create(Tuple.Create("", 110), Tuple.Create("foo", 110), True) _
+, Tuple.Create(Tuple.Create(" ", 113), Tuple.Create(Of System.Object, System.Int32)(cls _
+, 114), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<p")
+
+WriteAttribute("class", Tuple.Create(" class=""", 131), Tuple.Create("""", 147) _
+, Tuple.Create(Tuple.Create("", 139), Tuple.Create(Of System.Object, System.Int32)(cls _
+, 139), False) _
+, Tuple.Create(Tuple.Create(" ", 143), Tuple.Create("foo", 144), True) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<input")
+
+WriteLiteral(" type=""checkbox""")
+
+WriteAttribute("checked", Tuple.Create(" checked=""", 180), Tuple.Create("""", 193) _
+, Tuple.Create(Tuple.Create("", 190), Tuple.Create(Of System.Object, System.Int32)(ch _
+, 190), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<input")
+
+WriteLiteral(" type=""checkbox""")
+
+WriteAttribute("checked", Tuple.Create(" checked=""", 226), Tuple.Create("""", 243) _
+, Tuple.Create(Tuple.Create("", 236), Tuple.Create("foo", 236), True) _
+, Tuple.Create(Tuple.Create(" ", 239), Tuple.Create(Of System.Object, System.Int32)(ch _
+, 240), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<p")
+
+WriteAttribute("class", Tuple.Create(" class=""", 256), Tuple.Create("""", 302) _
+, Tuple.Create(Tuple.Create("", 264), Tuple.Create(Of System.Object, System.Int32)(New Template(Sub (__razor_attribute_value_writer)
+
+
+#ExternalSource("ConditionalAttributes.vbhtml",10)
+                If cls IsNot Nothing Then 
+
+#End ExternalSource
+
+#ExternalSource("ConditionalAttributes.vbhtml",10)
+   WriteTo(__razor_attribute_value_writer, cls)
+
+
+#End ExternalSource
+
+#ExternalSource("ConditionalAttributes.vbhtml",10)
+                                               End If
+
+#End ExternalSource
+End Sub), 264), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral("    ")
+
+WriteLiteral("<a")
+
+WriteAttribute("href", Tuple.Create(" href=""", 315), Tuple.Create("""", 327) _
+, Tuple.Create(Tuple.Create("", 322), Tuple.Create(Of System.Object, System.Int32)(Href("~/Foo") _
+, 322), False) _
+)
+
+WriteLiteral(" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ConditionalAttributes.vbhtml",12)
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/DesignTime.vb

@@ -0,0 +1,99 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class DesignTime
+Private Shared __o As Object
+
+#ExternalSource("DesignTime.vbhtml", 9)
+Public Shared Function Foo() As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("DesignTime.vbhtml", 10)
+             
+    If True Then
+        
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml", 11)
+                   
+    End If
+
+#End ExternalSource
+End Sub)
+End Function
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("DesignTime.vbhtml",1)
+            For i = 1 to 10
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",2)
+             __o = i
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",3)
+                        
+            Next
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",4)
+__o = Foo(Bar.Baz)
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",5)
+__o = Foo(Function (item) New Template(Sub (__razor_template_writer)
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",6)
+         __o = baz
+
+
+#End ExternalSource
+
+#ExternalSource("DesignTime.vbhtml",7)
+                  End Sub))
+
+
+#End ExternalSource
+DefineSection("Footer", Sub ()
+
+
+#ExternalSource("DesignTime.vbhtml",8)
+__o = bar
+
+
+#End ExternalSource
+End Sub)
+
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/EmptyExplicitExpression.vb

@@ -0,0 +1,31 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class EmptyExplicitExpression
+Private Shared __o As Object
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("EmptyExplicitExpression.vbhtml",1)
+__o = 
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/EmptyImplicitExpression.vb

@@ -0,0 +1,31 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class EmptyImplicitExpression
+Private Shared __o As Object
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("EmptyImplicitExpression.vbhtml",1)
+__o = 
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/EmptyImplicitExpressionInCode.vb

@@ -0,0 +1,43 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class EmptyImplicitExpressionInCode
+Private Shared __o As Object
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("EmptyImplicitExpressionInCode.vbhtml",1)
+     
+    
+
+#End ExternalSource
+
+#ExternalSource("EmptyImplicitExpressionInCode.vbhtml",2)
+__o = 
+
+
+#End ExternalSource
+
+#ExternalSource("EmptyImplicitExpressionInCode.vbhtml",3)
+     
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ExplicitExpression.vb

@@ -0,0 +1,30 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class ExplicitExpression
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("ExplicitExpression.vbhtml",1)
+Write(Foo(Bar.Baz))
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ExplicitExpressionAtEOF.vb

@@ -0,0 +1,31 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class ExplicitExpressionAtEOF
+Private Shared __o As Object
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("ExplicitExpressionAtEOF.vbhtml",1)
+__o = 
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ExpressionsInCode.vb

@@ -0,0 +1,86 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class ExpressionsInCode
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("ExpressionsInCode.vbhtml",1)
+     
+    Dim foo As Object = Nothing
+    Dim bar as String = "Foo"
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ExpressionsInCode.vbhtml",6)
+ If foo IsNot Nothing Then
+    
+
+#End ExternalSource
+
+#ExternalSource("ExpressionsInCode.vbhtml",7)
+Write(foo)
+
+
+#End ExternalSource
+
+#ExternalSource("ExpressionsInCode.vbhtml",7)
+        
+Else
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>Foo is Null!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ExpressionsInCode.vbhtml",10)
+End If
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ExpressionsInCode.vbhtml",13)
+ If Not String.IsNullOrEmpty(bar) Then
+    
+
+#End ExternalSource
+
+#ExternalSource("ExpressionsInCode.vbhtml",14)
+Write(bar.Replace("F", "B"))
+
+
+#End ExternalSource
+
+#ExternalSource("ExpressionsInCode.vbhtml",14)
+                            
+End If
+
+
+#End ExternalSource
+WriteLiteral("</p>")
+
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/FunctionsBlock.DesignTime.vb

@@ -0,0 +1,47 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class FunctionsBlock
+Private Shared __o As Object
+
+#ExternalSource("FunctionsBlock.vbhtml",1)
+          
+
+
+#End ExternalSource
+
+#ExternalSource("FunctionsBlock.vbhtml",2)
+          
+    Private _rand as New Random()
+    Private Function RandomInt() as Integer
+        Return _rand.Next()
+    End Function
+
+#End ExternalSource
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("FunctionsBlock.vbhtml",3)
+                   __o = RandomInt()
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/FunctionsBlock.vb

@@ -0,0 +1,50 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class FunctionsBlock
+
+#ExternalSource("FunctionsBlock.vbhtml",1)
+          
+
+
+#End ExternalSource
+
+#ExternalSource("FunctionsBlock.vbhtml",5)
+          
+    Private _rand as New Random()
+    Private Function RandomInt() as Integer
+        Return _rand.Next()
+    End Function
+
+#End ExternalSource
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Here's a random number: ")
+
+
+#ExternalSource("FunctionsBlock.vbhtml",12)
+                   Write(RandomInt())
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/Helpers.Instance.vb

@@ -0,0 +1,87 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class Helpers
+
+#ExternalSource("Helpers.vbhtml", 1)
+Public Function Bold(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("Helpers.vbhtml", 1)
+                         
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<strong>")
+
+#ExternalSource("Helpers.vbhtml", 3)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("Helpers.vbhtml", 4)
+
+#End ExternalSource
+End Sub)
+End Function
+
+#ExternalSource("Helpers.vbhtml", 6)
+Public Function Italic(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("Helpers.vbhtml", 6)
+                           
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<em>")
+
+#ExternalSource("Helpers.vbhtml", 8)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</em>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("Helpers.vbhtml", 9)
+
+#End ExternalSource
+End Sub)
+End Function
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Helpers.vbhtml",11)
+Write(Bold("Hello"))
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/Helpers.vb

@@ -0,0 +1,87 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class Helpers
+
+#ExternalSource("Helpers.vbhtml", 1)
+Public Shared Function Bold(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("Helpers.vbhtml", 1)
+                         
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<strong>")
+
+#ExternalSource("Helpers.vbhtml", 3)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("Helpers.vbhtml", 4)
+
+#End ExternalSource
+End Sub)
+End Function
+
+#ExternalSource("Helpers.vbhtml", 6)
+Public Shared Function Italic(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("Helpers.vbhtml", 6)
+                           
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<em>")
+
+#ExternalSource("Helpers.vbhtml", 8)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</em>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("Helpers.vbhtml", 9)
+
+#End ExternalSource
+End Sub)
+End Function
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("Helpers.vbhtml",11)
+Write(Bold("Hello"))
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/HelpersMissingCloseParen.vb

@@ -0,0 +1,60 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class HelpersMissingCloseParen
+
+#ExternalSource("HelpersMissingCloseParen.vbhtml", 1)
+Public Shared Function Bold(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("HelpersMissingCloseParen.vbhtml", 1)
+                         
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<strong>")
+
+#ExternalSource("HelpersMissingCloseParen.vbhtml", 3)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("HelpersMissingCloseParen.vbhtml", 4)
+
+#End ExternalSource
+End Sub)
+End Function
+
+#ExternalSource("HelpersMissingCloseParen.vbhtml", 6)
+Public Shared Function Italic(s as String
+
+@Bold("Hello")
+#End ExternalSource
+End Function
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/HelpersMissingName.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class HelpersMissingName
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/HelpersMissingOpenParen.vb

@@ -0,0 +1,66 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class HelpersMissingOpenParen
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml", 1)
+Public Shared Function Bold(s as String) As Template
+
+#End ExternalSource
+Return New Template(Sub (__razor_helper_writer)
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml", 1)
+                         
+    s = s.ToUpper()
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "    ")
+WriteLiteralTo(__razor_helper_writer, "<strong>")
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml", 3)
+WriteTo(__razor_helper_writer, s)
+
+#End ExternalSource
+WriteLiteralTo(__razor_helper_writer, "</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml", 4)
+
+#End ExternalSource
+End Sub)
+End Function
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml", 6)
+Public Shared Function Italic
+#End ExternalSource
+End Function
+
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("HelpersMissingOpenParen.vbhtml",8)
+Write(Bold("Hello"))
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace

external/aspnetwebstack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ImplicitExpression.vb

@@ -0,0 +1,56 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:N.N.NNNNN.N
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+
+Namespace TestOutput
+Public Class ImplicitExpression
+Public Sub New()
+MyBase.New
+End Sub
+Public Overrides Sub Execute()
+
+#ExternalSource("ImplicitExpression.vbhtml",1)
+ For i = 1 To 10
+
+
+#End ExternalSource
+WriteLiteral("    ")
+
+WriteLiteral("<p>This is item #")
+
+
+#ExternalSource("ImplicitExpression.vbhtml",2)
+                 Write(i)
+
+
+#End ExternalSource
+WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ImplicitExpression.vbhtml",3)
+Next
+
+
+#End ExternalSource
+WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
+
+
+#ExternalSource("ImplicitExpression.vbhtml",5)
+Write(SyntaxSampleHelpers.CodeForLink(Me))
+
+
+#End ExternalSource
+End Sub
+End Class
+End Namespace