added makefile, fixed problems with tests

tests/ggs_player_test.erl

@@ -1,6 +1,5 @@
 -module(ggs_player_test).
 -include_lib("eunit/include/eunit.hrl").
--import(ggs_player).
 
 %% @doc start_link should always return ok for any valid socket. A valid socket 
 %% should always return {ok, Pid} and {error, Reason} otherwise.
@@ -10,9 +9,9 @@ start_link_test() ->
 %% @doc Given that start_link returned {ok, Player}. Notify shall always return ok and
 %% deliver a specified message through the socket.
 notify_test() ->
-	Player = start_link("bad arg"),
+	Player = ggs_player:start_link("bad arg"),
 	Message = {"something", ""},
-	Ret = ggs_player:notify(Player, self(), Message)
+	Ret = ggs_player:notify(Player, self(), Message),
 	?assertNot(ok =:= Ret).
 
 %% @doc Given that start_link returned {ok, Player}. get_token shall always return a valid
@@ -23,6 +22,6 @@ get_token_test() ->
 %% @doc Given that start_link returned {ok, Pid}. There shouldn't be possible to
 %% execute this function with the same Player and Table arguments twice.
 stop_test() ->
-    Player = start_link(something),
+    Player = ggs_player:start_link(something),
 	Table = test,
-	ok = stop(Player, Table).
+	ok = ggs_player:stop(Player, Table).

tests/ggs_table_test.erl

@@ -1,45 +1,38 @@
 -module(ggs_table_test).
 -include_lib("eunit/include/eunit.hrl").
--import(ggs_table).
 
-
-% @private
 start_link_test() ->
-	Table = start_link(),
+	Table = ggs_table:start_link(),
 	?assertNot(Table =:= undefined).
 
-% @private   
 add_player_test() ->
-	Table = start_link(),
+	Table = ggs_table:start_link(),
 	Player = test_player,
-	add_player(Table, Player),
+	ggs_table:add_player(Table, Player),
 	{ok, [Player]} = gen_server:call(Table, get_player_list).
 
-% @private  
 remove_player_test() ->
-	Table = start_link(),
+	Table = ggs_table:start_link(),
 	Player = test_player,
 	Player2 = test_player2,
-	add_player(Table, Player),
+	ggs_table:add_player(Table, Player),
 	{ok, [Player]} = gen_server:call(Table, get_player_list),
-	add_player(Table, Player2),
+	ggs_table:add_player(Table, Player2),
 	{ok, [Player2, Player]} = gen_server:call(Table, get_player_list),	
-	remove_player(Table, Player),
+	ggs_table:remove_player(Table, Player),
 	{ok, [Player2]} = gen_server:call(Table, get_player_list),
-	remove_player(Table, Player2),
+	ggs_table:remove_player(Table, Player2),
 	{ok, []} = gen_server:call(Table, get_player_list).	
 
-% @private	
 stop_test() ->
-	Table = start_link(),
-	ok = stop(Table).
+	Table = ggs_table:start_link(),
+	ok = ggs_table:stop(Table).
 
-% @private
 notify_test() ->
-	Table = start_link(),
+	Table = ggs_table:start_link(),
 	Player = test_player,
 	Message = {server, define, "function helloWorld(x) {  }"},
-	ok = notify(Table, Player, Message).
+	ok = ggs_table:notify(Table, Player, Message),
 	Message2 = {game, "helloWorld", "test"},
-	ok = notify(Table, Player, Message2).
+	ok = ggs_table:notify(Table, Player, Message2).