@@ -21,8 +21,6 @@ public class EncapsulateFieldTests : InteractiveRefactoringTestBase<IEncapsulate
2121 {
2222 private EncapsulateFieldTestSupport Support { get ; } = new EncapsulateFieldTestSupport ( ) ;
2323
24- private static Func < string , string > Param = EncapsulateFieldTestSupport . ParamNameBuilder ;
25-
2624 [ TestCase ( "fizz" , true , "baz" , true , "buzz" , true ) ]
2725 [ TestCase ( "fizz" , false , "baz" , true , "buzz" , true ) ]
2826 [ TestCase ( "fizz" , false , "baz" , false , "buzz" , true ) ]
@@ -69,10 +67,12 @@ public void EncapsulateMultipleFields(
6967
7068 foreach ( var variable in encapsulated )
7169 {
70+ var rhsParameterName = Support . RhsParameterNameBuilder ( $ "{ variable } Prop") ;
71+
7272 StringAssert . Contains ( $ "Private { variable } As", actualCode ) ;
7373 StringAssert . Contains ( $ "{ variable } Prop = { variable } ", actualCode ) ;
74- StringAssert . Contains ( $ "{ variable } = { Param ( $ " { variable } Prop" ) } ", actualCode ) ;
75- StringAssert . Contains ( $ "Let { variable } Prop(ByVal { Param ( $ " { variable } Prop" ) } As", actualCode ) ;
74+ StringAssert . Contains ( $ "{ variable } = { rhsParameterName } ", actualCode ) ;
75+ StringAssert . Contains ( $ "Let { variable } Prop(ByVal { rhsParameterName } As", actualCode ) ;
7676 StringAssert . Contains ( $ "Property Get { variable } Prop()", actualCode ) ;
7777 }
7878 }
@@ -133,10 +133,12 @@ public void EncapsulateMultipleFieldsInList(
133133 {
134134 if ( flags [ key ] )
135135 {
136+ var rhsParameterName = Support . RhsParameterNameBuilder ( $ "{ key } Prop") ;
137+
136138 StringAssert . Contains ( $ "Private { key } As", actualCode ) ;
137139 StringAssert . Contains ( $ "{ key } Prop = { key } ", actualCode ) ;
138- StringAssert . Contains ( $ "{ key } = { Param ( $ " { key } Prop" ) } ", actualCode ) ;
139- StringAssert . Contains ( $ "Let { key } Prop(ByVal { Param ( $ " { key } Prop" ) } As", actualCode ) ;
140+ StringAssert . Contains ( $ "{ key } = { rhsParameterName } ", actualCode ) ;
141+ StringAssert . Contains ( $ "Let { key } Prop(ByVal { rhsParameterName } As", actualCode ) ;
140142 StringAssert . Contains ( $ "Property Get { key } Prop()", actualCode ) ;
141143 }
142144 }
@@ -232,10 +234,11 @@ Property Set Foo(ByVal vall As Variant)
232234End Property" ;
233235
234236 var presenterAction = Support . SetParametersForSingleTarget ( "fizz" , "Name" ) ;
237+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
235238
236239 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
237- Assert . Greater ( actualCode . IndexOf ( $ "fizz = { Param ( "Name" ) } ") , actualCode . IndexOf ( "fizz As Integer" ) ) ;
238- Assert . Less ( actualCode . IndexOf ( $ "fizz = { Param ( "Name" ) } ") , actualCode . IndexOf ( "Get Foo" ) ) ;
240+ Assert . Greater ( actualCode . IndexOf ( $ "fizz = { rhsParameterName } ") , actualCode . IndexOf ( "fizz As Integer" ) ) ;
241+ Assert . Less ( actualCode . IndexOf ( $ "fizz = { rhsParameterName } ") , actualCode . IndexOf ( "Get Foo" ) ) ;
239242 }
240243
241244 [ TestCase ( "|Public fizz As Integer\r \n Public buzz As Boolean" , "Private fizz As Integer\r \n Public buzz As Boolean" ) ]
@@ -294,12 +297,14 @@ public void EncapsulatePrivateField()
294297 @"|Private fizz As Integer" ;
295298
296299 var presenterAction = Support . SetParametersForSingleTarget ( "fizz" , "Name" ) ;
300+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
301+
297302 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
298303 StringAssert . Contains ( "Public Property Get Name() As Integer" , actualCode ) ;
299304 StringAssert . Contains ( "Public Property Let Name(" , actualCode ) ;
300- StringAssert . Contains ( $ "(ByVal { Param ( "Name" ) } As Integer)", actualCode ) ;
305+ StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
301306 StringAssert . Contains ( "Name = fizz" , actualCode ) ;
302- StringAssert . Contains ( $ "fizz = { Param ( "Name" ) } ", actualCode ) ;
307+ StringAssert . Contains ( $ "fizz = { rhsParameterName } ", actualCode ) ;
303308 StringAssert . Contains ( "End Property" , actualCode ) ;
304309 }
305310
@@ -365,28 +370,17 @@ public void EncapsulatePrivateFieldInList()
365370 const string inputCode =
366371 @"Private fi|zz As Integer, fuzz As Integer, fazz As Integer" ;
367372
368- // const string expectedCode =
369- // @"
370- //Private fizz_1 As Integer, fuzz As Integer, fazz As Integer
371-
372- //Public Property Get Fizz() As Integer
373- // Fizz = fizz_1
374- //End Property
375-
376- //Public Property Let Fizz(ByVal value As Integer)
377- // fizz_1 = value
378- //End Property
379- //";
380373 var presenterAction = Support . SetParametersForSingleTarget ( "fizz" ) ;
374+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
375+
381376 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
382377 StringAssert . Contains ( "Private fizz_1 As Integer, fuzz As Integer," , actualCode ) ;
383378 StringAssert . Contains ( "Public Property Get Fizz() As Integer" , actualCode ) ;
384379 StringAssert . Contains ( "Public Property Let Fizz(" , actualCode ) ;
385- StringAssert . Contains ( $ "(ByVal { Param ( "Fizz" ) } As Integer)", actualCode ) ;
380+ StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
386381 StringAssert . Contains ( "Fizz = fizz_1" , actualCode ) ;
387- StringAssert . Contains ( $ "fizz_1 = { Param ( "Fizz" ) } ", actualCode ) ;
382+ StringAssert . Contains ( $ "fizz_1 = { rhsParameterName } ", actualCode ) ;
388383 StringAssert . Contains ( "End Property" , actualCode ) ;
389- //Assert.AreEqual(expectedCode.Trim(), actualCode);
390384 }
391385
392386 [ Test ]
@@ -397,26 +391,16 @@ public void EncapsulatePrivateField_Defaults()
397391 const string inputCode =
398392 @"|Private fizz As Integer" ;
399393
400- // const string expectedCode =
401- // @"Private fizz_1 As Integer
402-
403- //Public Property Get Fizz() As Integer
404- // Fizz = fizz_1
405- //End Property
406-
407- //Public Property Let Fizz(ByVal value As Integer)
408- // fizz_1 = value
409- //End Property
410- //";
411394 var presenterAction = Support . UserAcceptsDefaults ( ) ;
395+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
396+
412397 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
413398 StringAssert . Contains ( "Public Property Get Fizz() As Integer" , actualCode ) ;
414399 StringAssert . Contains ( "Public Property Let Fizz(" , actualCode ) ;
415- StringAssert . Contains ( $ "(ByVal { Param ( "Fizz" ) } As Integer)", actualCode ) ;
400+ StringAssert . Contains ( $ "(ByVal { rhsParameterName } As Integer)", actualCode ) ;
416401 StringAssert . Contains ( "Fizz = fizz_1" , actualCode ) ;
417- StringAssert . Contains ( $ "fizz_1 = { Param ( "Fizz" ) } ", actualCode ) ;
402+ StringAssert . Contains ( $ "fizz_1 = { rhsParameterName } ", actualCode ) ;
418403 StringAssert . Contains ( "End Property" , actualCode ) ;
419- //Assert.AreEqual(expectedCode.Trim(), actualCode);
420404 }
421405
422406 [ Test ]
@@ -428,10 +412,12 @@ public void EncapsulatePrivateField_DefaultsAsUDT()
428412 @"|Private fizz As Integer" ;
429413
430414 var presenterAction = Support . UserAcceptsDefaults ( convertFieldToUDTMember : true ) ;
415+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Fizz" ) ;
416+
431417 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
432418 StringAssert . Contains ( "Fizz As Integer" , actualCode ) ;
433419 StringAssert . Contains ( $ "this As { Support . StateUDTDefaultType } ", actualCode ) ;
434- StringAssert . Contains ( $ "this.Fizz = { Param ( "Fizz" ) } ", actualCode ) ;
420+ StringAssert . Contains ( $ "this.Fizz = { rhsParameterName } ", actualCode ) ;
435421 }
436422
437423 [ Test ]
@@ -454,14 +440,15 @@ Sub Bar(ByVal name As Integer)
454440
455441 var validator = EncapsulateFieldValidationsProvider . NameOnlyValidator ( NameValidators . Default ) ;
456442 var enapsulationIdentifiers = new EncapsulationIdentifiers ( "fizz" , validator ) { Property = "Name" } ;
443+ var rhsParameterName = Support . RhsParameterNameBuilder ( "Name" ) ;
457444
458445 var actualCode = Support . RefactoredCode ( inputCode . ToCodeString ( ) , presenterAction ) ;
459446 StringAssert . AreEqualIgnoringCase ( enapsulationIdentifiers . TargetFieldName , "fizz" ) ;
460447 StringAssert . Contains ( $ "Private { enapsulationIdentifiers . TargetFieldName } As Integer", actualCode ) ;
461448 StringAssert . Contains ( "Property Get Name" , actualCode ) ;
462449 StringAssert . Contains ( "Property Let Name" , actualCode ) ;
463450 StringAssert . Contains ( $ "Name = { enapsulationIdentifiers . TargetFieldName } ", actualCode ) ;
464- StringAssert . Contains ( $ "{ enapsulationIdentifiers . TargetFieldName } = { Param ( "Name" ) } ", actualCode ) ;
451+ StringAssert . Contains ( $ "{ enapsulationIdentifiers . TargetFieldName } = { rhsParameterName } ", actualCode ) ;
465452 }
466453
467454 [ Test ]
0 commit comments