jeena/GGS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

key with test.

Browse source
This commit is contained in:
Kallfaktorn 2011-02-21 23:55:20 +01:00
parent c66d1cef69
commit 8b978934c7
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mnesia/ggs_db.erl
View file

@ -7,7 +7,7 @@
-module(ggs_db). -module(ggs_db).
-import(mnesia). -import(mnesia).
%-compile({no_auto_import,[length/2]}). %-compile({no_auto_import,[length/2]}).
-export([init/0,setItem/4,getItem/3,removeItem/3,length/2]). -export([init/0,setItem/4,getItem/3,removeItem/3,key/3,length/2]).
-include("ggs_db.hrl"). -include("ggs_db.hrl").
%%----------------------------------------------------- %%-----------------------------------------------------
@ -63,4 +63,11 @@ length(Db,Ns) ->
{atomic, Ret} = mnesia:transaction(Fun), {atomic, Ret} = mnesia:transaction(Fun),
Ret. Ret.
key(Db,Ns,Position) ->
Fun = fun() ->
Keys = mnesia:all_keys(data),
Rest = lists:filter(fun({A,B,_}) -> ((A==Db) and (B==Ns)) end, Keys),
lists:nth(Position, Rest)
end,
{atomic, Ret} = mnesia:transaction(Fun),
Ret.

7
mnesia/ggs_db_test.erl
View file

@ -24,9 +24,12 @@ length_test() ->
removeItem_test() -> removeItem_test() ->
ggs_db:removeItem(1,1,4), ggs_db:removeItem(1,1,4),
?assertNot(ggs_db:getItem(1,1,4) =:= {atomic,"114"}), ?assertNot(ggs_db:getItem(1,1,4) =:= {atomic,"114"}).
mnesia:stop(). %mnesia:stop().
key_test() ->
?assert(ggs_db:key(1,1,2) =:= {1,1,3}),
mnesia:stop().
%cleanup(Val) -> %cleanup(Val) ->
% mnesia:stop(). % mnesia:stop().