92 lines
3.4 KiB
Erlang
92 lines
3.4 KiB
Erlang
%%--------------------------------------------------------------------
|
|
%% Copyright (c) 2020-2021 EMQ Technologies Co., Ltd. All Rights Reserved.
|
|
%%
|
|
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
%% you may not use this file except in compliance with the License.
|
|
%% You may obtain a copy of the License at
|
|
%%
|
|
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
%%
|
|
%% Unless required by applicable law or agreed to in writing, software
|
|
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
%% See the License for the specific language governing permissions and
|
|
%% limitations under the License.
|
|
%%--------------------------------------------------------------------
|
|
|
|
-module(emqx_telemetry_SUITE).
|
|
|
|
-compile(export_all).
|
|
-compile(nowarn_export_all).
|
|
|
|
-include_lib("common_test/include/ct.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include_lib("snabbkaffe/include/snabbkaffe.hrl").
|
|
|
|
-import(proplists, [get_value/2]).
|
|
|
|
all() -> emqx_ct:all(?MODULE).
|
|
|
|
init_per_testcase(_, Config) ->
|
|
emqx_ct_helpers:boot_modules(all),
|
|
emqx_ct_helpers:start_apps([emqx_modules, emqx_telemetry]),
|
|
Config.
|
|
|
|
end_per_testcase(_, _Config) ->
|
|
emqx_ct_helpers:stop_apps([emqx_telemetry, emqx_modules]).
|
|
|
|
t_uuid(_) ->
|
|
UUID = emqx_telemetry:generate_uuid(),
|
|
Parts = binary:split(UUID, <<"-">>, [global, trim]),
|
|
?assertEqual(5, length(Parts)),
|
|
{ok, UUID2} = emqx_telemetry:get_uuid(),
|
|
emqx_telemetry:stop(),
|
|
emqx_telemetry:start_link([{enabled, true},
|
|
{url, "https://telemetry.emqx.io/api/telemetry"},
|
|
{report_interval, 7 * 24 * 60 * 60}]),
|
|
{ok, UUID3} = emqx_telemetry:get_uuid(),
|
|
?assertEqual(UUID2, UUID3).
|
|
|
|
t_official_version(_) ->
|
|
true = emqx_telemetry:official_version("0.0.0"),
|
|
true = emqx_telemetry:official_version("1.1.1"),
|
|
true = emqx_telemetry:official_version("10.10.10"),
|
|
false = emqx_telemetry:official_version("0.0.0.0"),
|
|
false = emqx_telemetry:official_version("1.1.a"),
|
|
true = emqx_telemetry:official_version("0.0-alpha.1"),
|
|
true = emqx_telemetry:official_version("1.1-alpha.1"),
|
|
true = emqx_telemetry:official_version("10.10-alpha.10"),
|
|
false = emqx_telemetry:official_version("1.1-alpha.0"),
|
|
true = emqx_telemetry:official_version("1.1-beta.1"),
|
|
true = emqx_telemetry:official_version("1.1-rc.1"),
|
|
false = emqx_telemetry:official_version("1.1-alpha.a").
|
|
|
|
t_get_telemetry(_) ->
|
|
{ok, TelemetryData} = emqx_telemetry:get_telemetry(),
|
|
OTPVersion = bin(erlang:system_info(otp_release)),
|
|
?assertEqual(OTPVersion, get_value(otp_version, TelemetryData)),
|
|
{ok, UUID} = emqx_telemetry:get_uuid(),
|
|
?assertEqual(UUID, get_value(uuid, TelemetryData)),
|
|
?assertEqual(0, get_value(num_clients, TelemetryData)).
|
|
|
|
t_enable(_) ->
|
|
ok = emqx_telemetry:enable(),
|
|
?assertEqual(true, emqx_telemetry:is_enabled()),
|
|
ok = emqx_telemetry:disable(),
|
|
?assertEqual(false, emqx_telemetry:is_enabled()).
|
|
|
|
t_send_after_enable(_) ->
|
|
ok = emqx_telemetry:disable(),
|
|
ok = snabbkaffe:start_trace(),
|
|
try
|
|
ok = emqx_telemetry:enable(),
|
|
?assertMatch({ok, _}, ?block_until(#{?snk_kind := telemetry_data_reported}, 2000, 100))
|
|
after
|
|
ok = snabbkaffe:stop()
|
|
end.
|
|
|
|
bin(L) when is_list(L) ->
|
|
list_to_binary(L);
|
|
bin(B) when is_binary(B) ->
|
|
B.
|