equal
deleted
inserted
replaced
624 !! !! |
624 !! !! |
625 ' readStream. |
625 ' readStream. |
626 |
626 |
627 self assert: cs size == 3. |
627 self assert: cs size == 3. |
628 self assert: cs third className = 'MockClass::PrivateClass'. |
628 self assert: cs third className = 'MockClass::PrivateClass'. |
|
629 self assert: cs third fullClassName = 'MockClass::PrivateClass'. |
629 self assert: (Smalltalk at: #'MockClass') isNil. |
630 self assert: (Smalltalk at: #'MockClass') isNil. |
630 cs apply. |
631 cs apply. |
631 self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo) |
632 self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo) |
632 |
633 |
633 "Created: / 01-05-2013 / 09:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
634 "Created: / 01-05-2013 / 09:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
635 "Modified: / 09-05-2013 / 15:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
634 ! |
636 ! |
635 |
637 |
636 test_MethodDefinitionChange_03b |
638 test_MethodDefinitionChange_03b |
637 |
639 |
638 | cs | |
640 | cs | |