@@ -2908,7 +2908,7 @@ RwRowanSample9V3Test >> testSpec_0085_01 [
2908
2908
_standard_validateLoadedProjects: loadedProjects
2909
2909
expectedProjectNames: projectNames.
2910
2910
2911
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
2911
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
2912
2912
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
2913
2913
2914
2914
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_1'
@@ -2944,7 +2944,7 @@ RwRowanSample9V3Test >> testSpec_0085_01_to_02 [
2944
2944
_standard_validateLoadedProjects: loadedProjects
2945
2945
expectedProjectNames: projectNames.
2946
2946
2947
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
2947
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
2948
2948
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
2949
2949
2950
2950
" resolve project"
@@ -2992,7 +2992,7 @@ RwRowanSample9V3Test >> testSpec_0085_01_to_03 [
2992
2992
_standard_validateLoadedProjects: loadedProjects
2993
2993
expectedProjectNames: projectNames.
2994
2994
2995
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
2995
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
2996
2996
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
2997
2997
2998
2998
" resolve project"
@@ -3040,7 +3040,7 @@ RwRowanSample9V3Test >> testSpec_0085_02 [
3040
3040
_standard_validateLoadedProjects: loadedProjects
3041
3041
expectedProjectNames: projectNames.
3042
3042
3043
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3043
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3044
3044
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3045
3045
]
3046
3046
@@ -3074,7 +3074,7 @@ RwRowanSample9V3Test >> testSpec_0085_02_to_01 [
3074
3074
_standard_validateLoadedProjects: loadedProjects
3075
3075
expectedProjectNames: projectNames.
3076
3076
3077
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3077
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3078
3078
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3079
3079
3080
3080
" resolve project"
@@ -3122,7 +3122,7 @@ RwRowanSample9V3Test >> testSpec_0085_02_to_03 [
3122
3122
_standard_validateLoadedProjects: loadedProjects
3123
3123
expectedProjectNames: projectNames.
3124
3124
3125
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3125
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3126
3126
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3127
3127
3128
3128
" resolve project"
@@ -3170,7 +3170,7 @@ RwRowanSample9V3Test >> testSpec_0085_03 [
3170
3170
_standard_validateLoadedProjects: loadedProjects
3171
3171
expectedProjectNames: projectNames.
3172
3172
3173
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3173
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3174
3174
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3175
3175
]
3176
3176
@@ -3204,7 +3204,7 @@ RwRowanSample9V3Test >> testSpec_0085_03_to_01 [
3204
3204
_standard_validateLoadedProjects: loadedProjects
3205
3205
expectedProjectNames: projectNames.
3206
3206
3207
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3207
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3208
3208
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3209
3209
3210
3210
" resolve project"
@@ -3252,7 +3252,7 @@ RwRowanSample9V3Test >> testSpec_0085_03_to_02 [
3252
3252
_standard_validateLoadedProjects: loadedProjects
3253
3253
expectedProjectNames: projectNames.
3254
3254
3255
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3255
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3256
3256
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3257
3257
3258
3258
" resolve project"
@@ -3300,7 +3300,7 @@ RwRowanSample9V3Test >> testSpec_0085_03_to_04 [
3300
3300
_standard_validateLoadedProjects: loadedProjects
3301
3301
expectedProjectNames: projectNames.
3302
3302
3303
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3303
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3304
3304
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3305
3305
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_1' .
3306
3306
@@ -3318,7 +3318,7 @@ RwRowanSample9V3Test >> testSpec_0085_03_to_04 [
3318
3318
_standard_validateLoadedProjects: loadedProjects
3319
3319
expectedProjectNames: projectNames.
3320
3320
3321
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3321
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3322
3322
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3323
3323
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_2'
3324
3324
]
@@ -3469,7 +3469,7 @@ RwRowanSample9V3Test >> testSpec_0085_04 [
3469
3469
_standard_validateLoadedProjects: loadedProjects
3470
3470
expectedProjectNames: projectNames.
3471
3471
3472
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3472
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3473
3473
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3474
3474
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_2'
3475
3475
]
@@ -3504,7 +3504,7 @@ RwRowanSample9V3Test >> testSpec_0085_05 [
3504
3504
_standard_validateLoadedProjects: loadedProjects
3505
3505
expectedProjectNames: projectNames.
3506
3506
3507
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3507
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3508
3508
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3509
3509
3510
3510
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_1'
@@ -3598,7 +3598,7 @@ RwRowanSample9V3Test >> testSpec_0085_export [
3598
3598
_standard_validateLoadedProjects: loadedProjects
3599
3599
expectedProjectNames: projectNames.
3600
3600
3601
- trait1 := Rowan globalNamed: ' RowanSample9V3Trait1 ' .
3601
+ trait1 := Rowan globalNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3602
3602
self assert: ((ClassOrganizer new traits) includes: trait1) description: ' trait1 is unexpectedly not present' .
3603
3603
3604
3604
self assert: ((System myUserProfile symbolList dictionaryAndSymbolOf: trait1) at: 1 ) name equals: #' RowanSample9_1' .
@@ -3639,13 +3639,13 @@ RwRowanSample9V3Test >> testSpec_0085_move_trait_to_package [
3639
3639
expectedProjectNames: projectNames.
3640
3640
packageName := projectName, ' -Tr01' .
3641
3641
(Rowan image loadedPackageNamed: packageName)
3642
- loadedTraitNamed: ' RowanSample9V3Trait1 '
3642
+ loadedTraitNamed: self _rowanSampleProjectBaseName, ' Trait1 '
3643
3643
ifAbsent: [ self assert: false description: ' Loaded trait RowanSample9V3Trait1 not present' ].
3644
3644
3645
3645
" move a trait from Tr01 to C01"
3646
3646
definedProject := project defined.
3647
3647
traitDef := (definedProject packageNamed: projectName, ' -Tr01' )
3648
- removeTraitNamed: ' RowanSample9V3Trait1 ' .
3648
+ removeTraitNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3649
3649
packageName := projectName, ' -C01' .
3650
3650
traitDef packageName: packageName.
3651
3651
(definedProject packageNamed: packageName) addTraitDefinition: traitDef.
@@ -3693,15 +3693,15 @@ RwRowanSample9V3Test >> testSpec_0085_trait_shape_change_01 [
3693
3693
expectedProjectNames: projectNames.
3694
3694
packageName := projectName, ' -Tr02' .
3695
3695
(Rowan image loadedPackageNamed: packageName)
3696
- loadedTraitNamed: ' RowanSample9V3Trait1 '
3696
+ loadedTraitNamed: self _rowanSampleProjectBaseName, ' Trait1 '
3697
3697
ifAbsent: [ self assert: false description: ' Loaded trait RowanSample9V3Trait1 not present' ].
3698
3698
3699
3699
" remove iv from trait and class"
3700
3700
definedProject := project defined.
3701
3701
classDef := (definedProject packageNamed: projectName, ' -C02' )
3702
- classDefinitionNamed: ' RowanSample9V3Class1 ' .
3702
+ classDefinitionNamed: self _rowanSampleProjectBaseName, ' Class1 ' .
3703
3703
traitDef := (definedProject packageNamed: projectName, ' -Tr02' )
3704
- traitDefinitionNamed: ' RowanSample9V3Trait1 ' .
3704
+ traitDefinitionNamed: self _rowanSampleProjectBaseName, ' Trait1 ' .
3705
3705
traitIvNames := traitDef instVarNames copy.
3706
3706
classIvNames := classDef instVarNames copy.
3707
3707
self assert: traitIvNames equals: classIvNames.
@@ -3713,10 +3713,10 @@ RwRowanSample9V3Test >> testSpec_0085_trait_shape_change_01 [
3713
3713
classDef removeInstanceMethod: #' iv2' .
3714
3714
classDef instVarNames: traitIvNames.
3715
3715
testClassDef := (definedProject packageNamed: projectName, ' -C-T02' )
3716
- classExtensionDefinitionNamed: ' RowanSample9V3TestCase ' .
3716
+ classExtensionDefinitionNamed: self _rowanSampleProjectBaseName, ' TestCase ' .
3717
3717
testClassDef removeInstanceMethod: #' testIv2' .
3718
3718
testClassDef := (definedProject packageNamed: projectName, ' -Tr-T02' )
3719
- classExtensionDefinitionNamed: ' RowanSample9V3TestCase ' .
3719
+ classExtensionDefinitionNamed: self _rowanSampleProjectBaseName, ' TestCase ' .
3720
3720
testClassDef removeInstanceMethod: #' testIv2_t' .
3721
3721
3722
3722
" load project"
@@ -3730,7 +3730,7 @@ RwRowanSample9V3Test >> testSpec_0085_trait_shape_change_01 [
3730
3730
expectedProjectNames: projectNames.
3731
3731
Rowan image
3732
3732
loadedTraitMethod: #' iv1_t'
3733
- inTraitNamed: ' RowanSample9V3Trait1 '
3733
+ inTraitNamed: self _rowanSampleProjectBaseName, ' Trait1 '
3734
3734
isMeta: false
3735
3735
ifFound: [:loadedTraitMethod | ]
3736
3736
ifAbsent: [self assert: false description: ' missing loaded trait method ' ' iv1' ' ' ]
0 commit comments