Skip to content
Permalink
Browse files

Merge pull request #677 from jecisc/666-Harvest-Pharo-changes

666-Harvest-Pharo-changes
  • Loading branch information...
jecisc committed Aug 6, 2019
2 parents fe964f9 + 9857927 commit 250df0cfed71bd9e7815085cc0f013937a37b19b
Showing with 184 additions and 184 deletions.
  1. +1 −1 src/Spec2-Adapters-Morphic/SpMorphicStyleSheet.class.st
  2. +1 −1 src/Spec2-Adapters-Morphic/SpNotebookPageMorph.class.st
  3. +28 −28 src/Spec2-Backend-Tests/{SpAbstractAdapterTestCase.class.st → SpAbstractAdapterTest.class.st}
  4. +16 −16 src/Spec2-Backend-Tests/{SpAbstractLayoutTestCase.class.st → SpAbstractLayoutTest.class.st}
  5. +1 −1 src/Spec2-Backend-Tests/SpAbstractListAdapterMultipleSelectionTest.class.st
  6. +1 −1 src/Spec2-Backend-Tests/SpAbstractListAdapterSingleSelectionTest.class.st
  7. +1 −1 src/Spec2-Backend-Tests/SpAbstractListCommonPropertiestTest.class.st
  8. +1 −1 src/Spec2-Backend-Tests/SpAbstractTreeTableAdapterTest.class.st
  9. +25 −0 src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTest.class.st
  10. +0 −25 src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTestCase.class.st
  11. +6 −6 ...-Backend-Tests/{SpAthensAnimatedPresenterTests.class.st → SpAthensAnimatedPresenterTest.class.st}
  12. +7 −7 ...pec2-Backend-Tests/{SpAthensStaticPresenterTests.class.st → SpAthensStaticPresenterTest.class.st}
  13. +1 −1 src/Spec2-Backend-Tests/SpButtonAdapterTest.class.st
  14. +1 −1 src/Spec2-Backend-Tests/SpCheckboxAdapterTest.class.st
  15. +1 −1 src/Spec2-Backend-Tests/SpDropListAdapterTest.class.st
  16. +1 −1 src/Spec2-Backend-Tests/SpExecutableLayoutTest.class.st
  17. +1 −1 src/Spec2-Backend-Tests/SpExecutableLayoutWithDynamicPresenterTest.class.st
  18. +1 −1 src/Spec2-Backend-Tests/SpImageAdapterTest.class.st
  19. +1 −1 src/Spec2-Backend-Tests/SpLabelAdapterTest.class.st
  20. +1 −1 src/Spec2-Backend-Tests/SpMillerColumnAdapterTest.class.st
  21. +1 −1 src/Spec2-Backend-Tests/SpNotebookAdapterTest.class.st
  22. +1 −1 src/Spec2-Backend-Tests/SpRadioButtonAdapterTest.class.st
  23. +1 −1 src/Spec2-Backend-Tests/SpRadioButtonInteractionTest.class.st
  24. +1 −1 src/Spec2-Backend-Tests/SpSliderPresenterBackendTest.class.st
  25. +1 −1 src/Spec2-Backend-Tests/SpTextAdapterTest.class.st
  26. +1 −1 src/Spec2-Backend-Tests/SpTextInputFieldAdapterTest.class.st
  27. +1 −1 src/Spec2-Backend-Tests/SpToolBarAdapterTest.class.st
  28. +1 −1 src/Spec2-Commander2-ContactBook/SpContactBook.class.st
  29. +4 −4 src/Spec2-Compatibility-Tests/{SpFastTableTests.class.st → SpFastTableTest.class.st}
  30. +4 −4 ...patibility-Tests/{SpMorphicMultiColumnListTests.class.st → SpMorphicMultiColumnListTest.class.st}
  31. +1 −1 src/Spec2-Core/SpNullApplication.class.st
  32. +1 −1 src/Spec2-Core/SpSliderPresenter.class.st
  33. +1 −1 src/Spec2-Deprecated/SpAbstractTwoButtonsTest.class.st
  34. +1 −1 src/Spec2-Deprecated/SpDropListButtonTest.class.st
  35. +1 −1 src/Spec2-Deprecated/SpLabelledInputTextDropListTest.class.st
  36. +1 −1 src/Spec2-Deprecated/SpPickListPresenterTest.class.st
  37. +1 −1 src/Spec2-Deprecated/SpSearchableListTest.class.st
  38. +1 −1 src/Spec2-Deprecated/SpTabManagerPresenterTest.class.st
  39. +1 −1 src/Spec2-Deprecated/SpTabPresenterTest.class.st
  40. +1 −1 src/Spec2-PolyWidgets-Tests/SpDatePresenterTest.class.st
  41. +1 −1 src/Spec2-PolyWidgets-Tests/SpEditableListTest.class.st
  42. +1 −1 src/Spec2-PolyWidgets-Tests/SpInputTextDropListTest.class.st
  43. +1 −1 src/Spec2-PolyWidgets-Tests/SpLabelledContainerTest.class.st
  44. +1 −1 src/Spec2-PolyWidgets-Tests/SpMethodToolbarTest.class.st
  45. +1 −1 src/Spec2-PolyWidgets-Tests/SpRGBSlidersTest.class.st
  46. +1 −1 src/Spec2-PolyWidgets-Tests/SpRGBWidgetTest.class.st
  47. +1 −1 src/Spec2-PolyWidgets-Tests/SpSearchableTreeTest.class.st
  48. +1 −1 src/Spec2-PolyWidgets-Tests/SpSliderInputTest.class.st
  49. +1 −1 src/Spec2-Tests/SpAbstractListPresenterTest.class.st
  50. +1 −1 src/Spec2-Tests/SpApplicationWithToolbarTest.class.st
  51. +1 −1 src/Spec2-Tests/SpButtonPresenterTest.class.st
  52. +1 −1 src/Spec2-Tests/SpCheckBoxExampleTest.class.st
  53. +1 −1 src/Spec2-Tests/SpCheckboxPresenterTest.class.st
  54. +1 −1 src/Spec2-Tests/SpClassMethodBrowserTest.class.st
  55. +1 −1 src/Spec2-Tests/SpDemoTest.class.st
  56. +1 −1 src/Spec2-Tests/SpDropListExampleTest.class.st
  57. +1 −1 src/Spec2-Tests/SpDropListPresenterTest.class.st
  58. +1 −1 src/Spec2-Tests/SpDynamicWidgetChangeTest.class.st
  59. +1 −1 src/Spec2-Tests/SpImagePresenterTest.class.st
  60. +1 −1 src/Spec2-Tests/SpLabelPresenterTest.class.st
  61. +1 −1 src/Spec2-Tests/SpLinkPresenterTest.class.st
  62. +1 −1 src/Spec2-Tests/SpListPresenterMultipleSelectionTest.class.st
  63. +1 −1 src/Spec2-Tests/SpListPresenterSingleSelectionTest.class.st
  64. +1 −1 src/Spec2-Tests/SpListSelectionPresenterTest.class.st
  65. +1 −1 src/Spec2-Tests/SpMenuItemPresenterTest.class.st
  66. +1 −1 src/Spec2-Tests/SpMenuPresenterTest.class.st
  67. +1 −1 src/Spec2-Tests/SpMethodBrowserTest.class.st
  68. +1 −1 src/Spec2-Tests/SpMillerColumnPresenterTest.class.st
  69. +1 −1 src/Spec2-Tests/SpNotebookPresenterTest.class.st
  70. +1 −1 src/Spec2-Tests/SpOpenOnIntExampleTest.class.st
  71. +1 −1 src/Spec2-Tests/SpOpenOnNilExampleTest.class.st
  72. +1 −1 src/Spec2-Tests/SpOpenOnStringExampleTest.class.st
  73. +1 −1 src/Spec2-Tests/SpRadioButtonExampleTest.class.st
  74. +1 −1 src/Spec2-Tests/SpRadioButtonPresenterTest.class.st
  75. +1 −1 src/Spec2-Tests/SpScrollSyncExampleTest.class.st
  76. +1 −1 src/Spec2-Tests/SpSliderPresenterTest.class.st
  77. +7 −7 src/Spec2-Tests/{SpSmokeTestCase.class.st → SpSmokeTest.class.st}
  78. +12 −12 src/Spec2-Tests/{SpTestCase.class.st → SpTest.class.st}
  79. +1 −1 src/Spec2-Tests/SpTextFieldExampleTest.class.st
  80. +1 −1 src/Spec2-Tests/SpTextPresenterTest.class.st
  81. +1 −1 src/Spec2-Tests/SpToolBarPresenterTest.class.st
  82. +1 −1 src/Spec2-Tests/SpTreeTablePresenterTest.class.st
  83. +1 −1 src/Spec2-Tests/SpVersatileDialogPresenterTest.class.st
  84. +2 −2 src/Spec2-Tests/SpWindowPresenterTest.class.st
