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

     2 

     3 TestCase subclass:#SelectorNamespacesTests

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Kernel-Tests'

     8 !

     9 

    10 !SelectorNamespacesTests methodsFor:'initialization'!

    11 

    12 setUp

    13 

    14    ObjectMemory flushCaches

    15 

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

    17 ! !

    18 

    19 !SelectorNamespacesTests methodsFor:'methods'!

    20 

    21 foo

    22     <namespace: #TestNS1 >

    23 

    24     ^#bar

    25 

    26     "Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    27     "Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    28 !

    29 

    30 foo

    31 

    32     ^#foo

    33 

    34     "Created: / 01-07-2010 / 18:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    35     "Modified: / 01-07-2010 / 20:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    36 !

    37 

    38 qux

    39 

    40     <namespace: #TestNS1 >

    41 

    42     ^self foo

    43 

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

    45 ! !

    46 

    47 !SelectorNamespacesTests methodsFor:'tests'!

    48 

    49 test_01

    50 

    51     self assert: self foo == #foo.

    52     self assert: self qux == #bar

    53 

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

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

    56 ! !

    57