equal
deleted
inserted
replaced
4 instanceVariableNames:'browser mock menu manager generatorClassMock' |
4 instanceVariableNames:'browser mock menu manager generatorClassMock' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'Interface-Refactoring-Custom-UI-Tests' |
7 category:'Interface-Refactoring-Custom-UI-Tests' |
8 ! |
8 ! |
|
9 |
9 |
10 |
10 !CustomNewSystemBrowserTests methodsFor:'initialization & release'! |
11 !CustomNewSystemBrowserTests methodsFor:'initialization & release'! |
11 |
12 |
12 setUp |
13 setUp |
13 super setUp. |
14 super setUp. |
25 self objectAttributeAt: #theSingleSelectedClass put: aClass'; |
26 self objectAttributeAt: #theSingleSelectedClass put: aClass'; |
26 compileMockMethod: 'createBuffer ^ true'; |
27 compileMockMethod: 'createBuffer ^ true'; |
27 compileMockMethod: 'switchToClass: aClass |
28 compileMockMethod: 'switchToClass: aClass |
28 self objectAttributeAt: #switchToClass put: aClass'; |
29 self objectAttributeAt: #switchToClass put: aClass'; |
29 compileMockMethod: 'selectProtocol: aProtocol |
30 compileMockMethod: 'selectProtocol: aProtocol |
30 self objectAttributeAt: #switchToClass put: aProtocol'; |
31 self objectAttributeAt: #selectProtocol put: aProtocol'; |
31 compileMockMethod: 'customMenuBuilder |
32 compileMockMethod: 'customMenuBuilder |
32 | builder | |
33 | builder | |
33 |
34 |
34 builder := super customMenuBuilder. |
35 builder := super customMenuBuilder. |
35 builder manager: (self objectAttributeAt: #manager). |
36 builder manager: (self objectAttributeAt: #manager). |
43 browser objectAttributeAt: #manager put: manager. |
44 browser objectAttributeAt: #manager put: manager. |
44 |
45 |
45 generatorClassMock := mock mockClassOf: Object. |
46 generatorClassMock := mock mockClassOf: Object. |
46 mock createMockGetters: generatorClassMock forSelectors: {'label'. 'group'}. |
47 mock createMockGetters: generatorClassMock forSelectors: {'label'. 'group'}. |
47 |
48 |
48 "Modified: / 29-12-2014 / 09:06:03 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
49 "Modified: / 24-01-2015 / 20:08:29 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
49 ! |
50 ! |
50 |
51 |
51 tearDown |
52 tearDown |
52 |
53 |
53 mock unmockAll. |
54 mock unmockAll. |
143 |
144 |
144 expectedClass := CustomRBMethodTests. |
145 expectedClass := CustomRBMethodTests. |
145 browser theSingleSelectedClass: RBMethod. |
146 browser theSingleSelectedClass: RBMethod. |
146 browser classMenuExtensionNavigateToTestCase: menu. |
147 browser classMenuExtensionNavigateToTestCase: menu. |
147 menu lastItem itemValue value. "Call menu item action block" |
148 menu lastItem itemValue value. "Call menu item action block" |
148 actualClass := browser switchToClass. |
149 actualClass := browser switchToClass. |
149 |
150 |
150 self assert: expectedClass = actualClass. |
151 self assert: expectedClass = actualClass. |
151 self assert: (browser selectProtocol) == #tests |
152 self assert: (browser selectProtocol) == #tests |
152 |
153 |
153 "Created: / 26-12-2014 / 18:58:56 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
154 "Created: / 26-12-2014 / 18:58:56 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
|
155 "Modified: / 24-01-2015 / 19:53:29 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
154 ! |
156 ! |
155 |
157 |
156 test_class_menu_extension_navigate_to_test_case_found |
158 test_class_menu_extension_navigate_to_test_case_found |
157 | expectedClass actualClass | |
159 | expectedClass actualClass | |
158 |
160 |
284 self assert: expectedMenu = actualMenu |
286 self assert: expectedMenu = actualMenu |
285 |
287 |
286 "Created: / 29-12-2014 / 09:31:16 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
288 "Created: / 29-12-2014 / 09:31:16 / Jakub Nesveda <nesvejak@fit.cvut.cz>" |
287 ! ! |
289 ! ! |
288 |
290 |
|
291 !CustomNewSystemBrowserTests class methodsFor:'documentation'! |
|
292 |
|
293 version_HG |
|
294 |
|
295 ^ '$Changeset: <not expanded> $' |
|
296 ! ! |
|
297 |