|
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.
Imports Microsoft.CodeAnalysis.VisualBasic.KeywordHighlighting
Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.KeywordHighlighting
<Trait(Traits.Feature, Traits.Features.KeywordHighlighting)>
Public Class XmlCommentHighlighterTests
Inherits AbstractVisualBasicKeywordHighlighterTests
Friend Overrides Function GetHighlighterType() As Type
Return GetType(XmlCommentHighlighter)
End Function
<Fact>
Public Async Function TestXmlLiteralSample3_1() As Task
Await TestAsync(<Text><![CDATA[
Class C
Sub M()
Dim q = <?xml version="1.0"?>
<contact>
{|Cursor:[|<!--|]|} who is this guy? [|-->|]
<name>Bill Chiles</name>
<phone type="home">555-555-5555</phone>
<birthyear><%= DateTime.Today.Year - 100 %></birthyear>
<![CDATA[Be wary of this guy!]]>]]<![CDATA[>
</contact>
End Sub
End Class]]></Text>)
End Function
<Fact>
Public Async Function TestXmlLiteralSample3_2() As Task
Await TestAsync(<Text><![CDATA[
Class C
Sub M()
Dim q = <?xml version="1.0"?>
<contact>
[|<!--|] who is this guy? {|Cursor:[|-->|]|}
<name>Bill Chiles</name>
<phone type="home">555-555-5555</phone>
<birthyear><%= DateTime.Today.Year - 100 %></birthyear>
<![CDATA[Be wary of this guy!]]>]]<![CDATA[>
</contact>
End Sub
End Class]]></Text>)
End Function
<Fact>
Public Async Function TestXmlLiteralSample3_3() As Task
Await TestAsync(<Text><![CDATA[
Class C
Sub M()
Dim q = <?xml version="1.0"?>
<contact>
<!-- {|Cursor:who is this guy?|} -->
<name>Bill Chiles</name>
<phone type="home">555-555-5555</phone>
<birthyear><%= DateTime.Today.Year - 100 %></birthyear>
<![CDATA[Be wary of this guy!]]>]]<![CDATA[>
</contact>
End Sub
End Class]]></Text>)
End Function
End Class
End Namespace
|