@@ -3415,27 +3415,27 @@ RwTestProjectLibraryGenerator >> _addDefinitionsFor_0089: resolvedProject [
3415
3415
className2 := projectName , ' TestCase' .
3416
3416
3417
3417
((resolvedProject packageNamed: packageName1) classDefinitionNamed: className1)
3418
- addInstanceMethod: ' A_bc123 ^self ' protocol: ' accessing' ;
3418
+ addInstanceMethod: ' A_bc123 ^true ' protocol: ' accessing' ;
3419
3419
addInstanceMethod: ' _123Abc
3420
- ^self ' protocol: ' accessing' ;
3420
+ ^true ' protocol: ' accessing' ;
3421
3421
addClassMethod: ' _123abc
3422
- ^self ' protocol: ' accessing' ;
3423
- addClassMethod: ' _ABC123 ^self ' protocol: ' accessing' ;
3424
- addClassMethod: ' _abc123 ^self ' protocol: ' accessing' ;
3425
- addClassMethod: ' a_bc123 ^self ' protocol: ' accessing' ;
3422
+ ^true ' protocol: ' accessing' ;
3423
+ addClassMethod: ' _ABC123 ^true ' protocol: ' accessing' ;
3424
+ addClassMethod: ' _abc123 ^true ' protocol: ' accessing' ;
3425
+ addClassMethod: ' a_bc123 ^true ' protocol: ' accessing' ;
3426
3426
yourself .
3427
3427
((resolvedProject packageNamed: packageName3) classDefinitionNamed: className2)
3428
3428
addInstanceMethod: ' test3 self assert: ' , className1 , ' new A_bc123'
3429
3429
protocol: ' tests' ;
3430
3430
addInstanceMethod: ' test4 self assert: ' , className1 , ' new _123Abc'
3431
3431
protocol: ' tests' ;
3432
- addInstanceMethod: ' test5 self assert: ' , className1 , ' new _123abc'
3432
+ addInstanceMethod: ' test5 self assert: ' , className1 , ' _123abc'
3433
3433
protocol: ' tests' ;
3434
- addInstanceMethod: ' test6 self assert: ' , className1 , ' new _ABC123'
3434
+ addInstanceMethod: ' test6 self assert: ' , className1 , ' _ABC123'
3435
3435
protocol: ' tests' ;
3436
- addInstanceMethod: ' test7 self assert: ' , className1 , ' new _abc123'
3436
+ addInstanceMethod: ' test7 self assert: ' , className1 , ' _abc123'
3437
3437
protocol: ' tests' ;
3438
- addInstanceMethod: ' test8 self assert: ' , className1 , ' new a_bc123'
3438
+ addInstanceMethod: ' test8 self assert: ' , className1 , ' a_bc123'
3439
3439
protocol: ' tests' ;
3440
3440
yourself .
3441
3441
^ resolvedProject
0 commit comments