test(api_metrics): test `node_metrics` without aggergate

This commit is contained in:
JimMoen 2022-02-23 18:34:27 +08:00
parent 806cf3719b
commit cf61349aef
1 changed files with 31 additions and 8 deletions

View File

@ -31,13 +31,36 @@ end_per_suite(_) ->
emqx_mgmt_api_test_util:end_suite().
t_metrics_api(_) ->
MetricsPath = emqx_mgmt_api_test_util:api_path(["metrics?aggregate=true"]),
SystemMetrics = emqx_mgmt:get_metrics(),
{ok, MetricsResponse} = emqx_mgmt_api_test_util:request_api(get, MetricsPath),
Metrics = emqx_json:decode(MetricsResponse, [return_maps]),
?assertEqual(erlang:length(maps:keys(SystemMetrics)), erlang:length(maps:keys(Metrics))),
{ok, MetricsResponse} = request_helper("metrics?aggregate=true"),
MetricsFromAPI = emqx_json:decode(MetricsResponse, [return_maps]),
AggregateMetrics = emqx_mgmt:get_metrics(),
match_helper(AggregateMetrics, MetricsFromAPI).
t_single_node_metrics_api(_) ->
{ok, MetricsResponse} = request_helper("metrics"),
[MetricsFromAPI] = emqx_json:decode(MetricsResponse, [return_maps]),
LocalNodeMetrics = maps:from_list(
emqx_mgmt:get_metrics(node()) ++ [{node, to_bin(node())}]),
match_helper(LocalNodeMetrics, MetricsFromAPI).
match_helper(SystemMetrics, MetricsFromAPI) ->
length_equal(SystemMetrics, MetricsFromAPI),
Fun =
fun(Key) ->
?assertEqual(maps:get(Key, SystemMetrics), maps:get(atom_to_binary(Key, utf8), Metrics))
fun (Key, {SysMetrics, APIMetrics}) ->
Value = maps:get(Key, SysMetrics),
?assertEqual(Value, maps:get(to_bin(Key), APIMetrics)),
{Value, {SysMetrics, APIMetrics}}
end,
lists:foreach(Fun, maps:keys(SystemMetrics)).
lists:mapfoldl(Fun, {SystemMetrics, MetricsFromAPI}, maps:keys(SystemMetrics)).
length_equal(SystemMetrics, MetricsFromAPI) ->
?assertEqual(erlang:length(maps:keys(SystemMetrics)), erlang:length(maps:keys(MetricsFromAPI))).
request_helper(Path) ->
MetricsPath = emqx_mgmt_api_test_util:api_path([Path]),
emqx_mgmt_api_test_util:request_api(get, MetricsPath).
to_bin(A) when is_atom(A) -> atom_to_binary(A, utf8);
to_bin(L) when is_list(L) -> list_to_binary(L);
to_bin(I) when is_integer(I) -> integer_to_binary(I);
to_bin(B) when is_binary(B) -> B.