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! |
On 7 August 2012 04:27, <[hidden email]> wrote:
> 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 =============== 1 down, 11 to go! frank |
Free forum by Nabble | Edit this page |