Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.150.mcz==================== Summary ====================
Name: KernelTests-ul.150
Author: ul
Time: 28 April 2010, 9:58:59.618 am
UUID: 376e4cc7-48fd-9444-8956-079932a3e0b6
Ancestors: KernelTests-tbn.149
- added a few more cases to DurationTest >> #testMilliSeconds
=============== Diff against KernelTests-tbn.149 ===============
Item was changed:
----- Method: DurationTest>>testMilliSeconds (in category 'testing') -----
testMilliSeconds
+
+ #(
+ "argument (milliseconds) seconds nanoseconds"
+ (5 0 5000000)
+ (1005 1 5000000)
+ (-5 0 -5000000)
+ (-1005 -1 -5000000)
+ (1234567 1234 567000000)
+ (-1234567 -1234 -567000000)
+ ) do: [ :each |
+ | duration |
+ duration := Duration milliSeconds: each first.
+ self assert: duration asSeconds = each second.
+ self assert: duration nanoSeconds = each third ]!
- self assert: (Duration milliSeconds: 5) nanoSeconds = 5000000. !