Packages December 2012

packages@lists.squeakfoundation.org

1 participants
111 discussions

The Trunk: Tests-ar.176.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

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

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2012