@@ -276,7 +276,7 @@ Dim bar As String
276
276
}
277
277
278
278
[ TestMethod ]
279
- public void ObsoleteCallStatement_FieldsReturnMultipleResult ( )
279
+ public void ObsoleteCallStatement_FieldsReturnMultipleResults ( )
280
280
{
281
281
const string inputCode =
282
282
@"Public Foo$
@@ -300,7 +300,7 @@ public void ObsoleteCallStatement_FieldsReturnMultipleResult()
300
300
}
301
301
302
302
[ TestMethod ]
303
- public void ObsoleteCallStatement_QuickFixWorks_FieldLongTypeHint ( )
303
+ public void ObsoleteCallStatement_QuickFixWorks_Field_LongTypeHint ( )
304
304
{
305
305
const string inputCode =
306
306
@"Public Foo&" ;
@@ -333,7 +333,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldLongTypeHint()
333
333
}
334
334
335
335
[ TestMethod ]
336
- public void ObsoleteCallStatement_QuickFixWorks_FieldIntegerTypeHint ( )
336
+ public void ObsoleteCallStatement_QuickFixWorks_Field_IntegerTypeHint ( )
337
337
{
338
338
const string inputCode =
339
339
@"Public Foo%" ;
@@ -366,7 +366,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldIntegerTypeHint()
366
366
}
367
367
368
368
[ TestMethod ]
369
- public void ObsoleteCallStatement_QuickFixWorks_FieldDoubleTypeHint ( )
369
+ public void ObsoleteCallStatement_QuickFixWorks_Field_DoubleTypeHint ( )
370
370
{
371
371
const string inputCode =
372
372
@"Public Foo#" ;
@@ -399,7 +399,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldDoubleTypeHint()
399
399
}
400
400
401
401
[ TestMethod ]
402
- public void ObsoleteCallStatement_QuickFixWorks_FieldSingleTypeHint ( )
402
+ public void ObsoleteCallStatement_QuickFixWorks_Field_SingleTypeHint ( )
403
403
{
404
404
const string inputCode =
405
405
@"Public Foo!" ;
@@ -432,7 +432,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldSingleTypeHint()
432
432
}
433
433
434
434
[ TestMethod ]
435
- public void ObsoleteCallStatement_QuickFixWorks_FieldDecimalTypeHint ( )
435
+ public void ObsoleteCallStatement_QuickFixWorks_Field_DecimalTypeHint ( )
436
436
{
437
437
const string inputCode =
438
438
@"Public Foo&" ;
@@ -465,7 +465,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldDecimalTypeHint()
465
465
}
466
466
467
467
[ TestMethod ]
468
- public void ObsoleteCallStatement_QuickFixWorks_FieldStringTypeHint ( )
468
+ public void ObsoleteCallStatement_QuickFixWorks_Field_StringTypeHint ( )
469
469
{
470
470
const string inputCode =
471
471
@"Public Foo$" ;
@@ -498,7 +498,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FieldStringTypeHint()
498
498
}
499
499
500
500
[ TestMethod ]
501
- public void ObsoleteCallStatement_QuickFixWorks_FunctionStringTypeHint ( )
501
+ public void ObsoleteCallStatement_QuickFixWorks_Function_StringTypeHint ( )
502
502
{
503
503
const string inputCode =
504
504
@"Public Function Foo$(ByVal fizz As Integer)
@@ -535,7 +535,7 @@ public void ObsoleteCallStatement_QuickFixWorks_FunctionStringTypeHint()
535
535
}
536
536
537
537
[ TestMethod ]
538
- public void ObsoleteCallStatement_QuickFixWorks_PropertyGetStringTypeHint ( )
538
+ public void ObsoleteCallStatement_QuickFixWorks_PropertyGet_StringTypeHint ( )
539
539
{
540
540
const string inputCode =
541
541
@"Public Property Get Foo$(ByVal fizz As Integer)
@@ -572,7 +572,7 @@ public void ObsoleteCallStatement_QuickFixWorks_PropertyGetStringTypeHint()
572
572
}
573
573
574
574
[ TestMethod ]
575
- public void ObsoleteCallStatement_QuickFixWorks_ParameterStringTypeHint ( )
575
+ public void ObsoleteCallStatement_QuickFixWorks_Parameter_StringTypeHint ( )
576
576
{
577
577
const string inputCode =
578
578
@"Public Sub Foo(ByVal fizz$)
@@ -609,7 +609,7 @@ public void ObsoleteCallStatement_QuickFixWorks_ParameterStringTypeHint()
609
609
}
610
610
611
611
[ TestMethod ]
612
- public void ObsoleteCallStatement_QuickFixWorks_VariableStringTypeHint ( )
612
+ public void ObsoleteCallStatement_QuickFixWorks_Variable_StringTypeHint ( )
613
613
{
614
614
const string inputCode =
615
615
@"Public Sub Foo()
@@ -645,9 +645,8 @@ Dim buzz As String
645
645
Assert . AreEqual ( expectedCode , module . Lines ( ) ) ;
646
646
}
647
647
648
-
649
648
[ TestMethod ]
650
- public void ObsoleteCallStatement_QuickFixWorks_FunctionReferencesAreUpdatedStringTypeHint ( )
649
+ public void ObsoleteCallStatement_QuickFixWorks_FunctionReferencesAreUpdated_StringTypeHint ( )
651
650
{
652
651
const string inputCode =
653
652
@"Public Function Foo$(ByVal bar as Boolean)
@@ -664,6 +663,53 @@ Dim bat As String
664
663
Foo = ""test""
665
664
End Function
666
665
666
+ Public Sub Buzz()
667
+ Dim bat As String
668
+ bat = Foo()
669
+ End Sub" ;
670
+
671
+ //Arrange
672
+ var builder = new MockVbeBuilder ( ) ;
673
+ VBComponent component ;
674
+ var vbe = builder . BuildFromSingleStandardModule ( inputCode , out component ) ;
675
+ var project = vbe . Object . VBProjects . Item ( 0 ) ;
676
+ var module = project . VBComponents . Item ( 0 ) . CodeModule ;
677
+ var mockHost = new Mock < IHostApplication > ( ) ;
678
+ mockHost . SetupAllProperties ( ) ;
679
+ var parser = new RubberduckParser ( vbe . Object , new RubberduckParserState ( ) ) ;
680
+
681
+ parser . Parse ( ) ;
682
+ if ( parser . State . Status == ParserState . Error ) { Assert . Inconclusive ( "Parser Error" ) ; }
683
+
684
+ var inspection = new ObsoleteTypeHintInspection ( parser . State ) ;
685
+ var inspectionResults = inspection . GetInspectionResults ( ) ;
686
+
687
+ foreach ( var inspectionResult in inspectionResults )
688
+ {
689
+ inspectionResult . QuickFixes . First ( ) . Fix ( ) ;
690
+ }
691
+
692
+ Assert . AreEqual ( expectedCode , module . Lines ( ) ) ;
693
+ }
694
+
695
+ [ TestMethod ]
696
+ public void ObsoleteCallStatement_QuickFixWorks_FunctionReferencesAreUpdated_ParentIsNotChanged_StringTypeHint ( )
697
+ {
698
+ const string inputCode =
699
+ @"Public Function Foo(ByVal bar as Boolean) As String
700
+ Foo$ = ""test""
701
+ End Function
702
+
703
+ Public Sub Buzz()
704
+ Dim bat As String
705
+ bat$ = Foo$()
706
+ End Sub" ;
707
+
708
+ const string expectedCode =
709
+ @"Public Function Foo(ByVal bar as Boolean) As String
710
+ Foo = ""test""
711
+ End Function
712
+
667
713
Public Sub Buzz()
668
714
Dim bat As String
669
715
bat = Foo()
0 commit comments