aboutsummaryrefslogblamecommitdiffstats
path: root/lib/sasl/test/alarm_handler_SUITE.erl
blob: a98e8c9c67ae5d8789ad35753cb985833c8e624f (plain) (tree)


















































































































































































                                                                           
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2011. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
-module(alarm_handler_SUITE).

-include_lib("test_server/include/test_server.hrl").

%%-----------------------------------------------------------------
%% We will add an own alarm handler in order to verify that the
%% alarm_handler deliver the expected events.
%%-----------------------------------------------------------------

-export([init_per_suite/1, end_per_suite/1, all/0,groups/0,
	 init_per_group/2,end_per_group/2,
	 set_alarm/1, clear_alarm/1, swap/1]).

-export([init/1, handle_event/2, handle_call/2, handle_info/2,
	 terminate/2]).


init_per_suite(Config) ->
    application:start(sasl),
    Config.

end_per_suite(_Config) ->
    ok.

all() -> 
    [set_alarm, clear_alarm, swap].

groups() -> 
    [].

init_per_group(_GroupName, Config) ->
    Config.

end_per_group(_GroupName, Config) ->
    Config.



%%-----------------------------------------------------------------

set_alarm(suite) -> [];
set_alarm(Config) when is_list(Config) ->
    ?line gen_event:add_handler(alarm_handler, ?MODULE, self()),
    Alarm1 = {alarm1, "this is the alarm"},
    Alarm2 = {"alarm2", this_is_the_alarm},
    Alarm3 = {{alarm3}, {this_is,"the_alarm"}},
    ?line ok = alarm_handler:set_alarm(Alarm1),
    reported(set_alarm, Alarm1),
    ?line ok = alarm_handler:set_alarm(Alarm2),
    reported(set_alarm, Alarm2),
    ?line ok = alarm_handler:set_alarm(Alarm3),
    reported(set_alarm, Alarm3),

    ?line [Alarm3,Alarm2,Alarm1] = alarm_handler:get_alarms(),
    alarm_handler:clear_alarm(alarm1),
    alarm_handler:clear_alarm("alarm2"),
    alarm_handler:clear_alarm({alarm3}),
    ?line [] = alarm_handler:get_alarms(),

    test_server:messages_get(),
    ?line my_yes = gen_event:delete_handler(alarm_handler, ?MODULE, []),
    ok.

%%-----------------------------------------------------------------

clear_alarm(suite) -> [];
clear_alarm(Config) when is_list(Config) ->
    ?line gen_event:add_handler(alarm_handler, ?MODULE, self()),
    Alarm1 = {alarm1, "this is the alarm"},
    Alarm2 = {"alarm2", this_is_the_alarm},
    Alarm3 = {{alarm3}, {this_is,"the_alarm"}},
    alarm_handler:set_alarm(Alarm1),
    alarm_handler:set_alarm(Alarm2),
    alarm_handler:set_alarm(Alarm3),
    test_server:messages_get(),

    ?line ok = alarm_handler:clear_alarm(alarm1),
    reported(clear_alarm, alarm1),
    ?line ok = alarm_handler:clear_alarm("alarm2"),
    reported(clear_alarm, "alarm2"),
    ?line ok = alarm_handler:clear_alarm({alarm3}),
    reported(clear_alarm, {alarm3}),
    ?line [] = alarm_handler:get_alarms(),

    ?line my_yes = gen_event:delete_handler(alarm_handler, ?MODULE, []),
    ok.

%%-----------------------------------------------------------------

swap(suite) -> [];
swap(Config) when is_list(Config) ->
    ?line Alarm1 = {alarm1, "this is the alarm"},
    ?line Alarm2 = {"alarm2", this_is_the_alarm},
    ?line Alarm3 = {{alarm3}, {this_is,"the_alarm"}},
    ?line alarm_handler:set_alarm(Alarm1),
    ?line alarm_handler:set_alarm(Alarm2),
    ?line alarm_handler:set_alarm(Alarm3),

    ?line foo,
    case gen_event:which_handlers(alarm_handler) of
	[alarm_handler] ->
	    ?line ok = gen_event:swap_handler(alarm_handler,
					      {alarm_handler, swap},
					      {?MODULE, self()}),
	    ?line [?MODULE] = gen_event:which_handlers(alarm_handler),
	    Alarms = [Alarm3, Alarm2, Alarm1],
	    reported(swap_alarms, Alarms),

	    %% get_alarms is only valid with the default handler installed.
	    ?line {error, _} = alarm_handler:get_alarms(),

	    ?line my_yes = gen_event:delete_handler(alarm_handler,
						    ?MODULE, []),
	    ?line gen_event:add_handler(alarm_handler, alarm_handler, []),
	    ok;
	_ ->
	    alarm_handler:clear_alarm(alarm1),
            alarm_handler:clear_alarm("alarm2"),
	    alarm_handler:clear_alarm({alarm3}),
	    ok
    end.

%%-----------------------------------------------------------------
%% Check that the alarm has been received.
%%-----------------------------------------------------------------
reported(Tag, Data) ->
    receive
	{Tag, Data} ->
	    test_server:messages_get(),
	    ok
    after 1000 ->
	    test_server:fail(no_alarm_received)
    end.

%%-----------------------------------------------------------------
%% The error_logger handler (gen_event behaviour).
%% Sends a notification to the Tester process about the events
%% generated by the Tester process.
%%-----------------------------------------------------------------
init(Tester) when is_pid(Tester) ->
    {ok, Tester};
init({Tester, {alarm_handler,Alarms}}) -> % Swap from default handler.
    Tester ! {swap_alarms, Alarms},
    {ok, Tester}.

handle_event({set_alarm, Alarm}, Tester) ->
    Tester ! {set_alarm, Alarm},
    {ok, Tester};
handle_event({clear_alarm, AlarmId}, Tester) ->
    Tester ! {clear_alarm, AlarmId},
    {ok, Tester};
handle_event(_Event, Tester) ->
    {ok, Tester}.

handle_info(_, Tester) ->
    {ok, Tester}.

handle_call(_Query, Tester) -> {ok, {error, bad_query}, Tester}.

terminate(_Reason, _Tester) ->
    my_yes.