Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: RegressionTests::TimeAndDateTest
authorClaus Gittinger <cg@exept.de>
Fri, 07 Nov 2014 00:03:55 +0100
changeset 1225 67d011bbcad5
parent 1224 85b0ce90c09b
child 1226 b5123dd5c3da
class: RegressionTests::TimeAndDateTest class definition added:15 methods
RegressionTests__TimeAndDateTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__TimeAndDateTest.st	Thu Nov 06 17:11:30 2014 +0100
+++ b/RegressionTests__TimeAndDateTest.st	Fri Nov 07 00:03:55 2014 +0100
@@ -438,15 +438,19 @@
 test_12_dateQueries
     |d1 d2 d3|
 
-    d1 := Date newDay:1 month:1 year:1940.
-    d2 := Date newDay:1 month:1 year:1941.   
+    d1 := Date newDay:1 month:2 year:1940.    
+    d2 := Date newDay:1 month:2 year:1941.   
     self assert:(d2 - d1) = 366.
 
-    d1 := Date newDay:1 month:1 year:1840.
-    d2 := Date newDay:1 month:1 year:1841.   
+    d1 := Date newDay:1 month:2 year:1840.
+    d2 := Date newDay:1 month:2 year:1841.       
     self assert:(d2 - d1) = 366.
+    self assert:(d1 addDays:366) = d2.
 
-    self assert:(d1 addDays:366) = d2.
+    Date leapYear:1540.    
+    d1 := Date newDay:1 month:2 year:1540.  
+    d2 := Date newDay:1 month:2 year:1541.   
+    self assert:(d2 - d1) = 366.
 
     d1 := Date newDay:1 year:1901.
     self assert:(d1 day = 1).
@@ -502,6 +506,12 @@
 
     self assert:(d1 addDays:366) = d2.
 
+    d1 := UtcTimestamp newDay:1 month:1 year:1540.
+    d2 := UtcTimestamp newDay:1 month:1 year:1541.   
+    self assert:d1 asDate isLeapYear.
+    self assert:d2 asDate isLeapYear not.
+    self assert:(d2 - d1) days = 366.
+
     "/ local time vs. utc time
     l := Timestamp newDay:1 month:1 year:1940.
     u := UtcTimestamp newDay:1 month:1 year:1940.
hg/stx-goodies-regression