umgeher/erlware_commons
0
Fork 0
Code Issues Pull requests Releases Activity

Added tests and validated parse->format->parse and nparse->format->nparse

Browse source 
Conflicts:

	src/ec_date.erl
This commit is contained in:
Ben Kearns 2012-12-20 02:07:51 +00:00 • committed by Jordan Wilberding
parent 5beeb3ff1b
commit 5b23329d3a
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/ec_date.erl
View file

@ -768,13 +768,11 @@ ms_test_() ->
?_assertEqual({{2012,12,12}, {12,12,12,1234}}, parse("2012-12-12T12:12:12.1234")), ?_assertEqual({{2012,12,12}, {12,12,12,1234}}, parse("2012-12-12T12:12:12.1234")),
?_assertEqual(format("H:m:s.f \\m \\i\\s \\m\\o\\n\\t\\h",?DATEMS), ?_assertEqual(format("H:m:s.f \\m \\i\\s \\m\\o\\n\\t\\h",?DATEMS),
"17:03:17.123456 m is month"), "17:03:17.123456 m is month"),
?_assertEqual(format("Y-m-d\\TH:i:s.f",?DATEMS), ?_assertEqual(format("Y-m-d\\Th:i:s.f",?DATEMS),
"2001-03-10T17:16:17.123456"),
?_assertEqual(format("Y-m-d\\TH:i:s.f",nparse("2001-03-10T05:16:17.123456")),
"2001-03-10T05:16:17.123456"), "2001-03-10T05:16:17.123456"),
?_assertEqual(format("Y-m-d\\TH:i:s.f",nparse("2001-03-10T05:16:17.123456")), ?_assertEqual(format("Y-m-d\\Th:i:s.f",nparse("2001-03-10T05:16:17.123456")),
"2001-03-10T05:16:17.123456"), "2001-03-10T05:16:17.123456"),
?_assertEqual(format("Y-m-d\\TH:i:s.f",nparse("2001-03-10T15:16:17.123456")), ?_assertEqual(format("Y-m-d\\Th:i:s.f",nparse("2001-03-10T05:16:17.123456")),
"2001-03-10T15:16:17.123456"), "2001-03-10T05:16:17.123456"),
?_assertEqual(Now, nparse(format("Y-m-d\\TH:i:s.f", Now))) ?_assertEqual(Now, nparse(format("Y-m-d\\Th:i:s.f", Now)))
]. ].