[squeak-dev] The Inbox: Chronology-Tests-ct.27.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jul 2 16:29:33 UTC 2021
A new version of Chronology-Tests was added to project The Inbox:
http://source.squeak.org/inbox/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
|