equal
deleted
inserted
replaced
95 poolDictionaries:'''' |
95 poolDictionaries:'''' |
96 category:''tests-Regression-Mocks'' |
96 category:''tests-Regression-Mocks'' |
97 ' readStream. |
97 ' readStream. |
98 |
98 |
99 self assert: cs size == 1. |
99 self assert: cs size == 1. |
100 self assert: cs first className = 'Mocks::MockClass'. |
100 self assert: cs first className = 'MockClass'. |
|
101 self assert: cs first fullClassName = 'Mocks::MockClass'. |
101 self assert: cs first nameSpaceName = 'Mocks'. |
102 self assert: cs first nameSpaceName = 'Mocks'. |
102 self assert: (Smalltalk at: #'Mocks::MockClass') isNil. |
103 self assert: (Smalltalk at: #'Mocks::MockClass') isNil. |
103 cs apply. |
104 cs apply. |
104 self assert: (Smalltalk at: #'Mocks::MockClass') notNil. |
105 self assert: (Smalltalk at: #'Mocks::MockClass') notNil. |
105 |
106 |
162 privateIn:MockClass |
163 privateIn:MockClass |
163 |
164 |
164 ' readStream. |
165 ' readStream. |
165 |
166 |
166 self assert: cs size == 2. |
167 self assert: cs size == 2. |
167 self assert: cs first className = 'Mocks::MockClass'. |
168 self assert: cs first className = 'MockClass'. |
168 self assert: cs second className = 'Mocks::MockClass::PrivateClass'. |
169 self assert: cs first fullClassName = 'Mocks::MockClass'. |
|
170 self assert: cs second className = 'MockClass::PrivateClass'. |
|
171 self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'. |
169 self assert: cs second nameSpaceName = 'Mocks'. |
172 self assert: cs second nameSpaceName = 'Mocks'. |
170 self assert: (Smalltalk at: #'Mocks::MockClass') isNil. |
173 self assert: (Smalltalk at: #'Mocks::MockClass') isNil. |
171 cs apply. |
174 cs apply. |
172 self assert: (Smalltalk at: #'Mocks::MockClass') notNil. |
175 self assert: (Smalltalk at: #'Mocks::MockClass') notNil. |
173 self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not. |
176 self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not. |