@@ -47,7 +47,7 @@ SpMorphicStyleSheet class >> newDefault [
^ SpMorphicDefaultStyleSheet new
]

{ #category : #utils }
{ #category : #initialization }
SpMorphicStyleSheet class >> reset [
<script>

@@ -68,7 +68,7 @@ SpNotebookPageMorph >> model: anObject [
model := anObject
]

{ #category : #accessing }
{ #category : #initialization }
SpNotebookPageMorph >> reset [

self actualPageMorph: nil
@@ -1,5 +1,5 @@
Class {
#name : #SpAbstractAdapterTestCase,
#name : #SpAbstractAdapterTest,
#superclass : #ParametrizedTestCase,
#instVars : [
'presenter',
@@ -11,12 +11,12 @@ Class {
}

{ #category : #testing }
SpAbstractAdapterTestCase class >> isAbstract [
^ self == SpAbstractAdapterTestCase
SpAbstractAdapterTest class >> isAbstract [
^ self == SpAbstractAdapterTest
]

{ #category : #testing }
SpAbstractAdapterTestCase class >> testParameters [
SpAbstractAdapterTest class >> testParameters [

^ ParametrizedTestMatrix new
forSelector: #specInitializationStrategy
@@ -27,7 +27,7 @@ SpAbstractAdapterTestCase class >> testParameters [
]

{ #category : #running }
SpAbstractAdapterTestCase >> adapter [
SpAbstractAdapterTest >> adapter [

"Force opening the spec instance here.
The action should have been correctly configured before
@@ -37,79 +37,79 @@ SpAbstractAdapterTestCase >> adapter [
]

{ #category : #asserting }
SpAbstractAdapterTestCase >> assertIcon: anIcon equals: aForm [
SpAbstractAdapterTest >> assertIcon: anIcon equals: aForm [

backendForTest assertIcon: anIcon equals: aForm
]

{ #category : #accessing }
SpAbstractAdapterTestCase >> backendForTest: aClass [
SpAbstractAdapterTest >> backendForTest: aClass [

backendForTest := aClass new
]

{ #category : #accessing }
SpAbstractAdapterTestCase >> classToTest [
SpAbstractAdapterTest >> classToTest [

^ self subclassResponsibility
]

{ #category : #utils }
SpAbstractAdapterTestCase >> emulateCenterClick [
SpAbstractAdapterTest >> emulateCenterClick [

self emulateClick: MouseButtonEvent blueButton
]

{ #category : #utils }
SpAbstractAdapterTestCase >> emulateClick: mouseButtonCode [
SpAbstractAdapterTest >> emulateClick: mouseButtonCode [

backendForTest emulateClick: mouseButtonCode onTest: self.
]

{ #category : #utils }
SpAbstractAdapterTestCase >> emulateLeftClick [
SpAbstractAdapterTest >> emulateLeftClick [

self emulateClick: MouseButtonEvent redButton
]

{ #category : #utils }
SpAbstractAdapterTestCase >> emulateRightClick [
SpAbstractAdapterTest >> emulateRightClick [

self emulateClick: MouseButtonEvent yellowButton
]

{ #category : #running }
SpAbstractAdapterTestCase >> initializeTestedInstance [
SpAbstractAdapterTest >> initializeTestedInstance [
]

{ #category : #running }
SpAbstractAdapterTestCase >> openInstance [
SpAbstractAdapterTest >> openInstance [

backendForTest openInstanceOf: self

]

{ #category : #private }
SpAbstractAdapterTestCase >> performTest [
SpAbstractAdapterTest >> performTest [

specInitializationStrategy beforeTest: self.
super performTest.
]

{ #category : #running }
SpAbstractAdapterTestCase >> prepareToRunAgain [
SpAbstractAdapterTest >> prepareToRunAgain [

backendForTest runTest: [ super prepareToRunAgain ]

]

{ #category : #accessing }
SpAbstractAdapterTestCase >> presenter [
SpAbstractAdapterTest >> presenter [
^ presenter
]

{ #category : #running }
SpAbstractAdapterTestCase >> runCase [
SpAbstractAdapterTest >> runCase [

self resources do: [:each | each availableFor: self].
[ super setUp.
@@ -123,61 +123,61 @@ SpAbstractAdapterTestCase >> runCase [
]

{ #category : #running }
SpAbstractAdapterTestCase >> setUp [
SpAbstractAdapterTest >> setUp [
super setUp. "This super is useless but it's to make the release tests happy."
self error: 'Do not override me.... use #initializeTestedInstance'
]

{ #category : #accessing }
SpAbstractAdapterTestCase >> specInitializationStrategy: aStrategy [
SpAbstractAdapterTest >> specInitializationStrategy: aStrategy [

specInitializationStrategy := aStrategy
]

{ #category : #running }
SpAbstractAdapterTestCase >> tearDown [
SpAbstractAdapterTest >> tearDown [
window ifNotNil: [ window delete ].
super tearDown
]

{ #category : #running }
SpAbstractAdapterTestCase >> testHidePresenterHidesWidget [
SpAbstractAdapterTest >> testHidePresenterHidesWidget [

self presenter hide.
self deny: self adapter isVisible
]

{ #category : #running }
SpAbstractAdapterTestCase >> testShowPresenterShowsWidget [
SpAbstractAdapterTest >> testShowPresenterShowsWidget [

self presenter show.
self assert: self adapter isVisible
]

{ #category : #running }
SpAbstractAdapterTestCase >> testVisibilityWithBlock [
SpAbstractAdapterTest >> testVisibilityWithBlock [
presenter visibleIf: [ true ].
self assert: self adapter isVisible
]

{ #category : #running }
SpAbstractAdapterTestCase >> testVisibilityWithBlockThatReturnsFalse [
SpAbstractAdapterTest >> testVisibilityWithBlockThatReturnsFalse [
presenter visibleIf: [ false ].
self deny: self adapter isVisible
]

{ #category : #running }
SpAbstractAdapterTestCase >> widget [
SpAbstractAdapterTest >> widget [

^ self adapter widget
]

{ #category : #accessing }
SpAbstractAdapterTestCase >> window [
SpAbstractAdapterTest >> window [
^ window
]

{ #category : #accessing }
SpAbstractAdapterTestCase >> window: aWindowPresenter [
SpAbstractAdapterTest >> window: aWindowPresenter [
window := aWindowPresenter
]
@@ -1,5 +1,5 @@
Class {
#name : #SpAbstractLayoutTestCase,
#name : #SpAbstractLayoutTest,
#superclass : #ParametrizedTestCase,
#instVars : [
'presenter',
@@ -10,19 +10,19 @@ Class {
}

{ #category : #testing }
SpAbstractLayoutTestCase class >> isAbstract [
^ self = SpAbstractLayoutTestCase
SpAbstractLayoutTest class >> isAbstract [
^ self = SpAbstractLayoutTest
]

{ #category : #testing }
SpAbstractLayoutTestCase class >> testParameters [
SpAbstractLayoutTest class >> testParameters [
^ ParametrizedTestMatrix new
forSelector: #backendForTest addOptions: SpAbstractBackendForTest allSubclasses;
yourself
]

{ #category : #running }
SpAbstractLayoutTestCase >> adapter [
SpAbstractLayoutTest >> adapter [

"Force opening the spec instance here.
The action should have been correctly configured before
@@ -32,38 +32,38 @@ SpAbstractLayoutTestCase >> adapter [
]

{ #category : #accessing }
SpAbstractLayoutTestCase >> backendForTest: aClass [
SpAbstractLayoutTest >> backendForTest: aClass [

backendForTest := aClass new
]

{ #category : #accessing }
SpAbstractLayoutTestCase >> classToTest [
SpAbstractLayoutTest >> classToTest [

^ self subclassResponsibility
]

{ #category : #running }
SpAbstractLayoutTestCase >> openInstance [
SpAbstractLayoutTest >> openInstance [

backendForTest openInstanceOf: self

]

{ #category : #running }
SpAbstractLayoutTestCase >> prepareToRunAgain [
SpAbstractLayoutTest >> prepareToRunAgain [

backendForTest runTest: [ super prepareToRunAgain ]

]

{ #category : #accessing }
SpAbstractLayoutTestCase >> presenter [
SpAbstractLayoutTest >> presenter [
^ presenter
]

{ #category : #running }
SpAbstractLayoutTestCase >> runCase [
SpAbstractLayoutTest >> runCase [

self resources do: [:each | each availableFor: self].
[ super setUp.
@@ -76,29 +76,29 @@ SpAbstractLayoutTestCase >> runCase [
]

{ #category : #running }
SpAbstractLayoutTestCase >> setUp [
SpAbstractLayoutTest >> setUp [
super setUp. "This super is useless but it's to make the release tests happy."
self error: 'Do not override me.... use #initializeTestedInstance'
]

{ #category : #running }
SpAbstractLayoutTestCase >> tearDown [
SpAbstractLayoutTest >> tearDown [
window ifNotNil: [ window delete ].
super tearDown
]

{ #category : #running }
SpAbstractLayoutTestCase >> widget [
SpAbstractLayoutTest >> widget [

^ self adapter widget
]

{ #category : #accessing }
SpAbstractLayoutTestCase >> window [
SpAbstractLayoutTest >> window [
^ window
]

{ #category : #accessing }
SpAbstractLayoutTestCase >> window: aWindowPresenter [
SpAbstractLayoutTest >> window: aWindowPresenter [
window := aWindowPresenter
]
@@ -1,6 +1,6 @@
Class {
#name : #SpAbstractListAdapterMultipleSelectionTest,
#superclass : #SpAbstractWidgetAdapterTestCase,
#superclass : #SpAbstractWidgetAdapterTest,
#category : #'Spec2-Backend-Tests'
}

@@ -1,6 +1,6 @@
Class {
#name : #SpAbstractListAdapterSingleSelectionTest,
#superclass : #SpAbstractWidgetAdapterTestCase,
#superclass : #SpAbstractWidgetAdapterTest,
#category : #'Spec2-Backend-Tests'
}

@@ -1,6 +1,6 @@
Class {
#name : #SpAbstractListCommonPropertiestTest,
#superclass : #SpAbstractWidgetAdapterTestCase,
#superclass : #SpAbstractWidgetAdapterTest,
#category : #'Spec2-Backend-Tests'
}

@@ -1,6 +1,6 @@
Class {
#name : #SpAbstractTreeTableAdapterTest,
#superclass : #SpAbstractWidgetAdapterTestCase,
#superclass : #SpAbstractWidgetAdapterTest,
#category : #'Spec2-Backend-Tests'
}

@@ -0,0 +1,25 @@
Class {
#name : #SpAbstractWidgetAdapterTest,
#superclass : #SpAbstractAdapterTest,
#category : #'Spec2-Backend-Tests'
}

{ #category : #testing }
SpAbstractWidgetAdapterTest class >> isAbstract [

^ self name = #SpAbstractWidgetAdapterTest
]

{ #category : #running }
SpAbstractWidgetAdapterTest >> testChangingHelpAffectTheWidget [

presenter help: 'ALabel'.
self assert: self adapter helpText equals: 'ALabel'
]

{ #category : #running }
SpAbstractWidgetAdapterTest >> testEnabledAffectWidget [

presenter enabled: false.
self deny: self adapter enabled
]

0 comments on commit 250df0c

Please sign in to comment.
You can’t perform that action at this time.