equal
deleted
inserted
replaced
74 definition := className, ' subclass:#', mockClassName, ' |
74 definition := className, ' subclass:#', mockClassName, ' |
75 instanceVariableNames:'''' |
75 instanceVariableNames:'''' |
76 classVariableNames:''MockedSelectors MockedClassSelectors'' |
76 classVariableNames:''MockedSelectors MockedClassSelectors'' |
77 poolDictionaries:'''' |
77 poolDictionaries:'''' |
78 category:''Interface-Refactoring-Custom-Mocks'''. |
78 category:''Interface-Refactoring-Custom-Mocks'''. |
79 Transcript showCR:'DDDX: ',definition. |
79 |
80 (InteractiveAddClassChange definition: definition) execute. |
80 (InteractiveAddClassChange definition: definition) execute. |
81 |
81 |
82 mockClass := Smalltalk classNamed: mockClassName. |
82 mockClass := Smalltalk classNamed: mockClassName. |
83 |
83 |
84 self createMockMethodWithSingleValue: mockClass. |
84 self createMockMethodWithSingleValue: mockClass. |
87 ]. |
87 ]. |
88 |
88 |
89 ^ mockClass |
89 ^ mockClass |
90 |
90 |
91 "Created: / 15-06-2014 / 19:15:52 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
91 "Created: / 15-06-2014 / 19:15:52 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
92 "Modified: / 24-01-2015 / 19:32:38 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
92 "Modified: / 24-01-2015 / 19:40:02 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
93 ! |
93 ! |
94 |
94 |
95 createMockGetters: aMockClass forSelectors: aSelectors |
95 createMockGetters: aMockClass forSelectors: aSelectors |
96 "Generates mock getter method for each name" |
96 "Generates mock getter method for each name" |
97 |
97 |