%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2014-2015. 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.
%%
%% %CopyrightEnd%
%%
-module(msacc_SUITE).
-include_lib("common_test/include/ct.hrl").
%% Test server callbacks
-export([suite/0, all/0]).
%% Test cases
-export([
%% API-test
api_file/1,
api_start_stop/1,
api_timer/1,
api_print/1
]).
%%--------------------------------------------------------------------
%% COMMON TEST CALLBACK FUNCTIONS
%%--------------------------------------------------------------------
all() ->
[
api_start_stop,
api_file,
api_timer,
api_print
].
suite() -> [
{timetrap,{minutes,1}},
{ct_hooks,[ts_install_cth]}
].
%%--------------------------------------------------------------------
%% TEST CASES
%%--------------------------------------------------------------------
api_timer(_Config) ->
%% Run msacc for about 100ms
msacc:start(100),
%% Verify that scheduler 1 executed+slept for about 100ms
[Sched1] = [S || S = #{ type := scheduler, id := 1 } <- msacc:stats()],
#{ counters := Cnt } = Sched1,
%% Time should be in us
Time = maps:fold(fun(_,V,Acc) -> V + Acc end, 0, Cnt),
if Time < 120000 andalso Time > 80000 -> ok;
true -> ct:fail({inaccurate_time, Time, msacc:stats()})
end.
%% We just do a basic check that none of the apis crash
api_start_stop(_Config) ->
msacc:start(),
timer:sleep(100),
msacc:stop(),
Runtime = msacc:stats(system_runtime, msacc:stats()),
Realtime = msacc:stats(system_realtime, msacc:stats()),
true = Runtime < Realtime,
RuntimeCnt = msacc:stats(runtime, msacc:stats()),
RealtimeCnt = msacc:stats(realtime, msacc:stats()),
TypeCnt = msacc:stats(type, msacc:stats()),
%% These should be very similar
RuntimeTypeCnt = msacc:stats(type, RuntimeCnt),
TypeRuntimeCnt = msacc:stats(runtime, TypeCnt),
lists:map(fun({#{ system := T1 },#{ system := T2}}) ->
if T1-0.5 < T2 orelse T1+0.5 > T2 -> ok;
true -> ct:fail({inaccurate_stats, RuntimeTypeCnt,
TypeRuntimeCnt})
end
end, lists:zip(RuntimeTypeCnt, TypeRuntimeCnt)),
%% These should be very similar
RealtimeTypeCnt = msacc:stats(type, RealtimeCnt),
TypeRealtimeCnt = msacc:stats(realtime, TypeCnt),
lists:map(fun({#{ system := T1 },#{ system := T2}}) ->
if T1-0.5 < T2 orelse T1+0.5 > T2 -> ok;
true -> ct:fail({inaccurate_stats, RealtimeTypeCnt,
TypeRealtimeCnt})
end
end,lists:zip(RealtimeTypeCnt, TypeRealtimeCnt)),
msacc:reset().
api_file(Config) ->
PrivDir = proplists:get_value(priv_dir, Config),
File = filename:join(PrivDir, "msacc.stats"),
Stats = msacc:stats(),
ok = msacc:to_file(File),
Stats = msacc:from_file(File),
PrintFile = filename:join(PrivDir, "msacc.txt"),
msacc:print(PrintFile, Stats, #{}).
%% We just check that it is possible to print in a couple of different ways
api_print(_Config) ->
msacc:start(100),
io:format("msacc:print(msacc:stats()).~n"),
msacc:print(msacc:stats()),
io:format("msacc:print(msacc:stats(),#{ system => true }).~n"),
msacc:print(msacc:stats(), #{ system => true }),
io:format("msacc:print(msacc:stats(runtime,msacc:stats())).~n"),
msacc:print(msacc:stats(runtime, msacc:stats())),
io:format("msacc:print(msacc:stats(type,msacc:stats())).~n"),
msacc:print(msacc:stats(type, msacc:stats())),
io:format("msacc:print(msacc:stats(realtime,msacc:stats())).~n"),
msacc:print(msacc:stats(realtime, msacc:stats())),
io:format("msacc:stats(type,msacc:stats(runtime,msacc:stats())).~n"),
msacc:print(msacc:stats(type, msacc:stats(runtime, msacc:stats()))).
