4
%% Copyright Ericsson AB 1998-2010. All Rights Reserved.
6
%% The contents of this file are subject to the Erlang Public License,
7
%% Version 1.1, (the "License"); you may not use this file except in
8
%% compliance with the License. You should have received a copy of the
9
%% Erlang Public License along with this software. If not, it can be
10
%% retrieved online at http://www.erlang.org/.
12
%% Software distributed under the License is distributed on an "AS IS"
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
%% the License for the specific language governing rights and limitations
21
-module(mnesia_inconsistent_database_test).
22
-author('hakan@erix.ericsson.se').
24
-behaviour(gen_event).
26
%%-compile([export_all]).
27
-include("mnesia_test_lib.hrl").
29
%% gen_event callback interface
30
-export([init/1, handle_event/2, handle_call/2, handle_info/2,
31
terminate/2, code_change/3]).
35
?verbose("~p installed as event_module~n", [?MODULE]),
38
handle_event(Msg, State) ->
39
handle_any_event(Msg, State).
41
handle_info(Msg, State) ->
42
handle_any_event(Msg, State).
45
handle_call(Msg, State) ->
46
handle_any_event(Msg, State).
51
handle_any_event({mnesia_system_event, Event}, State)
52
when element(1, Event) == inconsistent_database ->
53
?error("Got event: ~p~n", [Event]),
55
handle_any_event(Msg, State) ->
56
?verbose("Got event: ~p~n", [Msg]),
59
%%-----------------------------------------------------------------
60
%% terminate(Reason, State) ->
62
%%-----------------------------------------------------------------
64
terminate(_Reason, _State) ->
67
%%----------------------------------------------------------------------
68
%% Func: code_change/3
69
%% Purpose: Upgrade process when its code is to be changed
70
%% Returns: {ok, NewState}
71
%%----------------------------------------------------------------------
72
code_change(_OldVsn, _State, _Extra) ->