diff options
| author | Hans Bolinder <[email protected]> | 2017-09-25 15:38:33 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2017-12-20 13:55:08 +0100 |
| commit | b8f16f0ab8099733a9fb1651c74af9cd1f8837ff (patch) | |
| tree | ac6a0d448f107968b21e3fd96a68d3ad02ce4b48 /lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl | |
| parent | 18a08499db5223dfc3c96b64220a4b3e6a79c799 (diff) | |
| download | otp-b8f16f0ab8099733a9fb1651c74af9cd1f8837ff.tar.gz otp-b8f16f0ab8099733a9fb1651c74af9cd1f8837ff.tar.bz2 otp-b8f16f0ab8099733a9fb1651c74af9cd1f8837ff.zip | |
stdlib: Introduce gen_server benchmark
Diffstat (limited to 'lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl')
| -rw-r--r-- | lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl | 31 |
1 files changed, 31 insertions, 0 deletions
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. |