a7b0adcbce
add_offset was calculating DST differences wrong. It assumed to lose an hour, DST would be {-1,0,0}, in fact, DST went from {1,0,0} to {0,0,0}. add_offset now uses their differences (hence requires both as arguments)
normalize/2 was added to be able to set an arbitrary flag on a plain (i.e. native erlang datetime tuple) date. This is complicated by the fact that atoms "minimum", "max", etc. are still valid and need to fall through the normalization unaltered (for now).
89 lines
3.1 KiB
Erlang
89 lines
3.1 KiB
Erlang
-module(ezic_date_tests).
|
|
-include("include/ezic.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
|
|
for_rule_utc_dst_test_() ->
|
|
WRule= #rule{in=11, on=11, at=#tztime{time={0,0,0}}, save={0,0,0}},
|
|
SRule= #rule{in=11, on=11, at=#tztime{time={0,0,0}, flag=s}, save={0,0,0}},
|
|
URule= #rule{in=11, on=11, at=#tztime{time={0,0,0}, flag=u}, save={0,0,0}},
|
|
DST= {1,0,0},
|
|
|
|
%%% given a DST savings of 1 in a -7 zone, and given rules in each of the relative timezones:
|
|
%%% - wall time should respect the given DST and offset
|
|
%%% - std time should respect the offset, but not DST
|
|
%%% - utc should respect neither
|
|
[
|
|
%% same "time" with different relative contexts should return different UTC results
|
|
?_assertEqual({{2010,11,11}, {6,0,0}}, ezic_date:for_rule_utc(WRule, {-7,0,0}, DST, 2010))
|
|
, ?_assertEqual({{2010,11,11}, {7,0,0}}, ezic_date:for_rule_utc(SRule, {-7,0,0}, DST, 2010))
|
|
, ?_assertEqual({{2010,11,11}, {0,0,0}}, ezic_date:for_rule_utc(URule, {-7,0,0}, DST, 2010))
|
|
|
|
%% some absolute time in all contexts should return the same UTC results
|
|
, ?_assertEqual({{2010,11,11}, {0,0,0}},
|
|
ezic_date:for_rule_utc(WRule#rule{on=10, at=#tztime{flag=w, time={18,0,0}}}, {-7,0,0}, DST, 2010))
|
|
, ?_assertEqual({{2010,11,11}, {0,0,0}},
|
|
ezic_date:for_rule_utc(SRule#rule{on=10, at=#tztime{flag=s, time={17,0,0}}}, {-7,0,0}, DST, 2010))
|
|
, ?_assertEqual({{2010,11,11}, {0,0,0}},
|
|
ezic_date:for_rule_utc(URule, {-7,0,0}, DST, 2010))
|
|
].
|
|
|
|
|
|
|
|
for_rule_test_() ->
|
|
IrkutskRule1= #rule{from=1981, to=1984, in=4, on=1, at=#tztime{}, save={1,0,0}},
|
|
IrkutskRule2= #rule{from=1981, to=1984, in=10, on=1, at=#tztime{}, save={0,0,0}},
|
|
|
|
[
|
|
%% Asia/Irkutsk
|
|
?_assertEqual({
|
|
{ {{1981,4,1},{0,0,0}}, {{1981,4,1},{1,0,0}} }, % {oldDst, newDst}
|
|
{{1981,4,1},{0,0,0}},
|
|
{{1981,3,31},{16,0,0}}
|
|
},
|
|
ezic_date:for_rule(IrkutskRule1, {8,0,0}, {0,0,0}, {1,0,0}, 1981))
|
|
|
|
%% Another Asia/Irkutsk. ezic_date:add_offset repaired.
|
|
, ?_assertEqual({
|
|
{ {{1981,10,1},{0,0,0}}, {{1981,9,30},{23,0,0}} }, % {oldDst, newDst}
|
|
{{1981,9,30},{23,0,0}},
|
|
{{1981,9,30},{15,0,0}}
|
|
},
|
|
ezic_date:for_rule(IrkutskRule2, {8,0,0}, {1,0,0}, {0,0,0}, 1981))
|
|
].
|
|
|
|
|
|
|
|
add_seconds_test_() ->
|
|
[
|
|
?_assertEqual({{2010,11,7},{9,38,01}}, ezic_date:add_seconds({{2010,11,7},{9,38,00}}, 1))
|
|
, ?_assertEqual({{2010,11,7},{9,38,00}}, ezic_date:add_seconds({{2010,11,7},{9,37,59}}, 1))
|
|
|
|
, ?_assertEqual({{2010,11,7},{9,37,59}}, ezic_date:add_seconds({{2010,11,7},{9,38,00}}, -1))
|
|
, ?_assertError(baddate, ezic_date:add_seconds({{2010,11,nope},{9,38,00}}, -1))
|
|
, ?_assertError(baddate, ezic_date:add_seconds({2010,11,nope}, -1))
|
|
].
|
|
|
|
|
|
|
|
|
|
compare_test_() ->
|
|
[
|
|
?_assert(ezic_date:compare({2011,12,12}, current))
|
|
, ?_assertNot(ezic_date:compare(current, {2099,12,12})) % is this the right behavior?
|
|
].
|
|
|
|
|
|
|
|
|
|
all_times_test_() ->
|
|
|
|
Date={2010,11,12},
|
|
UTC=#tztime{time={16,2,0}, flag=u},
|
|
|
|
[
|
|
?_assertEqual(
|
|
{{Date,{9,2,0}}, {Date,{8,2,0}}, {Date,{16,2,0}}}
|
|
, ezic_date:all_times({Date,UTC}, {-8,0,0}, {1,0,0}))
|
|
].
|