diff --git a/src/TraitsV2-Tests/T2SubclassingTraitedClassTest.class.st b/src/TraitsV2-Tests/T2SubclassingTraitedClassTest.class.st index 79c3c94eda9..ea5c96430de 100644 --- a/src/TraitsV2-Tests/T2SubclassingTraitedClassTest.class.st +++ b/src/TraitsV2-Tests/T2SubclassingTraitedClassTest.class.st @@ -34,3 +34,12 @@ T2SubclassingTraitedClassTest >> testCreatingMethodInSubclass2 [ self assert: (c2 >> #asd) package name equals: 'TraitsV2-Tests'. self assert: (c2 >> #asd) package equals: c2 package. ] + +{ #category : #tests } +T2SubclassingTraitedClassTest >> testCreatingMethodInTraitClassSide [ + | t1 c1 | + t1 := self newTrait: #T1 with: #() uses: {}. + t1 class compile: 'someObject ^#executingOverridenMethod'. + c1 := self newClass: #C1 with: #() uses: t1. + self assert: c1 someObject equals: #executingOverridenMethod. +]