X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fclass%2FSystem%2FTest%2FMicrosoft.VisualBasic%2FCodeGeneratorFromTypeTest.cs;h=ca21e5f485cced1338ff5c8d9c93ad1df169a9ad;hb=496dfbf9ec0fd3143e5dd560a863d916e56a52b8;hp=84c6cf7bc3803367d5f43790c50536fbcc14974c;hpb=94f9c69855a87f94f2396180ff03bdd8d84279d8;p=mono.git

diff --git a/mcs/class/System/Test/Microsoft.VisualBasic/CodeGeneratorFromTypeTest.cs b/mcs/class/System/Test/Microsoft.VisualBasic/CodeGeneratorFromTypeTest.cs
index 84c6cf7bc38..ca21e5f485c 100644
--- a/mcs/class/System/Test/Microsoft.VisualBasic/CodeGeneratorFromTypeTest.cs
+++ b/mcs/class/System/Test/Microsoft.VisualBasic/CodeGeneratorFromTypeTest.cs
@@ -58,13 +58,13 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		[ExpectedException (typeof (NullReferenceException))]
 		public override void NullTypeTest ()
-		{
+		{
 			GenerateNullType (Options);
 		}
 
 		[Test]
 		public override void SimpleTypeTest ()
-		{
+		{
 			string code = GenerateSimpleType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -73,7 +73,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void DerivedTypeTest ()
-		{
+		{
 			string code = GenerateDerivedType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 #if NET_2_0
@@ -88,7 +88,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void AttributesAndTypeTest ()
-		{
+		{
 			string code = GenerateAttributesAndType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"<A(),  _{0}" +
@@ -99,20 +99,24 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void EventMembersTypeTest1 ()
-		{
+		{
 			string code = GenerateEventMembersType1 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
 				"    {0}" +
 				"    <A(),  _{0}" +
 				"     B()>  _{0}" +
+#if NET_2_0
+				"    Private Event __exception As System.Void{0}" +
+#else
 				"    Private Event  As System.Void{0}" +
+#endif
 				"End Class{0}", NewLine), code);
 		}
 
 		[Test]
 		public override void EventMembersTypeTest2 ()
-		{
+		{
 			string code = GenerateEventMembersType2 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -123,7 +127,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void EventImplementationTypes ()
-		{
+		{
 			string code = GenerateEventImplementationTypes (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -142,7 +146,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void EventPrivateImplementationType ()
-		{
+		{
 			string code = GenerateEventPrivateImplementationType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -161,7 +165,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void EventImplementationTypeOrder ()
-		{
+		{
 			string code = GenerateEventImplementationTypeOrder (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -176,20 +180,24 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void FieldMembersAttributesTest ()
-		{
+		{
 			string code = GenerateFieldMembersAttributes (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
 				"    {0}" +
 				"    <A(),  _{0}" +
 				"     B()>  _{0}" +
+#if NET_2_0
+				"    Private __exception As System.Void{0}" +
+#else
 				"    Private  As System.Void{0}" +
+#endif
 				"End Class{0}", NewLine), code);
 		}
 
 		[Test]
 		public override void FieldMembersTypeTest ()
-		{
+		{
 			string code = GenerateFieldMembersType (MemberAttributes.Public, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -201,7 +209,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void FieldNewSlotTest ()
 		{
-			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
+			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
 				MemberAttributes.New, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -212,7 +220,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void PropertyMembersTypeTest1 ()
-		{
+		{
 			string code = GeneratePropertyMembersAttributes (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -231,7 +239,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeTest2 ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Public,
+			string code = GeneratePropertyMembersType (MemberAttributes.Public,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -248,7 +256,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -267,7 +275,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeSetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -286,7 +294,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetSet ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -312,7 +320,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeFamilyOrAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -334,7 +342,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -354,7 +362,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyParametersTest ()
-		{
+		{
 			string code = GeneratePropertyParameters (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -367,7 +375,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest1 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -384,7 +392,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest2 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -404,7 +412,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerGetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				true, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -422,7 +430,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerSetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				false, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -436,7 +444,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void PropertyImplementationTypes ()
-		{
+		{
 			string code = GeneratePropertyImplementationTypes (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -456,7 +464,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyOverloadsTest1 ()
-		{
+		{
 			string code = GeneratePropertyOverloads1 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -476,7 +484,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyOverloadsTest2 ()
-		{
+		{
 			string code = GeneratePropertyOverloads2 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -499,7 +507,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyOverloadsTest3 ()
-		{
+		{
 			string code = GeneratePropertyOverloads3 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -522,7 +530,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyPrivateImplementationType ()
-		{
+		{
 			string code = GeneratePropertyPrivateImplementationType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -538,7 +546,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void PropertyImplementationTypeOrder ()
-		{
+		{
 			string code = GeneratePropertyImplementationTypeOrder (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -551,7 +559,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyNewSlotTest ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Private |
+			string code = GeneratePropertyMembersType (MemberAttributes.Private |
 				MemberAttributes.New, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -571,7 +579,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void MethodMembersTypeTest1 ()
-		{
+		{
 			string code = GenerateMethodMembersType1 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -585,7 +593,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void MethodMembersTypeTest2 ()
-		{
+		{
 			string code = GenerateMethodMembersType2 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -597,19 +605,23 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void MethodMembersTypeTest3 ()
-		{
+		{
 			string code = GenerateMethodMembersType3 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
 				"    {0}" +
-				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef index As Integer) As Integer{0}" +
+#if NET_2_0
+				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef __exception As Integer) As Integer{0}" +
+#else
+				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef  As Integer) As Integer{0}" +
+#endif
 				"    End Function{0}" +
 				"End Class{0}", NewLine), code);
 		}
 
 		[Test]
 		public override void MethodImplementationTypes ()
-		{
+		{
 			string code = GenerateMethodImplementationTypes (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -629,7 +641,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void MethodOverloadsTest1 ()
-		{
+		{
 			string code = GenerateMethodOverloads1 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -649,7 +661,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void MethodOverloadsTest2 ()
-		{
+		{
 			string code = GenerateMethodOverloads2 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -668,7 +680,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void MethodOverloadsTest3 ()
-		{
+		{
 			string code = GenerateMethodOverloads3 (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -687,7 +699,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		/// </summary>
 		[Test]
 		public override void MethodPrivateImplementationType ()
-		{
+		{
 			string code = GenerateMethodPrivateImplementationType (Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -785,7 +797,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorSingleArg ()
-		{
+		{
 			string code = GenerateBaseConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -798,7 +810,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateBaseConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -811,7 +823,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorSingleArg ()
-		{
+		{
 			string code = GenerateChainedConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -824,7 +836,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateChainedConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Class Test1{0}" +
@@ -850,6 +862,22 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    End Sub{0}" +
 				"End Class{0}", NewLine), code);
 		}
+
+		[Test]
+		public override void EntryPointMethodTest ()
+		{
+			string code = GenerateEntryPointMethod (Options);
+			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
+				"Public Class Test1{0}" +
+				"    {0}" +
+#if NET_2_0
+				"    <A()>  _{0}" +
+#endif
+				"    Public Shared Sub Main(){0}" +
+				"        Dim x As Test.InnerType{0}" +
+				"    End Sub{0}" +
+				"End Class{0}", NewLine), code);
+		}
 	}
 
 	[TestFixture]
@@ -982,7 +1010,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void FieldMembersTypeTest ()
-		{
+		{
 			string code = GenerateFieldMembersType (MemberAttributes.Public, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -991,7 +1019,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void FieldNewSlotTest ()
 		{
-			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
+			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
 				MemberAttributes.New, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1008,7 +1036,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeTest2 ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Public,
+			string code = GeneratePropertyMembersType (MemberAttributes.Public,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1017,7 +1045,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1026,7 +1054,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeSetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1035,7 +1063,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetSet ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1044,7 +1072,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeFamilyOrAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1053,7 +1081,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1070,7 +1098,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest1 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1079,7 +1107,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest2 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1088,7 +1116,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerGetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				true, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1097,7 +1125,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerSetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				false, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1154,7 +1182,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyNewSlotTest ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Private |
+			string code = GeneratePropertyMembersType (MemberAttributes.Private |
 				MemberAttributes.New, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1274,7 +1302,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorSingleArg ()
-		{
+		{
 			string code = GenerateBaseConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1282,7 +1310,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateBaseConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1290,7 +1318,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorSingleArg ()
-		{
+		{
 			string code = GenerateChainedConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1298,7 +1326,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateChainedConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
@@ -1311,6 +1339,20 @@ namespace MonoTests.Microsoft.VisualBasic
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Delegate Sub Test1(){0}{0}", NewLine), code);
 		}
+
+		[Test]
+		public override void EntryPointMethodTest ()
+		{
+			string code = GenerateEntryPointMethod (Options);
+			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
+				"Public Delegate Sub Test1(){0}{0}" +
+#if NET_2_0
+				"<A()>  _{0}" +
+#endif
+				"Public Shared Sub Main(){0}" +
+				"    Dim x As Test.InnerType{0}" +
+				"End Sub{0}", NewLine), code);
+		}
 	}
 
 	[TestFixture]
@@ -1399,7 +1441,11 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    {0}" +
 				"    <A(),  _{0}" +
 				"     B()>  _{0}" +
+#if NET_2_0
+				"    Private Event __exception As System.Void{0}" +
+#else
 				"    Private Event  As System.Void{0}" +
+#endif
 				"End Interface{0}", NewLine), code);
 		}
 
@@ -1471,7 +1517,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void FieldMembersTypeTest ()
-		{
+		{
 			string code = GenerateFieldMembersType (MemberAttributes.Public, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1482,7 +1528,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void FieldNewSlotTest ()
 		{
-			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
+			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
 				MemberAttributes.New, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1510,7 +1556,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeTest2 ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Public,
+			string code = GeneratePropertyMembersType (MemberAttributes.Public,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1526,7 +1572,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1542,7 +1588,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeSetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1558,7 +1604,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetSet ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1574,7 +1620,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeFamilyOrAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1590,7 +1636,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1617,7 +1663,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest1 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1629,7 +1675,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest2 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1645,7 +1691,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerGetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				true, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1657,7 +1703,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerSetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				false, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1755,7 +1801,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyNewSlotTest ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Private |
+			string code = GeneratePropertyMembersType (MemberAttributes.Private |
 				MemberAttributes.New, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1799,7 +1845,11 @@ namespace MonoTests.Microsoft.VisualBasic
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
 				"    {0}" +
-				"    Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef index As Integer) As Integer{0}" +
+#if NET_2_0
+				"    Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef __exception As Integer) As Integer{0}" +
+#else
+				"    Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef  As Integer) As Integer{0}" +
+#endif
 				"End Interface{0}", NewLine), code);
 		}
 
@@ -1929,7 +1979,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorSingleArg ()
-		{
+		{
 			string code = GenerateBaseConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1939,7 +1989,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateBaseConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1949,7 +1999,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorSingleArg ()
-		{
+		{
 			string code = GenerateChainedConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1959,7 +2009,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateChainedConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Interface Test1{0}" +
@@ -1976,6 +2026,22 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    {0}" +
 				"End Interface{0}", NewLine), code);
 		}
+
+		[Test]
+		public override void EntryPointMethodTest ()
+		{
+			string code = GenerateEntryPointMethod (Options);
+			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
+				"Public Interface Test1{0}" +
+				"    {0}" +
+#if NET_2_0
+				"    <A()>  _{0}" +
+#endif
+				"    Public Shared Sub Main(){0}" +
+				"        Dim x As Test.InnerType{0}" +
+				"    End Sub{0}" +
+				"End Interface{0}", NewLine), code);
+		}
 	}
 
 	[TestFixture]
@@ -2064,7 +2130,11 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    {0}" +
 				"    <A(),  _{0}" +
 				"     B()>  _{0}" +
+#if NET_2_0
+				"    Private Event __exception As System.Void{0}" +
+#else
 				"    Private Event  As System.Void{0}" +
+#endif
 				"End Structure{0}", NewLine), code);
 		}
 
@@ -2133,13 +2203,17 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    {0}" +
 				"    <A(),  _{0}" +
 				"     B()>  _{0}" +
+#if NET_2_0
+				"    Private __exception As System.Void{0}" +
+#else
 				"    Private  As System.Void{0}" +
+#endif
 				"End Structure{0}", NewLine), code);
 		}
 
 		[Test]
 		public override void FieldMembersTypeTest ()
-		{
+		{
 			string code = GenerateFieldMembersType (MemberAttributes.Public, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2151,7 +2225,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void FieldNewSlotTest ()
 		{
-			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
+			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
 				MemberAttributes.New, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2181,7 +2255,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeTest2 ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Public,
+			string code = GeneratePropertyMembersType (MemberAttributes.Public,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2198,7 +2272,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2217,7 +2291,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeSetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2236,7 +2310,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetSet ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2262,7 +2336,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeFamilyOrAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2279,7 +2353,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2308,7 +2382,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest1 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2321,7 +2395,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest2 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2338,7 +2412,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerGetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				true, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2353,7 +2427,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerSetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				false, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2462,7 +2536,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyNewSlotTest ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Private |
+			string code = GeneratePropertyMembersType (MemberAttributes.Private |
 				MemberAttributes.New, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2513,7 +2587,11 @@ namespace MonoTests.Microsoft.VisualBasic
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
 				"    {0}" +
-				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef index As Integer) As Integer{0}" +
+#if NET_2_0
+				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef __exception As Integer) As Integer{0}" +
+#else
+				"    Public Overridable Function Something(<A(), B()> ByVal value As Object, <C(A1:=false, A2:=true), D()> ByRef  As Integer) As Integer{0}" +
+#endif
 				"    End Function{0}" +
 				"End Structure{0}", NewLine), code);
 		}
@@ -2682,7 +2760,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorSingleArg ()
-		{
+		{
 			string code = GenerateBaseConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2695,7 +2773,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateBaseConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2708,7 +2786,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorSingleArg ()
-		{
+		{
 			string code = GenerateChainedConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2721,7 +2799,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateChainedConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Structure Test1{0}" +
@@ -2747,6 +2825,22 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    End Sub{0}" +
 				"End Structure{0}", NewLine), code);
 		}
+
+		[Test]
+		public override void EntryPointMethodTest ()
+		{
+			string code = GenerateEntryPointMethod (Options);
+			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
+				"Public Structure Test1{0}" +
+				"    {0}" +
+#if NET_2_0
+				"    <A()>  _{0}" +
+#endif
+				"    Public Shared Sub Main(){0}" +
+				"        Dim x As Test.InnerType{0}" +
+				"    End Sub{0}" +
+				"End Structure{0}", NewLine), code);
+		}
 	}
 
 	[TestFixture]
@@ -2890,7 +2984,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void FieldMembersTypeTest ()
-		{
+		{
 			string code = GenerateFieldMembersType (MemberAttributes.Public, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2902,7 +2996,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void FieldNewSlotTest ()
 		{
-			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
+			string code = GenerateFieldMembersType (MemberAttributes.Assembly |
 				MemberAttributes.New, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2924,7 +3018,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeTest2 ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Public,
+			string code = GeneratePropertyMembersType (MemberAttributes.Public,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2935,7 +3029,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2946,7 +3040,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeSetOnly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2957,7 +3051,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeGetSet ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Family,
+			string code = GeneratePropertyMembersType (MemberAttributes.Family,
 				true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2968,7 +3062,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeFamilyOrAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.FamilyOrAssembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -2979,7 +3073,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyMembersTypeAssembly ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
+			string code = GeneratePropertyMembersType (MemberAttributes.Assembly,
 				false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3000,7 +3094,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest1 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3011,7 +3105,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerTest2 ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Public,
+			string code = GeneratePropertyIndexer (MemberAttributes.Public,
 				false, false, false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3022,7 +3116,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerGetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				true, false, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3033,7 +3127,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyIndexerSetOnly ()
 		{
-			string code = GeneratePropertyIndexer (MemberAttributes.Family,
+			string code = GeneratePropertyIndexer (MemberAttributes.Family,
 				false, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3106,7 +3200,7 @@ namespace MonoTests.Microsoft.VisualBasic
 		[Test]
 		public override void PropertyNewSlotTest ()
 		{
-			string code = GeneratePropertyMembersType (MemberAttributes.Private |
+			string code = GeneratePropertyMembersType (MemberAttributes.Private |
 				MemberAttributes.New, true, true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3258,7 +3352,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorSingleArg ()
-		{
+		{
 			string code = GenerateBaseConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3268,7 +3362,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void BaseConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateBaseConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3278,7 +3372,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorSingleArg ()
-		{
+		{
 			string code = GenerateChainedConstructor (false, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3288,7 +3382,7 @@ namespace MonoTests.Microsoft.VisualBasic
 
 		[Test]
 		public override void ChainedConstructorMultipleArgs ()
-		{
+		{
 			string code = GenerateChainedConstructor (true, Options);
 			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
 				"Public Enum Test1{0}" +
@@ -3305,5 +3399,21 @@ namespace MonoTests.Microsoft.VisualBasic
 				"    {0}" +
 				"End Enum{0}", NewLine), code);
 		}
+
+		[Test]
+		public override void EntryPointMethodTest ()
+		{
+			string code = GenerateEntryPointMethod (Options);
+			Assert.AreEqual (string.Format (CultureInfo.InvariantCulture,
+				"Public Enum Test1{0}" +
+				"    {0}" +
+#if NET_2_0
+				"    <A()>  _{0}" +
+#endif
+				"    Public Shared Sub Main(){0}" +
+				"        Dim x As Test.InnerType{0}" +
+				"    End Sub{0}" +
+				"End Enum{0}", NewLine), code);
+		}
 	}
 }