David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.32.mcz
==================== Summary ====================
Name: Chronology-Tests-dtl.32 Author: dtl Time: 6 September 2022, 12:02:22.727648 pm UUID: b75c03f1-bad5-4369-946d-a74e8c6c50a3 Ancestors: Chronology-Tests-ct.31, Chronology-Tests-dtl.31, Chronology-Tests-lrnp.31
Merge Chronology-Tests-lrnp.31 and Chronology-Tests-dtl.31
=============== Diff against Chronology-Tests-ct.31 ===============
Item was changed: ----- Method: DateAndTimeEpochTest>>testOffset (in category 'tests') ----- testOffset self assert: aDateAndTime offset = '0:00:00:00' asDuration. + self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime! - self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime!
Item was added: + ----- Method: DateAndTimeLeapTest>>testAsLocalAt (in category 'testing') ----- + testAsLocalAt + self assert: aDateAndTime offset = '0:02:00:00' asDuration. + self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime!
Item was changed: ----- Method: DateAndTimeLeapTest>>testAsTimeStamp (in category 'testing') ----- testAsTimeStamp + self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) asLocalAt: 2 hours). - self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) offset: 2 hours).
!
Item was changed: ----- Method: DateAndTimeLeapTest>>testOffset (in category 'testing') ----- testOffset self assert: aDateAndTime offset = '0:02:00:00' asDuration. + self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T23:33:00+12:00' asDateAndTime! - self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime!
Item was changed: ----- Method: DateAndTimeLeapTest>>testYearDayHourMinuteSecond (in category 'testing') ----- testYearDayHourMinuteSecond + self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours). - self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) offset: 2 hours). !
Item was changed: ----- Method: DateAndTimeLeapTest>>testYearMonthDayHourMinuteSecond (in category 'testing') ----- testYearMonthDayHourMinuteSecond + self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours). - self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) offset: 2 hours). !
Item was changed: ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- testMakeUTC "Equal dates should compare equal regardless of which TimeZone they are created in."
| priorTz priorPreference march31stLocal march31stOcean | priorTz := DateAndTime localTimeZone. priorPreference := DateAndTime automaticTimezone.
[DateAndTime localTimeZone: (TimeZone offset: 9 hours name: 'Early Test Countries' abbreviation: 'Test Ocean Early').
march31stLocal := Date year: 2016 month: 3 day: 31. + march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset). - march31stLocal start: (march31stLocal start offset: DateAndTime localTimeZone offset).
DateAndTime localTimeZone: (TimeZone offset: -9 hours name: 'Late Test Countries' abbreviation: 'Test Ocean Late').
march31stOcean := Date year: 2016 month: 3 day: 31. + march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).] - march31stOcean start: (march31stOcean start offset: DateAndTime localTimeZone offset).] ensure: [DateAndTime localTimeZone: priorTz. DateAndTime automaticTimezone: priorPreference].
self deny: march31stLocal = march31stOcean; assert: march31stOcean > march31stLocal.
self assert: march31stLocal makeUTC = march31stOcean makeUTC; deny: march31stOcean makeUTC > march31stLocal makeUTC; deny: march31stOcean makeUTC < march31stLocal makeUTC.!
Item was changed: ----- Method: DurationTest>>testBusyWait (in category 'tests') ----- testBusyWait | duration start elapsed | duration := Duration milliSeconds: 1. start := DateAndTime now. 1000 timesRepeat: [duration busyWait]. + elapsed := DateAndTime now - start roundTo: duration. - elapsed := DateAndTime now - start. + self assert: elapsed >= (duration * 998). + self assert: elapsed <= (duration * 1002).! - self assert: elapsed >= (duration * 1000). - self assert: elapsed <= (duration * 1000 * 2).!
Item was changed: ----- Method: YearTest>>testCurrent (in category 'Tests') ----- testCurrent self assert: Year current start = ((DateAndTime year: DateAndTime now year month: 1 + day: 1) asLocalAt: Year defaultOffset)! - day: 1) offset: Year defaultOffset)!