Push recharacterization

We'll want to be more fine-grained later, but not crashing VS is a strong priority

Author: GrahamTheCoder

Tests/VB/ExpressionTests.cs

@@ -153,7 +153,7 @@ private static bool Do()
 
 Friend Class TestClass
     Private Shared Function [Do]() As Boolean
-        Dim d = New Dictionary(Of String, String)
+        Dim d = New Dictionary(Of String, String)()
         Dim output As string = Nothing
         Return d.TryGetValue("""", output)
     End Function
@@ -379,7 +379,7 @@ End Class
 
 Friend Class TestClass
     Private Sub TestMethod(ByVal str As String)
-        Dim student2 = New StudentName With {
+        Dim student2 As StudentName = New StudentName With {
             .FirstName = ""Craig"",
             .LastName = ""Playstead""
         }
@@ -432,7 +432,7 @@ Public Property Converters As IList(Of Object)
 End Class
 
 Friend Class Converter
-    Public Shared ReadOnly Settings = New SomeSettings With {
+    Public Shared ReadOnly Settings As SomeSettings = New SomeSettings With {
         .Converters = {}
     }
 End Class");
@@ -534,7 +534,7 @@ Imports System.Collections.Generic
 
 Namespace PreHOPL
     Friend Module Program
-        Private ReadOnly dict = New Dictionary(Of String, ValueTuple(Of Integer, [Delegate])) From {
+        Private ReadOnly dict As Dictionary(Of String, ValueTuple(Of Integer, [Delegate])) = New Dictionary(Of String, ValueTuple(Of Integer, [Delegate]))() From {
             {""SAY"", (1, CType(AddressOf System.Console.WriteLine, Action(Of String)))}
         }
 

Tests/VB/MemberTests.cs

@@ -703,7 +703,7 @@ End Property
 
     Public WriteOnly Property Blanket As String
         Set(ByVal value As String)
-            Throw New Exception
+            Throw New Exception()
         End Set
     End Property
 End Class");

Tests/VB/NamespaceLevelTests.cs

@@ -347,10 +347,10 @@ Implements iDisplay
 
     Private Property Item(ByVal i As Integer) As Object Implements iDisplay.Item
         Get
-            Throw New NotImplementedException
+            Throw New System.NotImplementedException()
         End Get
         Set(ByVal value As Object)
-            Throw New NotImplementedException
+            Throw New System.NotImplementedException()
         End Set
     End Property
 End Class

Tests/VB/StandaloneStatementTests.cs

@@ -27,7 +27,7 @@ await TestConversionCSharpToVisualBasic(
     Inherited = false
 };
 obj = null;",
-@"Dim obj = New AttributeUsageAttribute With {
+@"Dim obj As AttributeUsageAttribute = New AttributeUsageAttribute() With {
     .AllowMultiple = True,
     .Inherited = False
 }

Tests/VB/StatementTests.cs

@@ -119,7 +119,7 @@ void TestMethod()
     }
 }", @"Friend Class TestClass
     Private Sub TestMethod()
-        Dim b = New String(""test"")
+        Dim b As String = New String(""test"")
     End Sub
 End Class");
         }

Tests/VB/TypeCastTests.cs

@@ -48,8 +48,8 @@ await TestConversionCSharpToVisualBasic(
     System.Collections.Generic.List<int> l = (System.Collections.Generic.List<int>) o;
 }
 ", @"Private Sub Test()
-    Dim o As Object = New List(Of Integer)
-    Dim l = CType(o, List(Of Integer))
+    Dim o As Object = New System.Collections.Generic.List(Of Integer)()
+    Dim l = CType(o, System.Collections.Generic.List(Of Integer))
 End Sub
 ");
         }
@@ -80,8 +80,8 @@ await TestConversionCSharpToVisualBasic(
     System.Collections.Generic.List<int> l = o as System.Collections.Generic.List<int>;
 }
 ", @"Private Sub Test()
-    Dim o As Object = New List(Of Integer)
-    Dim l = TryCast(o, List(Of Integer))
+    Dim o As Object = New System.Collections.Generic.List(Of Integer)()
+    Dim l = TryCast(o, System.Collections.Generic.List(Of Integer))
 End Sub
 ");
         }