From b8f16f0ab8099733a9fb1651c74af9cd1f8837ff Mon Sep 17 00:00:00 2001 From: Hans Bolinder Date: Mon, 25 Sep 2017 15:38:33 +0200 Subject: stdlib: Introduce gen_server benchmark --- .../stdlib_bench_SUITE_data/generic_server.erl | 31 ++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl (limited to 'lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl') diff --git a/lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl b/lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl new file mode 100644 index 0000000000..abd61dcdef --- /dev/null +++ b/lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl @@ -0,0 +1,31 @@ +-module(generic_server). + +-export([start/1, reply/2, stop/1]). + +-export([handle_call/3, handle_cast/2, init/1, terminate/2]). + +-behaviour(gen_server). + +-define(GEN_SERVER, gen_server). + +start(State) -> + {ok, Pid} = ?GEN_SERVER:start(?MODULE, State, []), + Pid. + +init(State) -> + {ok, State}. + +stop(P) -> + ok = ?GEN_SERVER:stop(P). + +reply(S, M) -> + _M = ?GEN_SERVER:call(S, {reply, M}, infinity). + +handle_call({reply, M}, _From, State) -> + {reply, M, State}. + +handle_cast(_Msg, State) -> + {noreply, State}. + +terminate(_Reason, _State) -> + ok. -- cgit v1.2.3