<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
                                        Thanks! :-)<div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
                        <p style='color: #AAAAAA; margin-top: 10px;'>Am 08.12.2021 23:07:38 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Bernhard Pieber uploaded a new version of Chronology-Tests to project The Trunk:<br>http://source.squeak.org/trunk/Chronology-Tests-bp.28.mcz<br><br>==================== Summary ====================<br><br>Name: Chronology-Tests-bp.28<br>Author: bp<br>Time: 8 December 2021, 11:06:16.021213 pm<br>UUID: b4d5fa81-5792-4b7b-99b3-5963ddca1ace<br>Ancestors: Chronology-Tests-ct.27<br><br>add more tests for #addMonths:, #readFrom:, #fromString:<br><br>=============== Diff against Chronology-Tests-ct.27 ===============<br><br>Item was added:<br>+ ----- Method: DateTest>>assert:equals:addMonths: (in category 'testing') -----<br>+ assert: expectedDateString equals: dateString addMonths: anInteger<br>+ <br>+     self assert: expectedDateString asDate equals: (dateString asDate addMonths: anInteger)!<br><br>Item was changed:<br>  ----- Method: DateTest>>setUp (in category 'Running') -----<br>  setUp<br>  <br>+      date := '1973-06-02' asDate.<br>+         aDate := '2004-01-23' asDate!<br>-        date := self dateClass newDay: 153 year: 1973.  "2 June 1973"<br>- <br>-  aDate := Date readFrom: '01-23-2004' readStream.<br>-     aTime := Time readFrom: '12:34:56 pm' readStream!<br><br>Item was changed:<br>  ----- Method: DateTest>>testAddMonths (in category 'testing') -----<br>  testAddMonths<br>+ <br>+     #(('2004-01-23' 0 '2004-01-23')<br>+              ('2004-01-23' 1 '2004-02-23')<br>+                ('2004-01-23' 2 '2004-03-23')<br>+                ('2004-01-23' 3 '2004-04-23')<br>+                ('2004-01-23' 12 '2005-01-23')<br>+               ('2017-05-31' 1 '2017-06-30')<br>+                ('2000-02-29' 12 '2001-02-28'))<br>+                      do: [:each | self assert: each third equals: each first addMonths: each second]!<br>-     self assert: (aDate addMonths: 0) yyyymmdd =  '2004-01-23'.     <br>-     self assert: (aDate addMonths: 1) yyyymmdd =  '2004-02-23'.<br>-  self assert: (aDate addMonths: 2) yyyymmdd =  '2004-03-23'.<br>-  self assert: (aDate addMonths: 3) yyyymmdd =  '2004-04-23'.<br>-  self assert: (aDate addMonths: 12) yyyymmdd =  '2005-01-23'.<br>-         <br>-     self assert: ((Date readFrom: '05-31-2017' readStream) addMonths: 1) yyyymmdd =  '2017-06-30'.<br>-       self assert: ((Date readFrom: '02-29-2000' readStream) addMonths: 12) yyyymmdd =  '2001-02-28'!<br><br>Item was added:<br>+ ----- Method: DateTest>>testAddMonthsEndOfMonth (in category 'testing') -----<br>+ testAddMonthsEndOfMonth<br>+ <br>+     #(('2021-12-30' 1 '2022-01-30')<br>+              ('2022-01-30' 1 '2022-02-28')<br>+                ('2022-01-30' 2 '2022-03-30')<br>+                ('2022-01-30' 3 '2022-04-30')<br>+                ('2021-12-31' 1 '2022-01-31')<br>+                ('2022-01-31' 1 '2022-02-28')<br>+                ('2022-01-31' 2 '2022-03-31')<br>+                ('2022-01-31' 3 '2022-04-30'))<br>+                       do: [:each | self assert: each third equals: each first addMonths: each second]!<br><br>Item was added:<br>+ ----- Method: DateTest>>testAddMonthsEndOfMonthLeapYear (in category 'testing') -----<br>+ testAddMonthsEndOfMonthLeapYear<br>+ <br>+    #(('2023-12-30' 1 '2024-01-30')<br>+              ('2024-01-30' 1 '2024-02-29')<br>+                ('2024-01-30' 2 '2024-03-30')<br>+                ('2024-01-30' 3 '2024-04-30')<br>+                ('2023-12-31' 1 '2024-01-31')<br>+                ('2024-01-31' 1 '2024-02-29')<br>+                ('2024-01-31' 2 '2024-03-31')<br>+                ('2024-01-31' 3 '2024-04-30'))<br>+                       do: [:each | self assert: each third equals: each first addMonths: each second]!<br><br>Item was removed:<br>- ----- Method: DateTest>>testConvertingFromIso8601 (in category 'Tests') -----<br>- testConvertingFromIso8601<br>- <br>-        self <br>-                assert: '1973-06-02' asDate = date;<br>-          assert: '1973-JUN-02' asDate = date;<br>-                 assert: '1973-June-02' asDate = date!<br><br>Item was changed:<br>  ----- Method: DateTest>>testEqual (in category 'testing') -----<br>  testEqual<br>+     self assert: aDate = (Date readFrom: 'January 23, 2004' readStream)!<br>-         self assert: aDate = (Date readFrom: (ReadStream on: 'January 23, 2004')).!<br><br>Item was added:<br>+ ----- Method: DateTest>>testFromString (in category 'Tests') -----<br>+ testFromString<br>+         #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'<br>+                 'June 2, 1973' '6/2/73' '2JUN73'<br>+             '1973-06-02' '1973-JUN-02' '1973-June-02')<br>+                   do: [:each | self assert: date equals: (self dateClass fromString: each)].<br>+ <br>+       self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').<br>+     self assert: '1982-12-04' asDate equals: (self dateClass fromString: '12.4.82').<br>+ <br>+         self assert: '100-04-15' asDate equals: (self dateClass fromString: '15.4.100').<br>+     self assert: '0100-04-15' asDate equals: (self dateClass fromString: '15.4.100').<br>+    self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').<br>+     self assert: '1969-04-15' asDate equals: (self dateClass fromString: '15.4.69').<br>+     self assert: '2068-04-15' asDate equals: (self dateClass fromString: '15.4.68')!<br><br>Item was changed:<br>  ----- Method: DateTest>>testReadFrom (in category 'Tests') -----<br>  testReadFrom<br>+      #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'<br>+                 'June 2, 1973' '6/2/73' '2JUN73'<br>+             '1973-06-02' '1973-JUN-02' '1973-June-02')<br>+                   do: [:each | self assert: date equals: (self dateClass readFrom: each readStream)].<br>-  | s1 s2 s3 s4 s5 | <br>-  s1 := '2 June 1973'.<br>-         s2 := '2-JUN-73'.<br>-    s3 := 'June 2, 1973'.<br>-        s4 := '6/2/73'.<br>-      s5 := '2JUN73'.<br>  <br>+  self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).<br>+    self assert: '1982-12-04' asDate equals: (self dateClass readFrom: '12.4.82' readStream).<br>+    <br>+     self assert: '100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).<br>+    self assert: '0100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).<br>+   self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).<br>+    self assert: '1969-04-15' asDate equals: (self dateClass readFrom: '15.4.69' readStream).<br>+    self assert: '2068-04-15' asDate equals: (self dateClass readFrom: '15.4.68' readStream)!<br>-    self    <br>-             assert: date = (self dateClass readFrom: s1 readStream);<br>-             assert: date = (self dateClass readFrom: s2 readStream);<br>-             assert: date = (self dateClass readFrom: s3 readStream);<br>-             assert: date = (self dateClass readFrom: s4 readStream);<br>-             assert: date = (self dateClass readFrom: s5 readStream).!<br><br><br></div></blockquote>
                                        </div></body>