add failing "24 hour and more then 0 time component" cases

Author: safareli

test/src/DateTime.purs

@@ -51,9 +51,15 @@ datetimeTest = describe "Data.Formatter.DateTime" do
     )
 
   describe "hour 24" do
+    it "24 hour and more then 0 time component" $ do
+      let err = (Left "When hour is 24, other time component must be 0@1:24")
+      shouldEqual (FDT.unformatDateTime "YYYY-DD-MM HH:mm:ss:SSS" "0000-01-01 24:00:00:001") err
+      shouldEqual (FDT.unformatDateTime "YYYY-DD-MM HH:mm:ss:SSS" "0000-01-01 24:00:01:000") err
+      shouldEqual (FDT.unformatDateTime "YYYY-DD-MM HH:mm:ss:SSS" "0000-01-01 24:01:00:000") err
+
     it "+1" $ shouldEqual
-      (FDT.unformatDateTime "YYYY-DD-MM HH:mm:ss" "0000-01-01 24:59:59" )
-      (Right $ makeDateTime 0 1 2 0  59 59 0 )
+      (FDT.unformatDateTime "YYYY-DD-MM HH:mm:ss:SSS" "0000-01-01 24:00:00:000")
+      (Right $ makeDateTime 0 1 2 0  0 0 0 )
 
   describe "hour {0,12} {am,pm}" do
     let format = "hh a"