47 lines
1.3 KiB
Erlang
47 lines
1.3 KiB
Erlang
-module(ggs_db_test).
|
|
%-compile({no_auto_import,[get/1,set/2]}).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
%ggs_db_test_() ->
|
|
% {spawn,
|
|
% {setup, fun setup/0, fun cleanup/1,[ fun ggs_db_test/0 ]}
|
|
% }.
|
|
|
|
|
|
%Key should be a tuple of two elements
|
|
getItem_setItem_test() ->
|
|
ggs_db:init(),
|
|
ggs_db:setItem("dbname","nsname","keyname1","Hello"),
|
|
ggs_db:setItem("dbname","nsname","keyname2","Hello2"),
|
|
ggs_db:setItem("dbname2","nsname","keyname1","Hello3"),
|
|
ggs_db:setItem("dbname2","nsname","keyname1","Hello4"),
|
|
ggs_db:setItem("dbname3","nsname","keyname1","Hello5"),
|
|
"Hello" = ggs_db:getItem("dbname","nsname","keyname1").
|
|
|
|
%Test the length function of our database
|
|
length_test() ->
|
|
ggs_db:setItem(1,1,2,"112"),
|
|
ggs_db:setItem(1,2,2,"122"),
|
|
ggs_db:setItem(1,1,3,"113"),
|
|
ggs_db:setItem(1,1,4,"114"),
|
|
?assertEqual(ggs_db:length(1,1), 3).
|
|
|
|
%Test if we can remove correctly from the database
|
|
removeItem_test() ->
|
|
ggs_db:removeItem(1,1,4),
|
|
?assertNot(ggs_db:getItem(1,1,4) =:= "114").
|
|
|
|
%Test the key function
|
|
key_test() ->
|
|
?assert(ggs_db:key(1,1,2) =:= {1,1,2}).
|
|
|
|
%Test the clear function(for gametoken and ns)
|
|
clear_test() ->
|
|
ggs_db:clear(1,1),
|
|
?assert(ggs_db:length(1,1) =:= 0).
|
|
|
|
%Test the clear function(gametoken)
|
|
clear_GameToken_test() ->
|
|
ggs_db:clear(1),
|
|
?assert((ggs_db:length(1,1) + ggs_db:length(1,2)) =:= 0),
|
|
ggs_db:stop().
|