Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.215.mcz ==================== Summary ==================== Name: KernelTests-cmm.215 Author: cmm Time: 10 February 2012, 4:56:30.144 pm UUID: c09dfc81-a3d3-42a7-82c6-30dc5a45102c Ancestors: KernelTests-cmm.214 Decided against the localized vs. globalized mode. =============== Diff against KernelTests-ul.213 =============== Item was changed: ----- Method: DateAndTimeLeapTest>>testAsDate (in category 'testing') ----- testAsDate + self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asDate = 'February 29, 2004' asDate! - self assert: aDateAndTime asDate = 'February 29, 2004' asDate. - - ! Item was changed: ----- Method: DateAndTimeLeapTest>>testAsMonth (in category 'testing') ----- testAsMonth + self assert: + (aDateAndTime offset: Month defaultOffset) asMonth = + (Month + month: 'February' + year: 2004)! - self assert: aDateAndTime asMonth = (Month month: 'February' year: 2004). - ! Item was changed: ----- Method: DateAndTimeLeapTest>>testAsSeconds (in category 'testing') ----- testAsSeconds + self assert: aDuration asSeconds = 48780. + self assert: aDateAndTime asSeconds = 3255514380! - self assert: aDuration asSeconds = 48780. - self assert: aDateAndTime asSeconds = 3255507180 - - ! Item was changed: ----- Method: DateAndTimeLeapTest>>testAsWeek (in category 'testing') ----- testAsWeek + self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asWeek = (Week starting: '02-29-2004' asDate)! - self assert: aDateAndTime asWeek = (Week starting: '02-29-2004' asDate). - ! Item was changed: ----- Method: DateAndTimeLeapTest>>testAsYear (in category 'testing') ----- testAsYear + | year | + year := (aDateAndTime offset: DateAndTime localTimeZone offset) asYear. + self assert: year = (Year starting: '02-29-2004' asDate). + self deny: year = (Year starting: '01-01-2004' asDate)! - self assert: aDateAndTime asYear = (Year starting: '02-29-2004' asDate). - self deny: aDateAndTime asYear = (Year starting: '01-01-2004' asDate) - ! Item was changed: ----- Method: DateAndTimeLeapTest>>testMidnight (in category 'testing') ----- testMidnight + | midnight | + midnight := (aDateAndTime offset: DateAndTime localTimeZone offset) midnight. + self assert: midnight = '2004-02-29T00:00:00+00:00' asDateAndTime. + self deny: midnight = '2004-02-29T00:00:00+02:00' asDateAndTime! - self assert: aDateAndTime midnight = '2004-02-29T00:00:00+00:00' asDateAndTime. - self deny: aDateAndTime midnight = '2004-02-29T00:00:00+02:00' asDateAndTime - ! Item was changed: ----- Method: DateTest>>testStarting (in category 'testing') ----- testStarting + self assert: aDate = (Date starting: ((DateAndTime fromString: '2004-01-23T12:12') offset: Date defaultOffset))! - self assert: aDate = (Date starting: (DateAndTime fromString: '2004-01-23T12:12')). ! Item was changed: ----- Method: TimeStampTest>>testAccessing (in category 'Tests') ----- testAccessing | d t | d := '1-10-2000' asDate. t := '11:55:00 am' asTime. self + assert: (timestamp offset: Date defaultOffset) date = d; + assert: (timestamp offset: Date defaultOffset) time = t. - assert: timestamp date = d; - assert: timestamp time = t. ! Item was changed: ----- Method: YearTest>>testCurrent (in category 'Tests') ----- testCurrent + self assert: + Year current start = + ((DateAndTime + year: DateAndTime now year + month: 1 + day: 1) offset: Year defaultOffset)! - - | yyyy | - - yyyy := DateAndTime now year. - - self assert: Year current start = (DateAndTime year: yyyy month: 1 day: 1)! |
Free forum by Nabble | Edit this page |