Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.230.mcz==================== Summary ====================
Name: KernelTests-cmm.230
Author: cmm
Time: 6 August 2012, 10:27:29.456 pm
UUID: b9a48227-4036-49a0-bcb0-76dffd94a4ab
Ancestors: KernelTests-eem.229
- Make TimespanDoTest account for defaultOffset.
=============== Diff against KernelTests-eem.229 ===============
Item was changed:
----- Method: TimespanDoTest>>setUp (in category 'running') -----
setUp
aDate := DateAndTime
year: 2003
month: 01
day: 07
hour: 0
minute: 0
second: 0.
aDuration := Duration
days: 91
hours: 0
minutes: 0
seconds: 0
nanoSeconds: 0.
+ aTimespan := Timespan starting: aDate makeUTC duration: aDuration!
- aTimespan := Timespan starting: aDate duration: aDuration!
Item was changed:
----- Method: TimespanDoTest>>testMonthsDo (in category 'testing') -----
testMonthsDo
| monthArray |
monthArray := Array
with: (Month
+ starting: (DateAndTime year: 2003 day: 1 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- starting: (DateAndTime year: 2003 day: 1)
duration: 31 days)
with: (Month
+ starting: (DateAndTime year: 2003 day: 32 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- starting: (DateAndTime year: 2003 day: 32)
duration: 28 days)
with: (Month
+ starting: (DateAndTime year: 2003 day: 60 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- starting: (DateAndTime year: 2003 day: 60)
duration: 31 days)
with: (Month
+ starting: (DateAndTime year: 2003 day: 91 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- starting: (DateAndTime year: 2003 day: 91)
duration: 30 days).
self assert: aTimespan months = monthArray!
Item was changed:
----- Method: TimespanDoTest>>testNext (in category 'testing') -----
testNext
self assert: aTimespan next
= (Timespan
starting: (DateAndTime
year: 2003
month: 4
day: 8
hour: 0
minute: 0
+ second: 0
+ offset: Timespan defaultOffset)
- second: 0)
duration: aDuration)!
Item was changed:
----- Method: TimespanDoTest>>testWeeksDo (in category 'testing') -----
testWeeksDo
| weekArray |
weekArray := OrderedCollection new.
7
to: 98
by: 7
do: [:each | weekArray
addLast: (Week
+ starting: (DateAndTime year: 2003 day: each hour: 0 minute: 0 second: 0 offset: Week defaultOffset)
- starting: (DateAndTime year: 2003 day: each)
duration: 7 days)].
weekArray := weekArray asArray.
self assert: aTimespan weeks = weekArray
!
Item was changed:
----- Method: TimespanDoTest>>testYearsDo (in category 'testing') -----
testYearsDo
| yearArray |
yearArray := Array
with: (Year
+ starting: (DateAndTime year: 2003 day: 7 hour: 0 minute: 0 second: 0 offset: Year defaultOffset)
- starting: (DateAndTime year: 2003 day: 7)
duration: 365 days).
self assert: aTimespan years contents = yearArray contents!
Locked
