Add #settle to host

Author: tinchodias

src/Bloc-Tests/BlSpaceSettleTest.class.st

@@ -103,6 +103,35 @@ BlSpaceSettleTest >> testDeferOnUnopenedSpaceExecutesOnFirstPulse [
 	aSpace settle
 ]
 
+{ #category : #tests }
+BlSpaceSettleTest >> testHostCloseSpacesClosesAllAndStopsHost [
+
+	| space1 space2 |
+	space1 := self newTestingSpace.
+	space2 := self newTestingSpace.
+	self assert: (host spaces includes: space1).
+	self assert: (host spaces includes: space2).
+	self assert: host isRunning.
+
+	host closeSpaces.
+	host settle.
+	self deny: space1 isOpened.
+	self deny: space2 isOpened.
+	self assert: host spaces isEmpty.
+	self deny: host isRunning
+]
+
+{ #category : #tests }
+BlSpaceSettleTest >> testHostSettleWhenStoppedCompletesImmediately [
+
+	self deny: host isRunning.
+	self assert: host isSettled.
+
+	host settle.
+	self deny: host isRunning.
+	self assert: host isSettled
+]
+
 { #category : #tests }
 BlSpaceSettleTest >> testIsSettledWhenEmpty [
 

src/Bloc/BlHost.class.st

@@ -226,6 +226,17 @@ BlHost >> pulseProcessDo: aBlock [
 	^ self pulseProcess ifNotNil: aBlock
 ]
 
+{ #category : #'api - spaces' }
+BlHost >> settle [
+	"Wait until this host has executed all pending deferred actions and reached equilibrium."
+
+	self
+		waitUntil: [ self isSettled ]
+		timeOutIf: [ false ]
+		onCompletion: [ ]
+		onTimeout: [ ]
+]
+
 { #category : #'host space - accessing' }
 BlHost >> spaces [
 	"Answer the collection of spaces managed by this host."