35 lines
1.1 KiB
Erlang
35 lines
1.1 KiB
Erlang
-module(ezic_zone_tests).
|
|
-include("include/ezic.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
split_by_name_test_() ->
|
|
AZones= [A=#zone{name=a}, #zone{name=a}, #zone{name=a}],
|
|
BZones= [B=#zone{name=b}, #zone{name=b}, #zone{name=b}],
|
|
AllZones= lists:merge(AZones, BZones),
|
|
|
|
[
|
|
?_assertEqual({AZones, BZones}, ezic_zone:split_by_name(A, AllZones))
|
|
, ?_assertEqual({BZones, AZones}, ezic_zone:split_by_name(B, AllZones))
|
|
, ?_assertEqual({[], AllZones}, ezic_zone:split_by_name(#zone{name=c}, AllZones))
|
|
].
|
|
|
|
|
|
|
|
project_end_test_() ->
|
|
[
|
|
?_assertEqual({{2010,11,10},{16,20,0}},
|
|
ezic_zone:project_end(
|
|
#zone{until={{2010,11,10},#tztime{time={10,20,0}, flag=w}}, gmtoff={-7,0,0}}
|
|
, {1,0,0}))
|
|
|
|
, ?_assertEqual({{2010,11,10},{16,20,0}},
|
|
ezic_zone:project_end(
|
|
#zone{until={{2010,11,10},#tztime{time={9,20,0}, flag=s}}, gmtoff={-7,0,0}}
|
|
, {1,0,0}))
|
|
|
|
, ?_assertEqual({{2010,11,10},{16,20,0}},
|
|
ezic_zone:project_end(
|
|
#zone{until={{2010,11,10},#tztime{time={16,20,0}, flag=u}}, gmtoff={-7,0,0}}
|
|
, {1,0,0}))
|
|
].
|