Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.176.mcz
==================== Summary ====================
Name: Tests-ar.176 Author: ar Time: 4 December 2012, 8:38:55.713 pm UUID: 21394b1b-43e1-5641-9730-4f18c45e2a27 Ancestors: Tests-cwp.175
More tests for potential breakage in valueWithin:onTimeout:.
=============== Diff against Tests-cwp.175 ===============
Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingBasic (in category 'tests') ----- + testValueWithinTimingBasic + "Test timing of valueWithin:onTimeout:" + | time | + time := [ + [1000 milliSeconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time < 150 milliSeconds.!
Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingNestedInner (in category 'tests') ----- + testValueWithinTimingNestedInner + "Test nested timing of valueWithin:onTimeout:" + | time | + time := [ + [ + [5 seconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: [] + ] valueWithin: 500 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time < 150 milliSeconds. + !
Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingNestedOuter (in category 'tests') ----- + testValueWithinTimingNestedOuter + "Test nested timing of valueWithin:onTimeout:" + | time | + time := [ + [ + 3 timesRepeat: [ + [5 seconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: []] + ] valueWithin: 150 milliSeconds onTimeout: [] + ] durationToRun. + self assert: time > 100 milliSeconds. + self assert: time < 200 milliSeconds. + !
Item was added: + ----- Method: TestValueWithinFix>>testValueWithinTimingRepeat (in category 'tests') ----- + testValueWithinTimingRepeat + "Test timing of valueWithin:onTimeout:" + | time | + time := [ + 3 timesRepeat: [ + [500 milliSeconds asDelay wait] + valueWithin: 100 milliSeconds onTimeout: []] + ] durationToRun. + self assert: time < 350 milliSeconds. + !
squeak-dev@lists.squeakfoundation.org