From d018034b7f55ff4449a5984f5eb70e68f7c74fb9 Mon Sep 17 00:00:00 2001
From: Jeena Paradies <spam@jeenaparadies.net>
Date: Thu, 17 Feb 2011 01:57:29 +0100
Subject: [PATCH] added another test

---
 src/ggs_table.erl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/ggs_table.erl b/src/ggs_table.erl
index cf22ddc..db247c4 100644
--- a/src/ggs_table.erl
+++ b/src/ggs_table.erl
@@ -61,6 +61,8 @@ handle_call({add_player, Player}, _From, #state { players = Players } = State) -
     {reply, ok, State#state { players = [Player | Players] }};
 handle_call({remove_player, Player}, _From, #state { players = Players } = State) ->
     {reply, ok, State#state { players = Players -- [Player] }};
+handle_call(get_player_list, _From, #state { players = Players } = State) ->
+	{reply, {ok, Players}, State};
 handle_call(Msg, _From, State) ->
     error_logger:error_report([unknown_msg, Msg]),
     {reply, ok, State}.
@@ -98,8 +100,15 @@ code_change(_OldVsn, State, _Extra) ->
 
 % Tests
 
-%% @private
 start_link_test() ->
 	ClientToken = "123",
 	Pid = start_link(ClientToken, none),
 	?assertNot(Pid =:= undefined).
+	
+add_player_test() ->
+	Table = start_link("123", none),
+	Player = "test", %ggs_player:start_link(none),
+	add_player(Table, Player),
+	{ok, [Player]} = gen_server:call(Table, get_player_list).
+	
+