From b550391a4e34cacba4111924ea18d500e80da7f4 Mon Sep 17 00:00:00 2001 From: Jesse Gumm Date: Wed, 13 Apr 2016 19:38:04 -0500 Subject: [PATCH] Add tests for relative parser --- src/qdate.erl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/qdate.erl b/src/qdate.erl index 79c12c1..d273cf9 100644 --- a/src/qdate.erl +++ b/src/qdate.erl @@ -1035,7 +1035,11 @@ tz_tests(_) -> ?_assertEqual(ok, set_timezone("GMT")), ?_assertEqual({{1970, 1, 1}, {1, 0, 0}}, to_date("CET", "1970-01-01T00:00:00Z")), ?_assertEqual(ok, set_timezone("UTC")), - ?_assertEqual(1521945120, to_unixtime("2018-3-25T2:32:00")) + ?_assertEqual(1521945120, to_unixtime("2018-3-25T2:32:00")), + ?_assertEqual(true, between("-1 seconds", os:timestamp(), "+1 seconds")), + ?_assertEqual(true, between("60 hours ago", unixtime(), "in 15 days")), + ?_assertEqual(false, between("+1 seconds", qdate:to_string("n/j/Y g:ia"), "+2 seconds")), + ?_assertEqual(false, between("5 seconds ago","1 second ago")) ]}. @@ -1117,6 +1121,7 @@ start_test() -> set_timezone(?USER_KEY,?USER_TZ), register_parser(compressed,fun compressed_parser/1), register_parser(microsoft_date,fun microsoft_parser/1), + register_parser(parse_relative, fun parse_relative/1), register_format(shortdate,"n/j/Y"), register_format(longdate,"n/j/Y g:ia").