forked from pharo-project/pharo
/
SpNotebookAdapterTest.class.st
91 lines (74 loc) · 2.87 KB
/
SpNotebookAdapterTest.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Class {
#name : #SpNotebookAdapterTest,
#superclass : #SpAbstractWidgetAdapterTest,
#category : #'Spec2-Backend-Tests'
}
{ #category : #accessing }
SpNotebookAdapterTest >> classToTest [
^ SpNotebookPresenter
]
{ #category : #running }
SpNotebookAdapterTest >> initializeTestedInstance [
presenter
addPage: (SpNotebookPage title: 'Mock' icon: (self iconNamed: #changeUpdate) provider: [ SpButtonPresenter new ]);
addPage: (SpNotebookPage title: 'Mock2' icon: (self iconNamed: #changeUpdate) provider: [ SpLabelPresenter new ])
]
{ #category : #tests }
SpNotebookAdapterTest >> testAddPage [
self assert: self adapter numberOfTabs equals: 2.
presenter addPage: (SpNotebookPage title: 'Mock3' provider: [ SpLabelPresenter new ]).
self assert: self adapter numberOfTabs equals: 3
]
{ #category : #tests }
SpNotebookAdapterTest >> testClickOnPage [
self adapter clickTab: 2.
self assert: self adapter selectedPageName equals: 'Mock2'
]
{ #category : #tests }
SpNotebookAdapterTest >> testRemoveAll [
self assert: self adapter numberOfTabs equals: 2.
presenter removeAll.
self assert: self adapter numberOfTabs equals: 0
]
{ #category : #tests }
SpNotebookAdapterTest >> testRemoveMiddlePageWhenLastIsSelected [
presenter addPage: (SpNotebookPage title: 'Mock3' provider: [ SpLabelPresenter new ]).
self assert: self adapter numberOfTabs equals: 3.
presenter selectPageIndex: 3.
self assert: self adapter selectedPageName equals: 'Mock3'.
presenter removePageAt: 2.
self assert: self adapter numberOfTabs equals: 2.
self assert: self adapter selectedPageName equals: 'Mock3'
]
{ #category : #tests }
SpNotebookAdapterTest >> testRemovePage [
| page |
presenter addPage: (page := SpNotebookPage title: 'Mock3' provider: [ SpLabelPresenter new ]).
self assert: self adapter numberOfTabs equals: 3.
presenter removePage: page.
self assert: self adapter numberOfTabs equals: 2
]
{ #category : #tests }
SpNotebookAdapterTest >> testRemovePageAt [
presenter addPage: (SpNotebookPage title: 'Mock3' provider: [ SpLabelPresenter new ]).
self assert: self adapter numberOfTabs equals: 3.
presenter selectPageIndex: 1.
self assert: self adapter selectedPageName equals: 'Mock'.
presenter removePageAt: 2.
self assert: self adapter numberOfTabs equals: 2.
self assert: self adapter selectedPageName equals: 'Mock'
]
{ #category : #tests }
SpNotebookAdapterTest >> testSelectedPage [
presenter selectPageIndex: 2.
self assert: self adapter selectedPageName equals: 'Mock2'
]
{ #category : #tests }
SpNotebookAdapterTest >> testSelectingPageShouldAnnounceChangeEvent [
| change |
self adapter widget tabSelectorMorph selectedIndex: 1.
self adapter widget announcer when: SpNotebookPageChanged do: [ :ann | change := ann ].
self adapter widget tabSelectorMorph selectedIndex: 2.
self assert: change oldPage model title equals: 'Mock'.
self assert: change page model title equals: 'Mock2'
]