[squeak-dev] The Trunk: Chronology-Tests-ct.27.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 5 08:41:47 UTC 2021


Marcel Taeumel uploaded a new version of Chronology-Tests to project The Trunk:
http://source.squeak.org/trunk/Chronology-Tests-ct.27.mcz

==================== Summary ====================

Name: Chronology-Tests-ct.27
Author: ct
Time: 2 July 2021, 6:29:32.622779 pm
UUID: 38ff3da7-0f8e-8340-a4fd-155480a978b0
Ancestors: Chronology-Tests-dtl.25

Revises tests for Duration >> #wait and #busyWait. In particular, fixes a typo (#new instead of #now) in #testWait which made that test pretty much worthless. :-)

Supersedes Chronology-Tests-ct.26.

=============== Diff against Chronology-Tests-dtl.25 ===============

Item was added:
+ ----- Method: DurationTest>>testBusyWait (in category 'tests') -----
+ testBusyWait
+ 	
+ 	| duration start elapsed |
+ 	duration := Duration milliSeconds: 1.
+ 	start := DateAndTime now.
+ 	
+ 	1000 timesRepeat: [duration busyWait].
+ 	elapsed := DateAndTime now - start.
+ 	
+ 	self assert: elapsed >= (duration * 1000).
+ 	self assert: elapsed <= (duration * 1000 * 2).!

Item was changed:
  ----- Method: DurationTest>>testWait (in category 'tests') -----
  testWait
  	
+ 	| duration start elapsed |
+ 	duration := Duration milliSeconds: 500.
+ 	start := DateAndTime now.
+ 	
+ 	duration wait.
+ 	elapsed := DateAndTime now - start.
+ 	
+ 	self assert: elapsed >= duration.
+ 	self assert: elapsed <= (duration * 2).!
- 	| start |
- 	start := DateAndTime new.
- 	(Duration milliSeconds: 500) wait.
- 	self assert: DateAndTime now - start > (Duration milliSeconds: 500).	!



More information about the Squeak-dev mailing list