Merge pull request #33 from tippenein/allow-timestamp-parsing

safareli · web-flow · commit 33bcdc8a5dc6 · 2017-12-07T13:05:04.000+01:00
Allow timestamp parsing
diff --git a/src/Data/Formatter/DateTime.purs b/src/Data/Formatter/DateTime.purs
@@ -129,6 +129,7 @@ formatterCommandParser = (PC.try <<< PS.string) `oneOfAs`
   , Tuple "DD" DayOfMonthTwoDigits
   , Tuple "D" DayOfMonth
   , Tuple "E" DayOfWeek
+  , Tuple "X" UnixTimestamp
   , Tuple "dddd" DayOfWeekName
   , Tuple "ddd" DayOfWeekNameShort
   , Tuple "HH" Hours24
diff --git a/test/src/DateTime.purs b/test/src/DateTime.purs
@@ -47,6 +47,7 @@ datetimeTest = describe "Data.Formatter.DateTime" do
     , { format: "hhmmssS", dateStr: "1112301", date: makeDateTime 2017 4 10 11 12 30 123 }
     , { format: "HHmmssSSS", dateStr: "134530123", date: makeDateTime 2017 4 10 13 45 30 123 }
     , { format: "HHmm", dateStr: "1345", date: makeDateTime 2017 4 10 13 45 30 123 }
+    , { format: "X", dateStr: "1499779279", date: makeDateTime 2017 7 11 13 21 19 0 }
     ]
     (\({ format, dateStr, date }) → do
       (format `FDT.formatDateTime` date) `shouldEqual` (Right dateStr)
@@ -92,6 +93,7 @@ datetimeTest = describe "Data.Formatter.DateTime" do
     , {date: "111230003", format: "hhmmssSSS"}
     , {date: "11123012", format: "hhmmssSS"}
     , {date: "1112301", format: "hhmmssS"}
+    , {date: "1499779279", format: "X"}
 
     ]
     (\({date, format}) → (FDT.unformatDateTime format date >>= FDT.formatDateTime format) `shouldEqual` (Right date))

Original file line number	Diff line number	Diff line change
`@@ -47,6 +47,7 @@ datetimeTest = describe "Data.Formatter.DateTime" do`
`47`	`47`	`, { format: "hhmmssS", dateStr: "1112301", date: makeDateTime 2017 4 10 11 12 30 123 }`
`48`	`48`	`, { format: "HHmmssSSS", dateStr: "134530123", date: makeDateTime 2017 4 10 13 45 30 123 }`
`49`	`49`	`, { format: "HHmm", dateStr: "1345", date: makeDateTime 2017 4 10 13 45 30 123 }`
	`50`	`+ , { format: "X", dateStr: "1499779279", date: makeDateTime 2017 7 11 13 21 19 0 }`
`50`	`51`	`]`
`51`	`52`	`(\({ format, dateStr, date }) → do`
`52`	`53`	(format `FDT.formatDateTime` date) `shouldEqual` (Right dateStr)
`@@ -92,6 +93,7 @@ datetimeTest = describe "Data.Formatter.DateTime" do`
`92`	`93`	`, {date: "111230003", format: "hhmmssSSS"}`
`93`	`94`	`, {date: "11123012", format: "hhmmssSS"}`
`94`	`95`	`, {date: "1112301", format: "hhmmssS"}`
	`96`	`+ , {date: "1499779279", format: "X"}`
`95`	`97`
`96`	`98`	`]`
`97`	`99`	(\({date, format}) → (FDT.unformatDateTime format date >>= FDT.formatDateTime format) `shouldEqual` (Right date))