Added unit tests for VB.NET function and subroutine declarations.

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/3.0@5337 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/Libraries/NRefactory/Test/Parser/TypeLevel/MethodDeclarationTests.cs

@@ -311,6 +311,35 @@ namespace ICSharpCode.NRefactory.Tests.Ast
 			Assert.AreEqual(2, md.StartLocation.Column, "StartLocation.X");
 		}
 		
+		[Test]
+		[Ignore("End line for function is off by one.")]
+		public void VBNetFunctionMethodDeclarationTest()
+		{
+			const string program = @"public function MyFunction() as Integer
+				return 1
+			end function";
+			
+			MethodDeclaration md = ParseUtilVBNet.ParseTypeMember<MethodDeclaration>(program);
+			Assert.AreEqual(Modifiers.Public, md.Modifier);
+			Assert.AreEqual(2, md.StartLocation.Line, "StartLocation.Y");
+			Assert.AreEqual(2, md.StartLocation.Column, "StartLocation.X");
+			Assert.AreEqual(2, md.EndLocation.Line, "EndLocation.Y");
+		}
+		
+		[Test]
+		public void VBNetSubroutineMethodDeclarationTest()
+		{
+			const string program = @"public Sub MyMethod()
+				OtherMethod()
+			end Sub";
+			
+			MethodDeclaration md = ParseUtilVBNet.ParseTypeMember<MethodDeclaration>(program);
+			Assert.AreEqual(Modifiers.Public, md.Modifier);
+			Assert.AreEqual(2, md.StartLocation.Line, "StartLocation.Y");
+			Assert.AreEqual(2, md.StartLocation.Column, "StartLocation.X");
+			Assert.AreEqual(2, md.EndLocation.Line, "EndLocation.Y");
+		}
+		
 		[Test]
 		public void VBNetGenericFunctionMethodDeclarationTest()
 		{