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.
+ !