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).!