%%%%----------------------------------------------------
%%% @author     Mattias Pettersson <mattiaspgames@gmail.com>
%%% @copyright  2011 Mattias Pettersson
%%% @doc        Database for runtime game variable storage.
%%% @end

 Test Mnesia
-module(gamedb).
-import(mnesia).
-export([init/0,insert_player/1,example_player/0,read_player/1,test_player/0]).
-include("gamedb.hrl").

%%-----------------------------------------------------
%% Creation
%%-----------------------------------------------------
init() ->
    mnesia:create_table(player, [{attributes, record_info(fields, player)}]).

%%-----------------------------------------------------
%% Test
%%-----------------------------------------------------
test_player() ->
    insert_player(example_player()),
    read_player(0001).

example_player() ->
    #player{id   = 0001,
            name = "Tux"}.

%%-----------------------------------------------------
%% Insertions
%%-----------------------------------------------------
insert_player(Player) ->
    Fun = fun() ->
                  mnesia:write(Player) 
          end,
    mnesia:transaction(Fun).


%%-----------------------------------------------------
%% Querries
%%-----------------------------------------------------
read_player(Player_Key) ->
    Fun = fun() -> 
                  [P] = mnesia:read(player, Player_Key),
                  Name = P#player.name,
                  io:format("Player name: ~s~n",[Name])
          end,
    mnesia:transaction(Fun).