22' The .NET Foundation licenses this file to you under the MIT license.
33' See the LICENSE file in the project root for more information.
44
5+ Imports System.Threading
56Imports System.Windows
67Imports Microsoft.CodeAnalysis
78Imports Microsoft.CodeAnalysis.Editor.UnitTests.Extensions
8- Imports Microsoft.CodeAnalysis.Editor.UnitTests.Workspaces
99Imports Microsoft.CodeAnalysis.Test.Utilities
1010Imports Microsoft.VisualStudio.LanguageServices.Implementation.ChangeSignature
1111Imports Roslyn.Test.Utilities
@@ -15,14 +15,14 @@ Namespace Microsoft.VisualStudio.LanguageServices.UnitTests.ChangeSignature
1515 Public Class AddParameterViewModelTests
1616
1717 <WpfFact>
18- Public Sub AddParameter_SubmittingRequiresTypeAndNameAndCallsiteValue()
18+ Public Async Function AddParameter_SubmittingRequiresTypeAndNameAndCallsiteValue() As Task
1919 Dim markup = <Text><! [CDATA [
2020class MyClass
2121{
2222 public void M( $$) { }
2323} "]]></Text>
2424
25- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
25+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
2626 Dim viewModel = viewModelTestState.ViewModel
2727
2828 VerifyOpeningState(viewModel)
@@ -43,17 +43,17 @@ class MyClass
4343
4444 viewModel.CallSiteValue = "7"
4545 Assert.True(viewModel.TrySubmit())
46- End Sub
46+ End Function
4747
4848 <WpfFact>
49- Public Sub AddParameter_TypeNameTextBoxInteractions()
49+ Public Async Function AddParameter_TypeNameTextBoxInteractions() As Task
5050 Dim markup = <Text><! [CDATA [
5151class MyClass <T>
5252{
5353 public void M( $$) { }
5454} "]]></Text>
5555
56- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
56+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
5757 Dim viewModel = viewModelTestState.ViewModel
5858
5959 VerifyOpeningState(viewModel)
@@ -127,13 +127,13 @@ class MyClass<T>
127127 monitor.Detach()
128128
129129 AssertTypeBindingIconAndTextIs(viewModel, NameOf (viewModel.TypeIsEmptyImage), ServicesVSResources.Please_enter_a_type_name)
130- End Sub
130+ End Function
131131
132132 <WpfTheory>
133133 <InlineData( "int" )>
134134 <InlineData( "MyClass" )>
135135 <InlineData( "NS1.NS2.DifferentClass" )>
136- Public Sub AddParameter_NoExistingParameters_TypeBinds(typeName As String )
136+ Public Async Function AddParameter_NoExistingParameters_TypeBinds(typeName As String ) As Task
137137 Dim markup = <Text><! [CDATA [
138138namespace NS1
139139{
@@ -151,7 +151,7 @@ class MyClass
151151 }
152152} "]]></Text>
153153
154- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
154+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
155155 Dim viewModel = viewModelTestState.ViewModel
156156
157157 VerifyOpeningState(viewModel)
@@ -174,17 +174,17 @@ class MyClass
174174 viewModel.CallSiteValue = "0"
175175
176176 Assert.True(viewModel.TrySubmit())
177- End Sub
177+ End Function
178178
179179 <WpfFact>
180- Public Sub AddParameter_CannotBeBothRequiredAndOmit()
180+ Public Async Function AddParameter_CannotBeBothRequiredAndOmit() As Task
181181 Dim markup = <Text><! [CDATA [
182182class MyClass <T>
183183{
184184 public void M( $$) { }
185185} "]]></Text>
186186
187- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
187+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
188188 Dim viewModel = viewModelTestState.ViewModel
189189
190190 VerifyOpeningState(viewModel)
@@ -204,13 +204,13 @@ class MyClass<T>
204204
205205 Assert.True(viewModel.IsCallsiteRegularValue)
206206 Assert.False(viewModel.IsCallsiteOmitted)
207- End Sub
207+ End Function
208208
209209 <WpfTheory>
210210 <InlineData( "int" )>
211211 <InlineData( "MyClass" )>
212212 <InlineData( "NS1.NS2.DifferentClass" )>
213- Public Sub AddParameter_ExistingParameters_TypeBinds(typeName As String )
213+ Public Async Function AddParameter_ExistingParameters_TypeBinds(typeName As String ) As Task
214214 Dim markup = <Text><! [CDATA [
215215namespace NS1
216216{
@@ -228,7 +228,7 @@ class MyClass
228228 }
229229} "]]></Text>
230230
231- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
231+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
232232 Dim viewModel = viewModelTestState.ViewModel
233233
234234 VerifyOpeningState(viewModel)
@@ -251,7 +251,7 @@ class MyClass
251251 viewModel.CallSiteValue = "0"
252252
253253 Assert.True(viewModel.TrySubmit())
254- End Sub
254+ End Function
255255
256256 Private Shared Sub AssertTypeBindingIconAndTextIs(viewModel As AddParameterDialogViewModel, currentIcon As String , expectedMessage As String )
257257 Assert.True(viewModel.TypeIsEmptyImage = If ( NameOf (viewModel.TypeIsEmptyImage) = currentIcon, Visibility.Visible, Visibility.Collapsed))
@@ -285,9 +285,9 @@ class MyClass
285285 Assert.Equal(ServicesVSResources.A_type_and_name_must_be_provided, message)
286286 End Sub
287287
288- Private Shared Function GetViewModelTestStateAsync(
288+ Private Shared Async Function GetViewModelTestStateAsync(
289289 markup As XElement,
290- languageName As String ) As AddParameterViewModelTestState
290+ languageName As String ) As Task( Of AddParameterViewModelTestState)
291291
292292 Dim workspaceXml =
293293 <Workspace>
@@ -303,20 +303,21 @@ class MyClass
303303 Assert.True( False , "Missing caret location in document." )
304304 End If
305305
306- Dim viewModel = New AddParameterDialogViewModel(workspaceDoc, doc.CursorPosition.Value)
306+ Dim document = Await SemanticDocument.CreateAsync(workspaceDoc, CancellationToken.None)
307+ Dim viewModel = New AddParameterDialogViewModel(document, doc.CursorPosition.Value)
307308 Return New AddParameterViewModelTestState(viewModel)
308309 End Using
309310 End Function
310311
311312 <WpfFact, WorkItem( "https://github.com/dotnet/roslyn/issues/44958" )>
312- Public Sub AddParameter_SubmittingTypeWithModifiersIsInvalid()
313+ Public Async Function AddParameter_SubmittingTypeWithModifiersIsInvalid() As Task
313314 Dim markup = <Text><! [CDATA [
314315class MyClass
315316{
316317 public void M( $$) { }
317318} "]]></Text>
318319
319- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
320+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
320321 Dim viewModel = viewModelTestState.ViewModel
321322
322323 VerifyOpeningState(viewModel)
@@ -346,17 +347,17 @@ class MyClass
346347 viewModel.VerbatimTypeName = "params int[]"
347348 Assert.False(viewModel.CanSubmit(message))
348349 Assert.Equal(ServicesVSResources.Parameter_type_contains_invalid_characters, message)
349- End Sub
350+ End Function
350351
351352 <WpfFact, WorkItem( "https://github.com/dotnet/roslyn/issues/44959" )>
352- Public Sub AddParameter_CannotSubmitVoidParameterType()
353+ Public Async Function AddParameter_CannotSubmitVoidParameterType() As Task
353354 Dim markup = <Text><! [CDATA [
354355class MyClass
355356{
356357 public void M( $$) { }
357358} "]]></Text>
358359
359- Dim viewModelTestState = GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
360+ Dim viewModelTestState = Await GetViewModelTestStateAsync(markup, LanguageNames.CSharp)
360361 Dim viewModel = viewModelTestState.ViewModel
361362
362363 VerifyOpeningState(viewModel)
@@ -371,6 +372,6 @@ class MyClass
371372 viewModel.VerbatimTypeName = "System.Void"
372373 Assert.False(viewModel.CanSubmit(message))
373374 Assert.Equal(ServicesVSResources.SystemVoid_is_not_a_valid_type_for_a_parameter, message)
374- End Sub
375+ End Function
375376 End Class
376377End Namespace
0 commit comments