Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.198.mcz
==================== Summary ====================
Name: KernelTests-cmm.198 Author: cmm Time: 15 August 2011, 9:30:58.161 pm UUID: 64f23ad0-eb40-407d-90e6-6e45a2b5611e Ancestors: KernelTests-nice.197
- Test for #makeUTC.
=============== Diff against KernelTests-nice.197 ===============
Item was removed: - ----- Method: DateTest>>testFromDifferentTimeZones (in category 'testing') ----- - testFromDifferentTimeZones - "Equal dates should compare equal regardless of which TimeZone they are created in." - | priorTz march31stLocal march31stOcean | - self deny: DateAndTime localTimeZone offset hours = -9. - priorTz := DateAndTime localTimeZone. - march31stLocal := Date today. - DateAndTime - localTimeZone: (TimeZone - offset: -9 hours - name: 'No Countries' - abbreviation: 'Ocean'). - march31stOcean := Date today. - DateAndTime localTimeZone: priorTz. - self assert: march31stLocal = march31stOcean. - DateAndTime localTimeZone offset hours > -9 - ifTrue: [self deny: march31stOcean > march31stLocal] - ifFalse: [self deny: march31stOcean > march31stLocal] !
Item was added: + ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- + testMakeUTC + "Equal dates should compare equal regardless of which TimeZone + they are created in." + | priorTz march31stLocal march31stOcean | + "This test won't work in GMT-9, but nobody lives there." + self deny: DateAndTime localTimeZone offset hours = -9. + priorTz := DateAndTime localTimeZone. + march31stLocal := Date today. + DateAndTime + localTimeZone: (TimeZone + offset: -9 hours + name: 'No Countries' + abbreviation: 'Ocean'). + march31stOcean := Date today. + DateAndTime localTimeZone: priorTz. + self assert: march31stLocal makeUTC = march31stOcean makeUTC ; + deny: march31stOcean makeUTC > march31stLocal makeUTC ; + deny: march31stOcean makeUTC < march31stLocal makeUTC!
packages@lists.squeakfoundation.org