Regression

osx-64 / Tests-osx-64 / MacOSX64.Spec2.Tests.Examples.SpDemoTest.testSmokeTestForDemoPages (from Spec2-Tests)

Error Message

Broken demo page: SpDemoModalsPage  UndefinedObject(Object)>>doesNotUnderstand: #keyboardFocus UndefinedObject>>doesNotUnderstand: #keyboardFocus StandardWindow(SystemWindow)>>privateBePassive SpWindow(SystemWindow)>>beTopWindow SpWindow(SystemWindow)>>basicActivate SpWindow(SystemWindow)>>activate SpWindow(SystemWindow)>>postOpenInWorld: SpWindow(StandardWindow)>>postOpenInWorld: SpWindow(Morph)>>openInWorld: SpWindow(Morph)>>openInWorld 

Stacktrace

TestFailure
Broken demo page: SpDemoModalsPage

UndefinedObject(Object)>>doesNotUnderstand: #keyboardFocus
UndefinedObject>>doesNotUnderstand: #keyboardFocus
StandardWindow(SystemWindow)>>privateBePassive
SpWindow(SystemWindow)>>beTopWindow
SpWindow(SystemWindow)>>basicActivate
SpWindow(SystemWindow)>>activate
SpWindow(SystemWindow)>>postOpenInWorld:
SpWindow(StandardWindow)>>postOpenInWorld:
SpWindow(Morph)>>openInWorld:
SpWindow(Morph)>>openInWorld
SpDemoTest(TestAsserter)>>assert:description:resumable:
SpDemoTest(TestAsserter)>>assert:description:
SpDemoTest(TestAsserter)>>fail:
[ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] in [ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ] in [ :demoPage | 
			[ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ]
				ensure: [ window ifNotNil: #close ] ] in SpDemoTest>>testSmokeTestForDemoPages
FullBlockClosure(BlockClosure)>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MessageNotUnderstood(Exception)>>signal
UndefinedObject(Object)>>doesNotUnderstand: #keyboardFocus
UndefinedObject>>doesNotUnderstand: #keyboardFocus
StandardWindow(SystemWindow)>>privateBePassive
SpWindow(SystemWindow)>>beTopWindow
SpWindow(SystemWindow)>>basicActivate
SpWindow(SystemWindow)>>activate
SpWindow(SystemWindow)>>postOpenInWorld:
SpWindow(StandardWindow)>>postOpenInWorld:
SpWindow(Morph)>>openInWorld:
SpWindow(Morph)>>openInWorld
SpMorphicWindowAdapter>>open
SpMorphicWindowAdapter(SpAbstractAdapter)>>update:with:
[:aDependent | aDependent update: anAspect with: anObject] in SpWindowPresenter(Model)>>changed:with:
DependentsArray>>do:
SpWindowPresenter(Model)>>changed:with:
SpWindowPresenter>>openWithSpecLayout:
SpNullApplication(SpApplication)>>open:withSpecLayout:using:
SpNullApplication(SpApplication)>>open:withSpecLayout:
SpDemoModalsPage(SpAbstractPresenter)>>openWithSpec
[ window := demoPage new openWithSpec ] in [ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ] in [ :demoPage | 
			[ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ]
				ensure: [ window ifNotNil: #close ] ] in SpDemoTest>>testSmokeTestForDemoPages
FullBlockClosure(BlockClosure)>>on:do:
[ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ] in [ :demoPage | 
			[ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ]
				ensure: [ window ifNotNil: #close ] ] in SpDemoTest>>testSmokeTestForDemoPages
FullBlockClosure(BlockClosure)>>ensure:
[ :demoPage | 
			[ [ window := demoPage new openWithSpec ]
				on: Error
				do: [ :e | 
					self
						fail:
							'Broken demo page: ' , demoPage asString
								,
									'

' , e signalerContext shortStack ] ]
				ensure: [ window ifNotNil: #close ] ] in SpDemoTest>>testSmokeTestForDemoPages
OrderedCollection>>do:
SpDemoTest>>testSmokeTestForDemoPages
SpDemoTest(TestCase)>>performTest