Merge pull request #1636 from hernanmd/p13-add-notebook-helpers

src/Spec2-Backend-Tests/SpNotebookAdapterTest.class.st

@@ -18,6 +18,18 @@ SpNotebookAdapterTest >> initializeTestedInstance [
 		addPage: (SpNotebookPage title: 'Mock2' icon: (self iconNamed: #changeUpdate) provider: [ SpLabelPresenter new ])
 ]
 
+{ #category : 'tests' }
+SpNotebookAdapterTest >> testAccessPage [
+
+	| newPage |
+
+	newPage := SpNotebookPage title: 'Mock3' provider: [ SpLabelPresenter new ].
+	presenter addPage: newPage.
+	self assert: (presenter pageNamed: 'Mock3') equals: newPage.
+	presenter removeAll.
+	self should: [ presenter pageNamed: 'Mock3' ] raise: NotFound.
+]
+
 { #category : 'tests' }
 SpNotebookAdapterTest >> testAddPage [
 	self assert: self adapter numberOfTabs equals: 2.
@@ -42,6 +54,14 @@ SpNotebookAdapterTest >> testClickOnPage [
 	self assert: self adapter selectedPageName equals: 'Mock2'
 ]
 
+{ #category : 'tests' }
+SpNotebookAdapterTest >> testHasPages [
+
+	self assert: presenter hasPages.
+	presenter removeAll.
+	self deny: presenter hasPages.
+]
+
 { #category : 'tests' }
 SpNotebookAdapterTest >> testRemoveAll [
 

src/Spec2-Core/SpNotebookPresenter.class.st

@@ -41,6 +41,18 @@ SpNotebookPresenter >> addPageTitle: aString provider: aBlock [
 	^ self addPage: (SpNotebookPage title: aString provider: aBlock)
 ]
 
+{ #category : 'testing' }
+SpNotebookPresenter >> hasPageNamed: aTitle [
+
+	^ self pages anySatisfy: [ : page | 	page title = aTitle ]
+]
+
+{ #category : 'testing' }
+SpNotebookPresenter >> hasPages [
+
+	^ self pages isNotEmpty
+]
+
 { #category : 'initialization' }
 SpNotebookPresenter >> initialize [
 
@@ -55,6 +67,13 @@ SpNotebookPresenter >> pageAt: index [
 	^ self pages at: index
 ]
 
+{ #category : 'api' }
+SpNotebookPresenter >> pageNamed: aTitle [
+	"Answer the receiver's <SpNotebookPage> with aTitle as name. Raise a <NotFound> exception if not present"
+
+	^ self pages detect: [ : page | page title = aTitle ]
+]
+
 { #category : 'private' }
 SpNotebookPresenter >> pageTitleChanged: aPage [