WebWrappers/Apps/EchartsPharo/EcSunburstSegmentTest.class.st

25 lines
559 B
Smalltalk

Class {
#name : #EcSunburstSegmentTest,
#superclass : #TestCase,
#category : #'EchartsPharo-EchartsPharo'
}
{ #category : #accessing }
EcSunburstSegmentTest >> testSunbusrtSegmentInstanceCreation [
| sunburstSegment children|
children := EcSunburstSegment new.
sunburstSegment := EcSunburstSegment
name: '@profile'
value: 2
color: Color red
children: children.
self
assert: { sunburstSegment name.
sunburstSegment value.
sunburstSegment color.
sunburstSegment children }
equals: { '@profile'. 2. Color red. children}
]