Skip to content

R
Roslyn

dotNET / Roslyn

通知 1
Star 0
Fork 0
R
Roslyn

体验新版 GitCode，发现更多精彩内容 >>

提交 27095595 编写于 作者: C CyrusNajmabadi
浏览文件
操作

Update tests.

上级 2b28e5c1
隐藏空白更改
内联 并排
Showing with 64 addition and 64 deletion
src/VisualStudio/Core/Test/LanguageBlockTests.vb
浏览文件 @ 27095595
......@@ -11,8 +11,8 @@ Imports Roslyn.Test.Utilities
Namespace Tests
Public Class LanguageBlockTests
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_NotInImports_VB() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotInImports_VB()
VerifyNoBlock("
I$$mports System
Module Program
......@@ -21,11 +21,11 @@ Module Program
End Sub
End Module
", LanguageNames.VisualBasic)
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_NotLeadingTriviaOfRootClass_VB() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotLeadingTriviaOfRootClass_VB()
VerifyNoBlock("
Imports System
$$
......@@ -36,11 +36,11 @@ Module Program
End Sub
End Module
", LanguageNames.VisualBasic)
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InNamespace_VB() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InNamespace_VB()
VerifyBlock("
[|Namespace N
$$
Module Program
......@@ -50,11 +50,11 @@ $$
End Module
End Namespace|]
", LanguageNames.VisualBasic, "N")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InModule_VB() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InModule_VB()
VerifyBlock("
Namespace N
[|Module Program
$$
......@@ -64,11 +64,11 @@ Namespace N
End Module|]
End Namespace
", LanguageNames.VisualBasic, "Program")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InSub() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InSub()
VerifyBlock("
Namespace N
Module Program
[|Sub M()
......@@ -77,11 +77,11 @@ Namespace N
End Module
End Namespace
", LanguageNames.VisualBasic, "Sub Program.M()")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InFunction() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InFunction()
VerifyBlock("
Namespace N
Module Program
[|Function F() As Integer
......@@ -90,11 +90,11 @@ Namespace N
End Module
End Namespace
", LanguageNames.VisualBasic, "Function Program.F() As Integer")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InProperty_VB() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InProperty_VB()
VerifyBlock("
Namespace N
Module Program
[|ReadOnly Property P() As Integer
......@@ -105,11 +105,11 @@ Namespace N
End Module
End Namespace
", LanguageNames.VisualBasic, "Property Program.P() As Integer")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_NotInUsings_CS() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotInUsings_CS()
VerifyNoBlock("
u$$sing System;
class Program
......@@ -117,11 +117,11 @@ class Program
void M() { }
}
", LanguageNames.CSharp)
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_NotLeadingTriviaOfRootClass_CS() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotLeadingTriviaOfRootClass_CS()
VerifyNoBlock("
using System;
$$
......@@ -131,11 +131,11 @@ class Program
void M() { }
}
", LanguageNames.CSharp)
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InNamespace_CS() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InNamespace_CS()
VerifyBlock("
[|namespace N
{
$$
......@@ -145,11 +145,11 @@ $$
}
}|]
", LanguageNames.CSharp, "N")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InClass_CS() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InClass_CS()
VerifyBlock("
namespace N
{
[|class Program
......@@ -159,11 +159,11 @@ namespace N
}|]
}
", LanguageNames.CSharp, "Program")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InMethod() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InMethod()
VerifyBlock("
namespace N
{
class Program
......@@ -175,11 +175,11 @@ namespace N
}
}
", LanguageNames.CSharp, "void Program.M()")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_InProperty_CS() As Task
Await VerifyBlockAsync("
Public Sub TestGetCurrentBlock_InProperty_CS()
VerifyBlock("
namespace N
{
class Program
......@@ -194,43 +194,43 @@ namespace N
}
}
", LanguageNames.CSharp, "int Program.P")
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock), WorkItem(1043580, "http://vstfdevdiv:8080/DevDiv2/DevDiv/_workitems/edit/1043580")>
Public Async Function TestGetCurrentBlock_DocumentDoesNotSupportSyntax() As Task
Public Sub TestGetCurrentBlock_DocumentDoesNotSupportSyntax()
' NoCompilation is the special Language-Name we use to indicate that a language does not
' support SyntaxTrees/SemanticModels. This test validates that we do not crash in that
' case and we gracefully bail out with 'false' for VsLanguageBlock.GetCurrentBlock.
Await VerifyNoBlockAsync("$$", languageName:="NoCompilation")
End Function
VerifyNoBlock("$$", languageName:="NoCompilation")
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock)>
Public Async Function TestGetCurrentBlock_NotInGlobalCode_CS() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotInGlobalCode_CS()
VerifyNoBlock("
var message = ""Hello"";
System.Console$$.WriteLine(message);
", LanguageNames.CSharp, SourceCodeKind.Script)
Await VerifyNoBlockAsync("
VerifyNoBlock("
var message = ""Hello"";
System.Console$$.WriteLine(message);
", LanguageNames.CSharp, SourceCodeKind.Regular)
End Function
End Sub
<Fact, Trait(Traits.Feature, Traits.Features.VsLanguageBlock)>
Public Async Function TestGetCurrentBlock_NotInGlobalCode_VB() As Task
Await VerifyNoBlockAsync("
Public Sub TestGetCurrentBlock_NotInGlobalCode_VB()
VerifyNoBlock("
Dim message = ""Hello""
System.Console$$.WriteLine(message)
", LanguageNames.VisualBasic, SourceCodeKind.Script)
Await VerifyNoBlockAsync("
VerifyNoBlock("
Dim message = ""Hello""
System.Console$$.WriteLine(message)
", LanguageNames.VisualBasic, SourceCodeKind.Regular)
End Function
End Sub
Private Async Function VerifyNoBlockAsync(markup As String, languageName As String, Optional sourceCodeKind As SourceCodeKind = SourceCodeKind.Regular) As Tasks.Task
Private Sub VerifyNoBlock(markup As String, languageName As String, Optional sourceCodeKind As SourceCodeKind = SourceCodeKind.Regular)
Dim xml = <Workspace>
<Project Language=<%= languageName %> CommonReferences="True">
<Document>
......@@ -242,14 +242,14 @@ System.Console$$.WriteLine(message)
Using workspace = TestWorkspace.Create(xml)
Dim hostDocument = workspace.Documents.Single()
Assert.Null(Await VsLanguageBlock.GetCurrentBlockAsync(
hostDocument.TextBuffer.CurrentSnapshot,
hostDocument.CursorPosition.Value,
CancellationToken.None))
Assert.Null(VsLanguageBlock.GetCurrentBlock(
hostDocument.TextBuffer.CurrentSnapshot,
hostDocument.CursorPosition.Value,
CancellationToken.None))
End Using
End Function
End Sub
Private Async Function VerifyBlockAsync(markup As String, languageName As String, expectedDescription As String) As Tasks.Task
Private Sub VerifyBlock(markup As String, languageName As String, expectedDescription As String)
Dim xml = <Workspace>
<Project Language=<%= languageName %> CommonReferences="True">
<Document>
......@@ -260,14 +260,14 @@ System.Console$$.WriteLine(message)
Using workspace = TestWorkspace.Create(xml)
Dim hostDocument = workspace.Documents.Single()
Dim tuple = Await VsLanguageBlock.GetCurrentBlockAsync(
hostDocument.TextBuffer.CurrentSnapshot,
hostDocument.CursorPosition.Value,
CancellationToken.None)
Dim tuple = VsLanguageBlock.GetCurrentBlock(
hostDocument.TextBuffer.CurrentSnapshot,
hostDocument.CursorPosition.Value,
CancellationToken.None)
Assert.Equal(expectedDescription, tuple.Item1)
Assert.Equal(hostDocument.SelectedSpans.Single(), tuple.Item2)
Assert.Equal(expectedDescription, tuple.Value.description)
Assert.Equal(hostDocument.SelectedSpans.Single(), tuple.Value.span)
End Using
End Function
End Sub
End Class
End Namespace
\ No newline at end of file
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或