'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 9 August 2010 at 11:55:19 am'!

!WorldTest methodsFor: 'as yet unclassified' stamp: 'jmv 8/9/2010 11:55'!
testDoOneCycleWorksWithDeferredQueue
        "Ensure that nested doOneCycles don't break deferred UI messages"
        | finished |
        [
                WorldState addDeferredUIMessage: [ World doOneCycleNow ].
                WorldState addDeferredUIMessage: nil "whatever".
                World doOneCycleNow.
                finished _ true.
        ] valueWithin: 1 seconds onTimeout: [finished _ false ].
        self assert: finished! !

