%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2018. 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(logger_olp_SUITE).
-compile(export_all).
-include_lib("kernel/src/logger_olp.hrl").
suite() ->
[{timetrap,{seconds,30}}].
init_per_suite(Config) ->
Config.
end_per_suite(_Config) ->
ok.
init_per_group(_Group, Config) ->
Config.
end_per_group(_Group, _Config) ->
ok.
init_per_testcase(_TestCase, Config) ->
Config.
end_per_testcase(Case, Config) ->
try apply(?MODULE,Case,[cleanup,Config])
catch error:undef -> ok
end,
ok.
groups() ->
[].
all() ->
[idle_timer].
%%%-----------------------------------------------------------------
%%% Test cases
idle_timer(_Config) ->
{ok,_Pid,Olp} = logger_olp:start_link(?MODULE,?MODULE,self(),#{}),
[logger_olp:load(Olp,{msg,N}) || N<-lists:seq(1,3)],
timer:sleep(?IDLE_DETECT_TIME*2),
[{load,{msg,1}},
{load,{msg,2}},
{load,{msg,3}},
{notify,idle}] = test_server:messages_get(),
logger_olp:cast(Olp,hello),
timer:sleep(?IDLE_DETECT_TIME*2),
[{cast,hello}] = test_server:messages_get(),
ok.
idle_timer(cleanup,_Config) ->
unlink(whereis(?MODULE)),
logger_olp:stop(?MODULE),
ok.
%%%-----------------------------------------------------------------
%%% Olp callbacks
init(P) ->
{ok,P}.
handle_load(M,P) ->
P ! {load,M},
P.
handle_cast(M,P) ->
P ! {cast,M},
{noreply,P}.
notify(N,P) ->
P ! {notify,N},
P.
