44 lines
1.6 KiB
Erlang
44 lines
1.6 KiB
Erlang
-module(ezic_date_tests).
|
|
-include("include/ezic.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
prevnext_day_test_() ->
|
|
[
|
|
?_assertEqual({2010,11,3}, ezic_date:previous_day("Wed", {2010, 11, 5}))
|
|
, ?_assertEqual({2010,11,10}, ezic_date:next_day("Wed", {2010, 11, 5}))
|
|
|
|
, ?_assertEqual({2010,11,5}, ezic_date:previous_day("Fri", {2010, 11, 5}))
|
|
, ?_assertEqual({2010,11,5}, ezic_date:next_day("Fri", {2010, 11, 5}))
|
|
|
|
, ?_assertEqual({2010,11,5}, ezic_date:previous_day("Fri", {2010, 11, 10}))
|
|
, ?_assertEqual({2010,11,12}, ezic_date:next_day("Fri", {2010, 11, 10}))
|
|
|
|
, ?_assertError(no_previous_day, ezic_date:previous_day("Wed", {2010, 11, 2}))
|
|
, ?_assertError(no_next_day, ezic_date:next_day("Wed", {2010, 11, 25}))
|
|
].
|
|
|
|
firstlast_day_of_test_() ->
|
|
[
|
|
?_assertEqual({2010,11,24}, ezic_date:last_day_of("Wed", 2010, 11))
|
|
, ?_assertEqual({2010,11,30}, ezic_date:last_day_of("Tue", 2010, 11))
|
|
|
|
, ?_assertEqual({2010,11,14}, ezic_date:first_day_limited("Sun", {geq, 8}, 2010, 11))
|
|
, ?_assertEqual({2010,11,21}, ezic_date:first_day_limited("Sun", {leq, 25}, 2010, 11))
|
|
].
|
|
|
|
|
|
compare_datetimes_test_() ->
|
|
[
|
|
?_assertNot(ezic_date:compare_datetimes(
|
|
{{1997,3,{last, "Sun"}},{tztime,{1,0,0},u}}
|
|
, {1997,1,1} ))
|
|
].
|
|
|
|
|
|
overlap_test_() ->
|
|
[
|
|
?_assert(ezic_date:overlap({1978,only},{{{1977,1,1},#tztime{}}, {{1978,1,1},#tztime{}}}))
|
|
, ?_assert(ezic_date:overlap({1978,only},{{{1971,1,1},#tztime{}}, {{1978,1,1},#tztime{}}}))
|
|
, ?_assertNot(ezic_date:overlap({1978,only},{{{1971,1,1},#tztime{}}, {{1977,12,31},#tztime{}}}))
|
|
].
|