forked from pharo-project/pharo
-
Notifications
You must be signed in to change notification settings - Fork 0
/
RGTraitDefinitionTest.extension.st
28 lines (24 loc) · 1.11 KB
/
RGTraitDefinitionTest.extension.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Extension { #name : #RGTraitDefinitionTest }
{ #category : #'*Ring-Definitions-Tests-Monticello' }
RGTraitDefinitionTest >> testAsFullTraitDefinition [
| rgClass |
rgClass := TSortable asRingDefinition.
self assertEmpty: rgClass methods.
self assert: rgClass superclass isNil.
self assertEmpty: rgClass subclasses.
self assert: rgClass package isNil.
rgClass := TSortable asFullRingDefinition.
self assert: rgClass methods notEmpty.
self assert: (rgClass methodNamed: #isSorted) package notNil.
self assert: rgClass superclass notNil.
self assert: rgClass superclass name equals: #Trait.
self assertEmpty: rgClass subclasses.
self assert: rgClass package notNil.
self assert: rgClass package equals: rgClass instanceSide package.
self assert: rgClass package name equals: #'Collections-Abstract-Traits'.
self assert: rgClass category equals: #'Collections-Abstract-Traits-Base'.
self assert: rgClass superclass superclass isNil.
self assert: rgClass superclass package name equals: #TraitsV2.
rgClass := TBehavior classSide asFullRingDefinition.
self assert: rgClass package equals: rgClass classSide package
]