@@ -67,12 +67,10 @@ public void EncapsulateMultipleFields(
67
67
68
68
foreach ( var variable in encapsulated )
69
69
{
70
- var rhsParameterName = Support . RhsParameterNameBuilder ( $ "{ variable } Prop") ;
71
-
72
70
StringAssert . Contains ( $ "Private { variable } As", actualCode ) ;
73
71
StringAssert . Contains ( $ "{ variable } Prop = { variable } ", actualCode ) ;
74
- StringAssert . Contains ( $ "{ variable } = { rhsParameterName } ", actualCode ) ;
75
- StringAssert . Contains ( $ "Let { variable } Prop(ByVal { rhsParameterName } As", actualCode ) ;
72
+ StringAssert . Contains ( $ "{ variable } = { Support . RHSIdentifier } ", actualCode ) ;
73
+ StringAssert . Contains ( $ "Let { variable } Prop(ByVal { Support . RHSIdentifier } As", actualCode ) ;
76
74
StringAssert . Contains ( $ "Property Get { variable } Prop()", actualCode ) ;
77
75
}
78
76
}
@@ -133,12 +131,10 @@ public void EncapsulateMultipleFieldsInList(
133
131
{
134
132
if ( flags [ key ] )
135
133
{
136
- var rhsParameterName = Support . RhsParameterNameBuilder ( $ "{ key } Prop") ;
137
-
138
134
StringAssert . Contains ( $ "Private { key } As", actualCode ) ;
139
135
StringAssert . Contains ( $ "{ key } Prop = { key } ", actualCode ) ;
140
- StringAssert . Contains ( $ "{ key } = { rhsParameterName } ", actualCode ) ;
141
- StringAssert . Contains ( $ "Let { key } Prop(ByVal { rhsParameterName } As", actualCode ) ;
136
+ StringAssert . Contains ( $ "{ key } = { Support . RHSIdentifier } ", actualCode ) ;
137
+ StringAssert . Contains ( $ "Let { key } Prop(ByVal { Support . RHSIdentifier } As", actualCode ) ;
142
138
StringAssert . Contains ( $ "Property Get { key } Prop()", actualCode ) ;
143
139
}
144
140
}
@@ -234,11 +230,10 @@ Property Set Foo(ByVal vall As Variant)
234
230
End Property" ;
235
231
236
232
var presenterAction = Support . SetParametersForSingleTarget ( "fizz" , "Name" ) ;
237
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
238
233
239
234
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
240
- Assert . Greater ( actualCode . IndexOf ( $ "fizz = { rhsParameterName } ") , actualCode . IndexOf ( "fizz As Integer" ) ) ;
241
- Assert . Less ( actualCode . IndexOf ( $ "fizz = { rhsParameterName } ") , actualCode . IndexOf ( "Get Foo" ) ) ;
235
+ Assert . Greater ( actualCode . IndexOf ( $ "fizz = { Support . RHSIdentifier } ") , actualCode . IndexOf ( "fizz As Integer" ) ) ;
236
+ Assert . Less ( actualCode . IndexOf ( $ "fizz = { Support . RHSIdentifier } ") , actualCode . IndexOf ( "Get Foo" ) ) ;
242
237
}
243
238
244
239
[ TestCase ( "|Public fizz As Integer\r \n Public buzz As Boolean" , "Private fizz As Integer\r \n Public buzz As Boolean" ) ]
@@ -256,8 +251,8 @@ Public Property Get Name() As Integer
256
251
Name = fizz
257
252
End Property
258
253
259
- Public Property Let Name(ByVal nameValue As Integer)
260
- fizz = nameValue
254
+ Public Property Let Name(ByVal { Support . RHSIdentifier } As Integer)
255
+ fizz = { Support . RHSIdentifier }
261
256
End Property
262
257
" ;
263
258
var presenterAction = Support . SetParametersForSingleTarget ( "fizz" , "Name" ) ;
@@ -297,14 +292,13 @@ public void EncapsulatePrivateField()
297
292
@"|Private fizz As Integer" ;
298
293
299
294
var presenterAction = Support . SetParametersForSingleTarget ( "fizz" , "Name" ) ;
300
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
301
295
302
296
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
303
297
StringAssert . Contains ( "Public Property Get Name() As Integer" , actualCode ) ;
304
298
StringAssert . Contains ( "Public Property Let Name(" , actualCode ) ;
305
- StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
299
+ StringAssert . Contains ( $ "(ByVal { Support . RHSIdentifier } As Integer)", actualCode ) ;
306
300
StringAssert . Contains ( "Name = fizz" , actualCode ) ;
307
- StringAssert . Contains ( $ "fizz = { rhsParameterName } ", actualCode ) ;
301
+ StringAssert . Contains ( $ "fizz = { Support . RHSIdentifier } ", actualCode ) ;
308
302
StringAssert . Contains ( "End Property" , actualCode ) ;
309
303
}
310
304
@@ -371,15 +365,14 @@ public void EncapsulatePrivateFieldInList()
371
365
@"Private fi|zz As Integer, fuzz As Integer, fazz As Integer" ;
372
366
373
367
var presenterAction = Support . SetParametersForSingleTarget ( "fizz" ) ;
374
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
375
368
376
369
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
377
370
StringAssert . Contains ( "Private fizz_1 As Integer, fuzz As Integer," , actualCode ) ;
378
371
StringAssert . Contains ( "Public Property Get Fizz() As Integer" , actualCode ) ;
379
372
StringAssert . Contains ( "Public Property Let Fizz(" , actualCode ) ;
380
- StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
373
+ StringAssert . Contains ( $ "(ByVal { Support . RHSIdentifier } As Integer)", actualCode ) ;
381
374
StringAssert . Contains ( "Fizz = fizz_1" , actualCode ) ;
382
- StringAssert . Contains ( $ "fizz_1 = { rhsParameterName } ", actualCode ) ;
375
+ StringAssert . Contains ( $ "fizz_1 = { Support . RHSIdentifier } ", actualCode ) ;
383
376
StringAssert . Contains ( "End Property" , actualCode ) ;
384
377
}
385
378
@@ -392,14 +385,13 @@ public void EncapsulatePrivateField_Defaults()
392
385
@"|Private fizz As Integer" ;
393
386
394
387
var presenterAction = Support . UserAcceptsDefaults ( ) ;
395
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
396
388
397
389
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
398
390
StringAssert . Contains ( "Public Property Get Fizz() As Integer" , actualCode ) ;
399
391
StringAssert . Contains ( "Public Property Let Fizz(" , actualCode ) ;
400
- StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
392
+ StringAssert . Contains ( $ "(ByVal { Support . RHSIdentifier } As Integer)", actualCode ) ;
401
393
StringAssert . Contains ( "Fizz = fizz_1" , actualCode ) ;
402
- StringAssert . Contains ( $ "fizz_1 = { rhsParameterName } ", actualCode ) ;
394
+ StringAssert . Contains ( $ "fizz_1 = { Support . RHSIdentifier } ", actualCode ) ;
403
395
StringAssert . Contains ( "End Property" , actualCode ) ;
404
396
}
405
397
@@ -412,12 +404,11 @@ public void EncapsulatePrivateField_DefaultsAsUDT()
412
404
@"|Private fizz As Integer" ;
413
405
414
406
var presenterAction = Support . UserAcceptsDefaults ( convertFieldToUDTMember : true ) ;
415
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
416
407
417
408
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
418
409
StringAssert . Contains ( "Fizz As Integer" , actualCode ) ;
419
410
StringAssert . Contains ( $ "this As { Support . StateUDTDefaultType } ", actualCode ) ;
420
- StringAssert . Contains ( $ "this.Fizz = { rhsParameterName } ", actualCode ) ;
411
+ StringAssert . Contains ( $ "this.Fizz = { Support . RHSIdentifier } ", actualCode ) ;
421
412
}
422
413
423
414
[ Test ]
@@ -440,15 +431,14 @@ Sub Bar(ByVal name As Integer)
440
431
441
432
var validator = EncapsulateFieldValidationsProvider . NameOnlyValidator ( NameValidators . Default ) ;
442
433
var enapsulationIdentifiers = new EncapsulationIdentifiers ( "fizz" , validator ) { Property = "Name" } ;
443
- var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
444
434
445
435
var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
446
436
StringAssert . AreEqualIgnoringCase ( enapsulationIdentifiers . TargetFieldName , "fizz" ) ;
447
437
StringAssert . Contains ( $ "Private { enapsulationIdentifiers . TargetFieldName } As Integer", actualCode ) ;
448
438
StringAssert . Contains ( "Property Get Name" , actualCode ) ;
449
439
StringAssert . Contains ( "Property Let Name" , actualCode ) ;
450
440
StringAssert . Contains ( $ "Name = { enapsulationIdentifiers . TargetFieldName } ", actualCode ) ;
451
- StringAssert . Contains ( $ "{ enapsulationIdentifiers . TargetFieldName } = { rhsParameterName } ", actualCode ) ;
441
+ StringAssert . Contains ( $ "{ enapsulationIdentifiers . TargetFieldName } = { Support . RHSIdentifier } ", actualCode ) ;
452
442
}
453
443
454
444
[ Test ]
0 commit comments