aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test/dummy1_h.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/stdlib/test/dummy1_h.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/stdlib/test/dummy1_h.erl')
-rw-r--r--lib/stdlib/test/dummy1_h.erl70
1 files changed, 70 insertions, 0 deletions
diff --git a/lib/stdlib/test/dummy1_h.erl b/lib/stdlib/test/dummy1_h.erl
new file mode 100644
index 0000000000..4377d774a3
--- /dev/null
+++ b/lib/stdlib/test/dummy1_h.erl
@@ -0,0 +1,70 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1996-2009. 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(dummy1_h).
+
+%% Test event handler for gen_event_SUITE.erl
+
+-export([init/1, handle_event/2, handle_call/2, handle_info/2,
+ terminate/2]).
+
+init(make_error) ->
+ {error, my_error};
+init({_, error}) -> % swap from non-existing handler.
+ non_existing;
+init({swap, {ok, OldState}}) ->
+ {ok, OldState};
+init([Parent]) ->
+ {ok, Parent}. %% We will send special responses for every handled event.
+
+handle_event(delete_event, _Parent) ->
+ remove_handler;
+handle_event(do_crash, _State) ->
+ erlang:error({badmatch,4});
+%Inverse of dummy_h
+handle_event(hibernate, Parent) ->
+ {ok,Parent};
+handle_event(wakeup, Parent) ->
+ {ok,Parent,hibernate};
+handle_event(Event, Parent) ->
+ Parent ! {dummy1_h, Event},
+ {ok, Parent}.
+
+handle_call(delete_call, _State) ->
+ {remove_handler, ok};
+handle_call(_Query, State) ->
+ {ok, ok, State}.
+
+handle_info(delete_info, _Parent) ->
+ remove_handler;
+handle_info(do_crash, _State) ->
+ erlang:error({badmatch,4});
+handle_info(gnurf, Parent) ->
+ {ok, Parent, hibernate};
+handle_info(Info, Parent) ->
+ Parent ! {dummy1_h, Info},
+ {ok, Parent}.
+
+terminate(return_hej, _State) ->
+ return_hej;
+terminate(remove_handler, Parent) ->
+ Parent ! {dummy1_h, removed};
+terminate(_Reason, _State) ->
+ ok.
+
+