Andreas Raab uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-ar.13.mcz

==================== Summary ====================

Name: MorphicTests-ar.13
Author: ar
Time: 4 February 2010, 10:49:41.84 pm
UUID: eeedb4b6-7581-a84c-89d0-9d6a44ecbd09
Ancestors: MorphicTests-nice.12

Add a test for deferred ui queue timeout.

=============== Diff against MorphicTests-nice.12 ===============

Item was added:
+ ----- Method: WorldStateTest>>testDeferredUIQueueTimeout (in category 'tests') -----
+ testDeferredUIQueueTimeout
+ 	"Ensure that the World's deferredUIMessage will take no more time than
+ 	specified by WorldState's deferredExecutionTimeLimit"
+ 	| firstWasRun secondWasRun thirdWasRun |
+ 	firstWasRun := secondWasRun := thirdWasRun := false.
+ 	WorldState addDeferredUIMessage:[
+ 		firstWasRun := true.
+ 		(Delay forMilliseconds: WorldState deferredExecutionTimeLimit + 50) wait.
+ 	].
+ 	WorldState addDeferredUIMessage:[
+ 		secondWasRun := true.
+ 	].
+ 	WorldState addDeferredUIMessage:[
+ 		thirdWasRun := true.
+ 	].
+ 	self deny: firstWasRun.
+ 	self deny: secondWasRun.
+ 	self deny: thirdWasRun.
+ 	World doOneCycleNow.
+ 	self assert: firstWasRun.
+ 	self deny: secondWasRun.
+ 	self deny: thirdWasRun.
+ 	World doOneCycleNow.
+ 	self assert: firstWasRun.
+ 	self assert: secondWasRun.
+ 	self assert: thirdWasRun.
+ !

Item was added:
+ ClassTestCase subclass: #WorldStateTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'MorphicTests-Worlds'!