ggs_db.erl only init and stop left to do.

ggs_db.test.erl only init and stop left todo.
Everything else is done with these two files.

tests/ggs_db_test.erl

@@ -0,0 +1,44 @@
+-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() -> 
+    mnesia:start(),
+    ggs_db:init(),
+    ggs_db:setItem("dbname","nsname","keyname","Hello"),
+    ?assertMatch({atomic,"Hello"},ggs_db:getItem("dbname","nsname","keyname")).
+
+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).
+
+removeItem_test() ->
+    ggs_db:removeItem(1,1,4),
+    ?assertNot(ggs_db:getItem(1,1,4) =:= {atomic,"114"}).
+
+key_test() ->
+    ?assert(ggs_db:key(1,1,2) =:= {1,1,3}).
+
+clear_test() ->
+    ggs_db:clear(1,1),
+    ?assert(ggs_db:length(1,1) =:= 0),
+    mnesia:stop().
+
+%tests() ->
+%    ggs_db_test().
+
+%ggs_db_test() ->
+%    ggs_db:set(0, "Hello"),
+    %io:format("~s",[Val]),
+%    ?assertMatch({atomic,"Hello"},ggs_db:get(0)).
+