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

"{ NameSpace: Smalltalk }"

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

RGNamespaceTest comment:'SUnit tests for namespaces'
!

!RGNamespaceTest methodsFor:'testing'!

testCreatingNamespace
    | newNamespace newPackage newClass |
    
    newNamespace := RGNamespace named: #'RingNamespace'.
    newPackage := RGPackage named:  #'Collections-Sequenceable'.
    newClass:= RGClassDefinition named: #OrderedCollection.
    newPackage addClass: newClass.
    newNamespace addPackage: newPackage;
        addClass: newClass.
    
    self assert: (newNamespace isNamespace).
    self assert: ((newNamespace packageNamed: #'Collections-Sequenceable') == newPackage).
    self assert: ((newNamespace classNamed: #OrderedCollection) == newClass).
    self assert: (newNamespace methods isEmpty).
    self assert: (newNamespace pools isEmpty).
    self assert: (newNamespace globalVariables isEmpty).
    
    newNamespace removeClass: newClass.
    self assert: ((newNamespace classNamed: #OrderedCollection) isNil).
    self assert: ((newPackage classNamed: #OrderedCollection) notNil).
! !