[squeak-dev] The Trunk: KernelTests-dtl.265.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Apr 19 01:42:11 UTC 2014
David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.265.mcz
==================== Summary ====================
Name: KernelTests-dtl.265
Author: dtl
Time: 18 April 2014, 9:40:18.546 pm
UUID: b53640c7-174e-4b68-8298-a4886b8b4098
Ancestors: KernelTests-nice.264
Add DateAndTimeTest>>testAsStringFromString to verify parsing and printing across a wide time range.
Fix DateAndTimeTest>>testReadFrom to restore its apparent original intent.
=============== Diff against KernelTests-nice.264 ===============
Item was added:
+ ----- Method: DateAndTimeTest>>testAsStringFromString (in category 'Tests') -----
+ testAsStringFromString
+ "Convert to string then back, verify same date and time. Skip years in the
+ range 0 to 99 because they are interpreted relative to 2000."
+
+ | day hour dt min mo nano offset sec dtNew s |
+ mo := 12.
+ day := 2.
+ hour := 2.
+ min := 3.
+ sec := 4.
+ nano := 5.
+ offset := 6 hours.
+ (-2000 to: -1) , (100 to: 5000) do: [:yr |
+ dt := DateAndTime
+ year: yr month: mo day: day
+ hour: hour minute: min second: sec nanoSecond: nano
+ offset: offset.
+ s := dt asString.
+ dtNew := DateAndTime fromString: s.
+ self assert: dt equals: dtNew].
+ !
Item was changed:
----- Method: DateAndTimeTest>>testReadFrom (in category 'Tests') -----
testReadFrom
+ self assert: '-1199-01-05T20:33:14.321-05:00' equals: (DateAndTime readFrom: '-1199-01-05T20:33:14.321-05:00' readStream) printString.
+ self assert: '-1199-01-05T20:33:14.321-05:00' equals: '-1199-01-05T20:33:14.321-05:00' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45.1+01:01' equals: '2002-05-16T17:20:45.1+01:01' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45.02+01:01' equals: ' 2002-05-16T17:20:45.02+01:01' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45.000000009+01:01' equals: '2002-05-16T17:20:45.000000009+01:01' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:00+00:00' equals: ' 2002-05-16T17:20' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45+00:00' equals: '2002-05-16T17:20:45' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45+01:57' equals: ' 2002-05-16T17:20:45+01:57' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45-02:34' equals: ' 2002-05-16T17:20:45-02:34' asDateAndTime printString.
+ self assert: '2002-05-16T17:20:45+00:00' equals: '2002-05-16T17:20:45+00:00' asDateAndTime printString.
+ self assert: '1997-04-26T01:02:03+01:02:3' equals: '1997-04-26T01:02:03+01:02:3' asDateAndTime printString!
- self assert: ((DateAndTime readFrom: '-1199-01-05T20:33:14.321-05:00' readStream) printString = '-1199-01-05T20:33:14.321-05:00').
-
-
- !
More information about the Squeak-dev
mailing list
|