Merge pull request #1783 from demarey/modal-testing

backport modal testing

Author: estebanlm

src/Spec2-Adapters-Morphic-Tests/SpWindowSimulateOpenModalTest.class.st

@@ -0,0 +1,29 @@
+Class {
+	#name : 'SpWindowSimulateOpenModalTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
+}
+
+{ #category : 'tests' }
+SpWindowSimulateOpenModalTest >> testSimulateSimpleOpenModal [
+	| dialog presenter |
+
+
+	presenter := SpTextInputFieldPresenter new.
+	dialog := presenter asModalWindow.
+
+
+	self deny: dialog isOk.
+	self assert: presenter text isEmpty.
+	
+	SpWindowSimulateOpenModal 
+		value: [ :aDialogPresenter | 
+			aDialogPresenter presenter text: 'SIMULATED'. 
+			aDialogPresenter beOk ]
+		during: [
+			dialog open ].
+			
+	self assert: dialog isOk.
+	self assert: presenter text equals: 'SIMULATED'
+]

src/Spec2-Adapters-Morphic/SpMorphicDialogWindowAdapter.class.st

@@ -56,6 +56,10 @@ SpMorphicDialogWindowAdapter >> buildWidget [
 SpMorphicDialogWindowAdapter >> waitWhile: aBlock [
 
 	SpWindowForceOpenNonModal value ifTrue: [ ^ self ].
+	SpWindowSimulateOpenModal value ifNotNil: [ :aValuable |
+		aValuable value: self presenter.
+		self presenter close.
+		^ self ].
 
 	MorphicRenderLoop new doOneCycleWhile: aBlock
 ]

src/Spec2-Core/SpWindowSimulateOpenModal.class.st

@@ -0,0 +1,21 @@
+"
+To be used when I want the dialog to simulate a response instead of calling it.
+To be used, variable needs to be a block with an argument: the dialog itself.
+
+Example:
+```smalltalk
+SpWindowSimulateOpenModal 
+	value: [ :aDialogPresenter |
+		aDalogPresenter presenter inputText: 'The text of the sample'.
+		aDialogPresenter beOk. 
+		true ]
+	durying [ ""some code thet will call dialog openModal"" ]
+```
+"
+Class {
+	#name : 'SpWindowSimulateOpenModal',
+	#superclass : 'DynamicVariable',
+	#category : 'Spec2-Core-Windows',
+	#package : 'Spec2-Core',
+	#tag : 'Windows'
+}