lots of work towards flattening the records. stalled at ezic_rule:next_event/4
This commit is contained in:
14
test/ezic_zone_tests.erl
Normal file
14
test/ezic_zone_tests.erl
Normal file
@@ -0,0 +1,14 @@
|
||||
-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))
|
||||
].
|
||||
Reference in New Issue
Block a user