hg/stx-goodies-regression: changeset 1230:a26cae3351a6

author	Claus Gittinger <cg@exept.de>
	Sat, 08 Nov 2014 01:24:49 +0100
changeset 1230	a26cae3351a6
parent 1229	881b11022fea
child 1231	f07f482db8d0

class: RegressionTests::TimeAndDateTest class definition added:16 methods added checks for timestamps after 2039

--- a/RegressionTests__TimeAndDateTest.st	Sat Nov 08 00:30:45 2014 +0100
+++ b/RegressionTests__TimeAndDateTest.st	Sat Nov 08 01:24:49 2014 +0100
@@ -606,10 +606,10 @@
     self assert:(d2 - d1) days = 366.
 
     d1 := Timestamp newDay:1 month:1 year:2038.
- self halt.   d2 := Timestamp newDay:1 month:1 year:2039.   
-    self assert:d1 asDate isLeapYear.
+    d2 := Timestamp newDay:1 month:1 year:2039.   
+    self assert:d1 asDate isLeapYear not.
     self assert:d2 asDate isLeapYear not.
-    self assert:(d2 - d1) days = 366.
+    self assert:(d2 - d1) days = 365.
 
     d1 := Timestamp newDay:1 month:1 year:2540.
     d2 := Timestamp newDay:1 month:1 year:2541.