added another unit test for inline VB code

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

src/Libraries/NRefactory/Project/Src/Parser/VBNet/Experimental/Test/XmlModeLexerTests.cs

@@ -381,6 +381,25 @@ namespace DefaultNamespace
 			CheckFoot(lexer);
 		}
 		
+		[Test]
+		public void InlineVB2()
+		{
+			string code = @"Dim contact As XElement =  <<%=elementName %>>
+                               <name><%= MyName %></name>
+                           </>";
+			
+			ILexer lexer = GenerateLexer(new StringReader(TestStatement(code)));
+			
+			CheckHead(lexer);
+			
+			CheckTokens(lexer, Tokens.Dim, Tokens.Identifier, Tokens.As, Tokens.Identifier, Tokens.Assign, Tokens.XmlOpenTag,
+			            Tokens.XmlStartInlineVB, Tokens.Identifier, Tokens.XmlEndInlineVB, Tokens.XmlCloseTag, Tokens.XmlContent,
+			            Tokens.XmlOpenTag, Tokens.Identifier, Tokens.XmlCloseTag, Tokens.XmlStartInlineVB, Tokens.Identifier, Tokens.XmlEndInlineVB,
+			            Tokens.XmlOpenEndTag, Tokens.Identifier, Tokens.XmlCloseTag, Tokens.XmlContent, Tokens.XmlOpenEndTag, Tokens.XmlCloseTag);
+			
+			CheckFoot(lexer);
+		}
+		
 		[Test]
 		public void XmlAccessOperators()
 		{