[Pkg] The Trunk: Tests-ar.176.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Dec 4 19:39:20 UTC 2012
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.
+ !
More information about the Packages
mailing list