diff options
| author | Björn Gustavsson <[email protected]> | 2017-02-10 13:25:35 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-02-10 14:58:36 +0100 |
| commit | 8175aef42b87fd5c7f43bdad7890642f05906c83 (patch) | |
| tree | 96871f8f40180189473ec9802fe23e9bbb29e9cb | |
| parent | c09cbf5baf27391252e109c102e11fb3dbb1db2f (diff) | |
| download | otp-8175aef42b87fd5c7f43bdad7890642f05906c83.tar.gz otp-8175aef42b87fd5c7f43bdad7890642f05906c83.tar.bz2 otp-8175aef42b87fd5c7f43bdad7890642f05906c83.zip | |
ets_tough_SUITE: Add the gen_server behavior
Add a declaration to make it clear for tools that this module
uses the gen_server behavior. While at it, also remove the
totally unnecessary 'export_all' option.
| -rw-r--r-- | lib/stdlib/test/ets_tough_SUITE.erl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lib/stdlib/test/ets_tough_SUITE.erl b/lib/stdlib/test/ets_tough_SUITE.erl index ec5aae27ae..0abce3200f 100644 --- a/lib/stdlib/test/ets_tough_SUITE.erl +++ b/lib/stdlib/test/ets_tough_SUITE.erl @@ -19,10 +19,15 @@ %% -module(ets_tough_SUITE). -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, - init_per_group/2,end_per_group/2,ex1/1]). --export([init/1,terminate/2,handle_call/3,handle_info/2]). + init_per_group/2,end_per_group/2, + ex1/1]). -export([init_per_testcase/2, end_per_testcase/2]). --compile([export_all]). + +%% gen_server behavior. +-behavior(gen_server). +-export([init/1,terminate/2,handle_call/3,handle_cast/2, + handle_info/2,code_change/3]). + -include_lib("common_test/include/ct.hrl"). suite() -> @@ -602,9 +607,15 @@ handle_call(stop,_From,Admin) -> ?ets_delete(Admin), % Make sure table is gone before reply is sent. {stop, normal, ok, []}. +handle_cast(_Req, Admin) -> + {noreply, Admin}. + handle_info({'EXIT',_Pid,_Reason},Admin) -> {stop,normal,Admin}. +code_change(_OldVsn, StateData, _Extra) -> + {ok, StateData}. + handle_delete(Class, Key, Admin) -> handle_call({handle_delete,Class,Key},from,Admin). |