forks/ezic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Costa Rica's flatzones aren't processed after 1992. Gotta check her out.

Browse Source
This commit is contained in:
aj
2010-11-13 22:54:44 -08:00
parent 3f438e66e0
commit d664384c60
9 changed files with 133 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
test/ezic_date_tests.erl
View File

@@ -55,10 +55,10 @@ for_rule_test_() ->
, ?_assertEqual({
{ {{1952,1,1},{0,0,0}}, {{1951,12,31},{23,0,0}} }, % {oldDst, newDst}
{{1951,12,31},{23,0,0}},
{{1951,12,31},{23,0,0}} },
{{1951,12,31},{22,0,0}} },
ezic_date:for_rule(
#rule{from=1952, to=only, in=1, on=1, at=#tztime{}, save={0,0,0}},
{1,0,0}, {1,0,0}, {0,0,0}, 1951))
{1,0,0}, {1,0,0}, {0,0,0}, 1952))
].
@@ -96,3 +96,21 @@ all_times_test_() ->
{{Date,{9,2,0}}, {Date,{8,2,0}}, {Date,{16,2,0}}}
, ezic_date:all_times({Date,UTC}, {-8,0,0}, {1,0,0}))
].
normalize_test_() ->
TZT= #tztime{time={1,2,3}, flag=s},
[
?_assertEqual({{2010,1,1}, #tztime{}}, ezic_date:normalize(2010))
, ?_assertEqual({{2010,2,3}, #tztime{}}, ezic_date:normalize({2010,2,3}))
, ?_assertEqual({{2010,11,28}, #tztime{}}, ezic_date:normalize({2010,11,{last, "Sun"}}))
, ?_assertEqual({{2010,11,16}, #tztime{}}, ezic_date:normalize({2010,11,#tzon{day="Tue", filter={geq, 10}}}))
, ?_assertError(function_clause, ezic_date:normalize({2010, #tztime{}}))
, ?_assertEqual({{2010,2,3}, TZT}, ezic_date:normalize({{2010,2,3}, TZT}))
, ?_assertEqual({{2010,11,28}, TZT}, ezic_date:normalize({{2010,11,{last, "Sun"}}, TZT}))
, ?_assertEqual({{2010,11,16}, TZT}, ezic_date:normalize({{2010,11,#tzon{day="Tue", filter={geq, 10}}}, TZT}))
].

13
test/ezic_rule_tests.erl
View File

@@ -7,21 +7,21 @@ project_next_test_() ->
[
% simple UTC example
?_assertEqual({{2010,11,10},{16,20,0}},
?_assertEqual({2010, {{2010,11,10},{16,20,0}}},
ezic_rule:project_next(
#rule{from=1984, to=2032, in=11, on=10, at=#tztime{time={16,20,0}, flag=u}}
, {-5,0,0}, {-1,0,0}, {{2010,11,10},{0,0,0}}
))
% skip a year UTC example
, ?_assertEqual({{2011,11,10},{16,20,0}},
, ?_assertEqual({2011, {{2011,11,10},{16,20,0}}},
ezic_rule:project_next(
#rule{from=1984, to=2032, in=11, on=10, at=#tztime{time={16,20,0}, flag=u}}
, {-5,0,0}, {-1,0,0}, {{2010,11,10},{16,21,0}}
))
% skip 3 years UTC example
, ?_assertEqual({{2013,11,10},{16,20,0}},
, ?_assertEqual({2013, {{2013,11,10},{16,20,0}}},
ezic_rule:project_next(
#rule{from=1984, to=2032, in=11, on=10, at=#tztime{time={16,20,0}, flag=u}}
, {-5,0,0}, {-1,0,0}, {{2012,11,11},{16,20,0}}
@@ -34,4 +34,11 @@ project_next_test_() ->
, {-5,0,0}, {-1,0,0}, {{2012,11,11},{16,20,0}}
))
% wacky UTC/DST mismatch example for Africa/Tripoli
, ?_assertEqual({1952, {{1951,12,31},{22,0,0}}},
ezic_rule:project_next(
#rule{from=1952, to=only, in=1, on=1, at=#tztime{}, save={0,0,0}}
, {1,0,0}, {1,0,0}, {{1951,10,14},{3,0,0}}
))
].