The Trunk: MorphicTests-ar.13.mcz

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'!