44 lines
1.6 KiB
Erlang
44 lines
1.6 KiB
Erlang
-module(logic_month_archive_tests).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("records.hrl").
|
|
|
|
-define(TABLES, [event, month_snapshot, booking, calendar]).
|
|
-define(CAL, <<"cal_arch_1">>).
|
|
|
|
setup() ->
|
|
eh_test_support:start_mnesia(),
|
|
eh_test_support:ensure_tables(?TABLES),
|
|
Tmp = filename:join("/tmp", "eh_arch_" ++ integer_to_list(erlang:unique_integer([positive]))),
|
|
ok = filelib:ensure_dir(filename:join(Tmp, "dummy")),
|
|
true = os:putenv("UPLOAD_DIR", Tmp),
|
|
ok.
|
|
|
|
cleanup(_) ->
|
|
eh_test_support:clear_tables(?TABLES),
|
|
eh_test_support:delete_tables(?TABLES),
|
|
eh_test_support:stop_mnesia(),
|
|
ok.
|
|
|
|
logic_month_archive_test_() ->
|
|
{foreach, fun setup/0, fun cleanup/1, [
|
|
{"closed month is not writable", fun test_assert_writable/0},
|
|
{"snapshot removes hot event and serves json", fun test_snapshot_roundtrip/0}
|
|
]}.
|
|
|
|
test_assert_writable() ->
|
|
{{Y, M, _}, _} = calendar:universal_time(),
|
|
?assertEqual(ok, logic_month_archive:assert_writable({{Y, M, 15}, {12, 0, 0}})),
|
|
?assertEqual({error, archived},
|
|
logic_month_archive:assert_writable({{2020, 1, 10}, {12, 0, 0}})).
|
|
|
|
test_snapshot_roundtrip() ->
|
|
{ok, Ev} = core_event:create(?CAL, <<"old">>, {{2020, 6, 10}, {10, 0, 0}}, 60),
|
|
ok = logic_month_archive:snapshot_month(?CAL, 2020, 6),
|
|
?assertEqual([], mnesia:dirty_read(event, Ev#event.id)),
|
|
Json = logic_month_archive:events_json_in_range(
|
|
?CAL, {{2020, 6, 1}, {0, 0, 0}}, {{2020, 6, 30}, {23, 59, 59}}),
|
|
?assertEqual(1, length(Json)),
|
|
[Map] = Json,
|
|
Id = maps:get(<<"id">>, Map, maps:get(id, Map, undefined)),
|
|
?assertEqual(Ev#event.id, Id).
|