The Trunk: KernelTests-ul.150.mcz

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

On Wed, 28 Apr 2010, [hidden email] wrote:

The indentation looks a bit funny here, but it's ok in the image with the
default font.


Levente

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