Added some tests for coordinator
This commit is contained in:
parent
94d9dc6d7f
commit
654aa837dd
2 changed files with 21 additions and 2 deletions
|
@ -16,8 +16,8 @@ start_link() ->
|
|||
gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
|
||||
|
||||
%% @doc Terminates the coordinator process.
|
||||
stop(_Reason) ->
|
||||
ggs_logger:not_implemented().
|
||||
stop(Reason) ->
|
||||
gen_server:cast(ggs_coordinator, {stop, Reason}).
|
||||
|
||||
%% @doc Joins table with specified token
|
||||
join_table(_Token) ->
|
||||
|
@ -52,6 +52,9 @@ init([]) ->
|
|||
handle_call(_Message, _From, State) ->
|
||||
{noreply, State}.
|
||||
|
||||
handle_cast({stop, Reason}, State) ->
|
||||
{stop, normal, state};
|
||||
|
||||
handle_cast(_Message, State) ->
|
||||
{noreply, State}.
|
||||
|
||||
|
|
16
tests/ggs_coordinator_test.erl
Normal file
16
tests/ggs_coordinator_test.erl
Normal file
|
@ -0,0 +1,16 @@
|
|||
-module(ggs_coordinator_test).
|
||||
-include_lib("eunit/include/eunit.hrl").
|
||||
|
||||
start_link_test() ->
|
||||
{ok, Coord} = ggs_coordinator:start_link(), % Start
|
||||
PInfo = erlang:process_info(Coord), % Check process info
|
||||
ggs_coordinator:stop(""), % Clean up
|
||||
timer:sleep(100), % Wait for cleaning..
|
||||
?assert((PInfo /= undefined)). % Did the server start?
|
||||
|
||||
stop_test() ->
|
||||
ok = ggs_coordinator:stop(""), % Extra cleaning
|
||||
{ok, Coord} = ggs_coordinator:start_link(), % Start server
|
||||
ggs_coordinator:stop("Terminate now"), % Send stop message
|
||||
timer:sleep(100), % Wait for cleaning..
|
||||
?assert((erlang:process_info(Coord) == undefined)). % Did it stop?
|
Reference in a new issue