@@ -32,7 +32,41 @@ Private Sub Foo()
32
32
const string expectedCode =
33
33
@"Private Sub Foo()
34
34
Dim bar As Boolean
35
- bar = True
35
+ bar = True
36
+ End Sub" ;
37
+
38
+ var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
39
+ using ( var state = MockParser . CreateAndParse ( vbe . Object ) )
40
+ {
41
+
42
+ var qualifiedSelection = new QualifiedSelection ( new QualifiedModuleName ( component ) , selection ) ;
43
+
44
+ var refactoring = new MoveCloserToUsageRefactoring ( vbe . Object , state , null ) ;
45
+ refactoring . Refactor ( qualifiedSelection ) ;
46
+
47
+ var rewriter = state . GetRewriter ( component ) ;
48
+ Assert . AreEqual ( expectedCode , rewriter . GetText ( ) ) ;
49
+ }
50
+ }
51
+
52
+ [ Test ]
53
+ [ Category ( "Refactorings" ) ]
54
+ [ Category ( "Move Closer" ) ]
55
+ public void MoveCloserToUsageRefactoring_LineNumbers ( )
56
+ {
57
+ //Input
58
+ const string inputCode =
59
+ @"Private bar As Boolean
60
+ Private Sub Foo()
61
+ 100 bar = True
62
+ End Sub" ;
63
+ var selection = new Selection ( 1 , 1 ) ;
64
+
65
+ //Expectation
66
+ const string expectedCode =
67
+ @"Private Sub Foo()
68
+ Dim bar As Boolean
69
+ 100 bar = True
36
70
End Sub" ;
37
71
38
72
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -69,7 +103,7 @@ Private Sub Foo()
69
103
const string expectedCode =
70
104
@"Private Sub Foo()
71
105
Dim bar As Boolean
72
- bar = True
106
+ bar = True
73
107
End Sub" ;
74
108
75
109
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -155,7 +189,7 @@ Dim bat As Integer
155
189
@"Private Sub Foo()
156
190
Dim bat As Integer
157
191
Dim bar As Boolean
158
- bar = True
192
+ bar = True
159
193
End Sub" ;
160
194
161
195
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -194,7 +228,7 @@ Dim bat As Integer
194
228
@"Private Sub Foo()
195
229
Dim bat As Integer
196
230
Dim bar As Boolean
197
- bar = True
231
+ bar = True
198
232
End Sub" ;
199
233
200
234
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -234,7 +268,7 @@ Private bay As Date
234
268
235
269
Private Sub Foo()
236
270
Dim bat As Boolean
237
- bat = True
271
+ bat = True
238
272
End Sub" ;
239
273
240
274
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -274,7 +308,7 @@ bay As Date
274
308
275
309
Private Sub Foo()
276
310
Dim bar As Integer
277
- bar = 3
311
+ bar = 3
278
312
End Sub" ;
279
313
280
314
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -314,7 +348,7 @@ bay As Date
314
348
315
349
Private Sub Foo()
316
350
Dim bat As Boolean
317
- bat = True
351
+ bat = True
318
352
End Sub" ;
319
353
320
354
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -354,7 +388,7 @@ bat As Boolean
354
388
355
389
Private Sub Foo()
356
390
Dim bay As Date
357
- bay = #1/13/2004#
391
+ bay = #1/13/2004#
358
392
End Sub" ;
359
393
360
394
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -396,7 +430,7 @@ bay As Date
396
430
397
431
bat = True
398
432
Dim bar As Integer
399
- bar = 3
433
+ bar = 3
400
434
End Sub" ;
401
435
402
436
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -438,7 +472,7 @@ bay As Date
438
472
439
473
bar = 1
440
474
Dim bat As Boolean
441
- bat = True
475
+ bat = True
442
476
End Sub" ;
443
477
444
478
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -480,7 +514,7 @@ bat As Boolean
480
514
481
515
bar = 4
482
516
Dim bay As Date
483
- bay = #1/13/2004#
517
+ bay = #1/13/2004#
484
518
End Sub" ;
485
519
486
520
var vbe = MockVbeBuilder . BuildFromSingleStandardModule ( inputCode , out var component , selection ) ;
@@ -583,7 +617,7 @@ Private Sub Foo(ByRef bat As Boolean)
583
617
const string expectedCode =
584
618
@"Private Sub Foo(ByRef bat As Boolean)
585
619
Dim bar As Boolean
586
- bat = bar
620
+ bat = bar
587
621
End Sub" ;
588
622
var selection = new Selection ( 1 , 1 ) ;
589
623
@@ -618,7 +652,7 @@ Sub Baz(ByVal bat As Boolean)
618
652
const string expectedCode =
619
653
@"Private Sub Foo()
620
654
Dim bar As Boolean
621
- Baz bar
655
+ Baz bar
622
656
End Sub
623
657
Sub Baz(ByVal bat As Boolean)
624
658
End Sub" ;
@@ -657,7 +691,7 @@ Sub Baz(ByVal bat As Boolean, ByVal bas As Boolean, ByVal bac As Boolean)
657
691
const string expectedCode =
658
692
@"Private Sub Foo()
659
693
Dim bar As Boolean
660
- Baz True, _
694
+ Baz True, _
661
695
True, _
662
696
bar
663
697
End Sub
@@ -735,7 +769,7 @@ Debug.Print someParam
735
769
@"
736
770
Public Sub Test()
737
771
Dim foo As Long
738
- SomeSub someParam:=foo
772
+ SomeSub someParam:=foo
739
773
End Sub
740
774
741
775
Public Sub SomeSub(ByVal someParam As Long)
@@ -906,7 +940,7 @@ Public Sub Test()
906
940
Debug.Print ""Some statements between""
907
941
Debug.Print ""Declaration and first usage!""
908
942
Dim foo As Class1
909
- Set foo = new Class1
943
+ Set foo = new Class1
910
944
foo.Name = ""FooName""
911
945
foo.OtherProperty = 1626
912
946
End Sub" ;
0 commit comments