Thanks! :-)
Am 08.12.2021 23:07:38 schrieb commits at source.squeak.org <commits at source.squeak.org>:
Bernhard Pieber uploaded a new version of Chronology-Tests to project The Trunk:
http://source.squeak.org/trunk/Chronology-Tests-bp.28.mcz

==================== Summary ====================

Name: Chronology-Tests-bp.28
Author: bp
Time: 8 December 2021, 11:06:16.021213 pm
UUID: b4d5fa81-5792-4b7b-99b3-5963ddca1ace
Ancestors: Chronology-Tests-ct.27

add more tests for #addMonths:, #readFrom:, #fromString:

=============== Diff against Chronology-Tests-ct.27 ===============

Item was added:
+ ----- Method: DateTest>>assert:equals:addMonths: (in category 'testing') -----
+ assert: expectedDateString equals: dateString addMonths: anInteger
+
+ self assert: expectedDateString asDate equals: (dateString asDate addMonths: anInteger)!

Item was changed:
----- Method: DateTest>>setUp (in category 'Running') -----
setUp

+ date := '1973-06-02' asDate.
+ aDate := '2004-01-23' asDate!
- date := self dateClass newDay: 153 year: 1973. "2 June 1973"
-
- aDate := Date readFrom: '01-23-2004' readStream.
- aTime := Time readFrom: '12:34:56 pm' readStream!

Item was changed:
----- Method: DateTest>>testAddMonths (in category 'testing') -----
testAddMonths
+
+ #(('2004-01-23' 0 '2004-01-23')
+ ('2004-01-23' 1 '2004-02-23')
+ ('2004-01-23' 2 '2004-03-23')
+ ('2004-01-23' 3 '2004-04-23')
+ ('2004-01-23' 12 '2005-01-23')
+ ('2017-05-31' 1 '2017-06-30')
+ ('2000-02-29' 12 '2001-02-28'))
+ do: [:each | self assert: each third equals: each first addMonths: each second]!
- self assert: (aDate addMonths: 0) yyyymmdd = '2004-01-23'.
- self assert: (aDate addMonths: 1) yyyymmdd = '2004-02-23'.
- self assert: (aDate addMonths: 2) yyyymmdd = '2004-03-23'.
- self assert: (aDate addMonths: 3) yyyymmdd = '2004-04-23'.
- self assert: (aDate addMonths: 12) yyyymmdd = '2005-01-23'.
-
- self assert: ((Date readFrom: '05-31-2017' readStream) addMonths: 1) yyyymmdd = '2017-06-30'.
- self assert: ((Date readFrom: '02-29-2000' readStream) addMonths: 12) yyyymmdd = '2001-02-28'!

Item was added:
+ ----- Method: DateTest>>testAddMonthsEndOfMonth (in category 'testing') -----
+ testAddMonthsEndOfMonth
+
+ #(('2021-12-30' 1 '2022-01-30')
+ ('2022-01-30' 1 '2022-02-28')
+ ('2022-01-30' 2 '2022-03-30')
+ ('2022-01-30' 3 '2022-04-30')
+ ('2021-12-31' 1 '2022-01-31')
+ ('2022-01-31' 1 '2022-02-28')
+ ('2022-01-31' 2 '2022-03-31')
+ ('2022-01-31' 3 '2022-04-30'))
+ do: [:each | self assert: each third equals: each first addMonths: each second]!

Item was added:
+ ----- Method: DateTest>>testAddMonthsEndOfMonthLeapYear (in category 'testing') -----
+ testAddMonthsEndOfMonthLeapYear
+
+ #(('2023-12-30' 1 '2024-01-30')
+ ('2024-01-30' 1 '2024-02-29')
+ ('2024-01-30' 2 '2024-03-30')
+ ('2024-01-30' 3 '2024-04-30')
+ ('2023-12-31' 1 '2024-01-31')
+ ('2024-01-31' 1 '2024-02-29')
+ ('2024-01-31' 2 '2024-03-31')
+ ('2024-01-31' 3 '2024-04-30'))
+ do: [:each | self assert: each third equals: each first addMonths: each second]!

Item was removed:
- ----- Method: DateTest>>testConvertingFromIso8601 (in category 'Tests') -----
- testConvertingFromIso8601
-
- self
- assert: '1973-06-02' asDate = date;
- assert: '1973-JUN-02' asDate = date;
- assert: '1973-June-02' asDate = date!

Item was changed:
----- Method: DateTest>>testEqual (in category 'testing') -----
testEqual
+ self assert: aDate = (Date readFrom: 'January 23, 2004' readStream)!
- self assert: aDate = (Date readFrom: (ReadStream on: 'January 23, 2004')).!

Item was added:
+ ----- Method: DateTest>>testFromString (in category 'Tests') -----
+ testFromString
+ #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'
+ 'June 2, 1973' '6/2/73' '2JUN73'
+ '1973-06-02' '1973-JUN-02' '1973-June-02')
+ do: [:each | self assert: date equals: (self dateClass fromString: each)].
+
+ self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').
+ self assert: '1982-12-04' asDate equals: (self dateClass fromString: '12.4.82').
+
+ self assert: '100-04-15' asDate equals: (self dateClass fromString: '15.4.100').
+ self assert: '0100-04-15' asDate equals: (self dateClass fromString: '15.4.100').
+ self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').
+ self assert: '1969-04-15' asDate equals: (self dateClass fromString: '15.4.69').
+ self assert: '2068-04-15' asDate equals: (self dateClass fromString: '15.4.68')!

Item was changed:
----- Method: DateTest>>testReadFrom (in category 'Tests') -----
testReadFrom
+ #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'
+ 'June 2, 1973' '6/2/73' '2JUN73'
+ '1973-06-02' '1973-JUN-02' '1973-June-02')
+ do: [:each | self assert: date equals: (self dateClass readFrom: each readStream)].
- | s1 s2 s3 s4 s5 |
- s1 := '2 June 1973'.
- s2 := '2-JUN-73'.
- s3 := 'June 2, 1973'.
- s4 := '6/2/73'.
- s5 := '2JUN73'.

+ self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).
+ self assert: '1982-12-04' asDate equals: (self dateClass readFrom: '12.4.82' readStream).
+
+ self assert: '100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).
+ self assert: '0100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).
+ self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).
+ self assert: '1969-04-15' asDate equals: (self dateClass readFrom: '15.4.69' readStream).
+ self assert: '2068-04-15' asDate equals: (self dateClass readFrom: '15.4.68' readStream)!
- self
- assert: date = (self dateClass readFrom: s1 readStream);
- assert: date = (self dateClass readFrom: s2 readStream);
- assert: date = (self dateClass readFrom: s3 readStream);
- assert: date = (self dateClass readFrom: s4 readStream);
- assert: date = (self dateClass readFrom: s5 readStream).!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211209/f6cb7b73/attachment.html>