The Inbox: Tests-ar.176.mcz

A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/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.
+ !