'From Smalltalk/X, Version:6.1.1 on 02-07-2010 at 08:40:49 AM'                  !

TestCase subclass:#SelectorNamespacesTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Kernel-Tests'
!

!SelectorNamespacesTests methodsFor:'initialization'!

setUp

   ObjectMemory flushCaches

    "Created: / 01-07-2010 / 18:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SelectorNamespacesTests methodsFor:'methods'!

foo
    <namespace: #TestNS1 >

    ^#bar

    "Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

foo

    ^#foo

    "Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

qux

    <namespace: #TestNS1 >

    ^self foo

    "Created: / 01-07-2010 / 18:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!SelectorNamespacesTests methodsFor:'tests'!

test_01

    self assert: self foo == #foo.
    self assert: self qux == #bar

    "Created: / 01-07-2010 / 18:47:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 01-07-2010 / 20:54:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !