"{ Package: 'stx:goodies/ring/tests' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#RGSliceTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Ring-Core-Containers-Tests'
!

RGSliceTest comment:'SUnit tests for slices'
!

!RGSliceTest methodsFor:'testing'!

testAddingClasses
    | newSlice newClass newTrait  |
    
    newSlice:= RGSlice named: 'Foo'.
    newClass:= RGClassDefinition named: #OrderedCollection.
    newTrait:=  RGTraitDefinition named: #TSortable.
    
    newSlice addClassNamed: #SortedCollection;
             addClass: newClass;
             addTrait: newTrait.
    
    self assert: (newSlice classes size = 3).
    self assert: (newSlice traits size = 1).
    self assert: (newSlice includesClassNamed: #OrderedCollection).
    self assert: ((newSlice classNamed: #OrderedCollection) == newClass).
    self assert: ((newSlice traitNamed: #TSortable) == newTrait).
    self assert: (newClass isIncludedInContainer: newSlice).
    self assert: (newTrait isIncludedInContainer: newSlice).
    self assert: (newSlice allClasses size = 3).
    self assert: (newSlice allTraits size = 1).
    self assert: (newClass parent = newSlice).
    self assert: (newClass rootEnvironment = newSlice environment)
!

testNestingContainers
    | newSlice newSlice2 newClass newTrait newClass2 |
    
    newSlice:= RGSlice named: #Root.
    newSlice2:= RGSlice named: #Child.
    newSlice2 environment: newSlice.
    
    newSlice addClassNamed: #OrderedCollection.
    newClass:= newSlice classNamed: #OrderedCollection.
    newSlice addTraitNamed: #TSortable.
    newTrait:= newSlice traitNamed: #TSortable.
    newSlice2 addClassNamed: #SortedCollection.
    newClass2:= newSlice classNamed: #SortedCollection.
    
    self assert: (newSlice classes size = 2).
    self assert: (newSlice2 classes size = 1).
    self assert: (newSlice2 environment = newSlice).
    self assert: (newSlice2 rootEnvironment = newSlice environment)
!

testNewSlice
    | newSlice |
    
    newSlice:= RGSlice named: 'Foo'.
    
    self assert: (newSlice isSlice).
    self assert: (newSlice classes isEmpty).
    self assert: (newSlice environment == Smalltalk globals)
! !