Add SASL test suite

1 files changed, 179 insertions, 0 deletions

diff --git a/lib/sasl/test/alarm_handler_SUITE.erl b/lib/sasl/test/alarm_handler_SUITE.erl
new file mode 100644
index 0000000000..a98e8c9c67
--- /dev/null
+++ b/lib/sasl/test/alarm_handler_SUITE.erl
@@ -0,0 +1,179 @@
+%%
+%% %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.