./ct_report/coverage/amp_resolver.COVER.html

1 -module(amp_resolver).
2 %% @doc This module is responsible for checking whether particular AMP semantics
3 %% apply for a given message.
4
5 -export([check_condition/3,
6 verify_support/3
7 ]).
8
9 -include("amp.hrl").
10 -include("mongoose.hrl").
11 -include("jlib.hrl").
12
13 -spec verify_support(Acc, Params, Extra) -> {ok, Acc} when
14 Acc :: [amp_rule_support()],
15 Params :: #{rules := amp_rules()},
16 Extra :: map().
17 verify_support(HookAcc, #{rules := Rules}, _) ->
18
:-(
{ok, HookAcc ++ [ verify_rule_support(Rule) || Rule <- Rules ]}.
19
20 -spec verify_rule_support(amp_rule()) -> amp_rule_support().
21 verify_rule_support(#amp_rule{action = alert} = Rule) ->
22
:-(
{error, 'unsupported-actions', Rule};
23 verify_rule_support(#amp_rule{condition = 'expire-at'} = Rule) ->
24
:-(
{error, 'unsupported-conditions', Rule};
25 verify_rule_support(Rule) ->
26
:-(
{supported, Rule}.
27
28 -spec check_condition(Acc, Params, Extra) -> {ok, Acc} when
29 Acc :: amp_match_result(),
30 Params :: #{strategy := amp_strategy(), rule := amp_rule()},
31 Extra :: map().
32 check_condition(HookAcc, #{strategy := Strategy, rule := Rule}, _) ->
33
:-(
NewAcc = case HookAcc of
34
:-(
no_match -> resolve(Strategy, Rule);
35
:-(
MatchResult -> MatchResult
36 end,
37
:-(
{ok, NewAcc}.
38
39 -spec resolve(amp_strategy(), amp_rule()) -> amp_match_result().
40
:-(
resolve(#amp_strategy{deliver = [Value]}, #amp_rule{condition = deliver, value = Value}) -> match;
41 resolve(#amp_strategy{deliver = Values}, #amp_rule{condition = deliver, value = Value, action = notify})
42 when is_list(Values) ->
43
:-(
case lists:member(Value, Values) of
44
:-(
true -> undecided;
45
:-(
false -> no_match
46 end;
47 resolve(#amp_strategy{deliver = [Value | _]}, #amp_rule{condition = deliver, value = Value, action = Action})
48
:-(
when Action == drop orelse Action == error -> match;
49 resolve(#amp_strategy{'match-resource' = Value}, #amp_rule{condition = 'match-resource', value = any})
50
:-(
when Value /= undefined -> match;
51 resolve(#amp_strategy{'match-resource' = Value}, #amp_rule{condition = 'match-resource', value = Value}) ->
52
:-(
match;
53
:-(
resolve(#amp_strategy{}, #amp_rule{}) -> no_match.
Line Hits Source