cache/test/cache_tests.erl

-module(cache_tests).
-author('Dmitry Kolesnikov <dmkolesnikov@gmail.com>').
-include_lib("eunit/include/eunit.hrl").

-define(CACHE, [
   {ttl,   3},   %% time-to-live 3 sec
   {n,     3},   %% 3 cells
   {evict, 1}    %% evict 1 sec
]).

lru_test_() ->
   {
      setup,
      fun cache_init/0,
      fun cache_free/1,
      [
         {"put",         fun cache_put/0}
        ,{"has",         fun cache_has/0}
        ,{"get",         fun cache_get/0}
        ,{"del",         fun cache_del/0}
        ,{"lifecycle 1", {timeout, 10000, fun cache_lc1/0}}
      ]
   }.

cache_init() ->
   cache:start_link(test, ?CACHE).

cache_free({ok, Pid}) ->
   erlang:unlink(Pid),
   cache:drop(test).

cache_put() ->
   ok = cache:put(test, <<"key">>, <<"val">>).

cache_has() ->
   true  = cache:has(test, <<"key">>),
   false = cache:has(test, <<"yek">>).

cache_get() ->
   <<"val">> = cache:get(test, <<"key">>),
   undefined = cache:get(test, <<"yek">>).

cache_del() ->
   ok = cache:remove(test, <<"key">>),
   ok = cache:remove(test, <<"yek">>).

cache_lc1() ->
   error_logger:error_msg("~n~n life-cycle #1"),
   ok  = cache:put(test, key, val),
   timer:sleep(1200),
   val = cache:get(test, key),
   timer:sleep(1200),
   val = cache:get(test, key),
   timer:sleep(1200),
   val = cache:get(test, key),
   timer:sleep(3200),
   undefined = cache:get(test, key).


% lifecyle_2_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{ttl,     10},
%    	{evict,  100}
%    ]),
%    ok = cache:put(test, key, val),
%    timer:sleep(6),
%    {ok, val} = cache:get(test, key),
%    timer:sleep(6),
%    {ok, val} = cache:get(test, key),
%    timer:sleep(20),
%    none = cache:get(test, key),
%    cache:stop(test).

% lifecyle_3_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{ttl,   10},
%    	{evict,  5}
%    ]),
%    ok = cache:put(test, key1, val1),
%    timer:sleep(5),
%    ok = cache:put(test, key2, val2),
%    timer:sleep(5),
%    ok = cache:put(test, key3, val3),
%    timer:sleep(5),
%    ok = cache:put(test, key4, val4),

%    none = cache:get(test, key1),
% 	none = cache:get(test, key2),
%    {ok, val3} = cache:get(test, key3),
%    {ok, val4} = cache:get(test, key4),
%    cache:stop(test).

% evict_lru_1_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{policy, lru},
%    	{ttl,    100},
%    	{evict,    5},
%    	{size,    10},
%    	{chunk,    2}
%    ]),
%    lists:foreach(
%    	fun(X) -> cache:put(test, X, X) end,
%    	lists:seq(1, 10)
%    ),
%    timer:sleep(10),
%    {ok, 1} = cache:get(test, 1),
%    cache:put(test, key, val),
%    timer:sleep(10),
%    none = cache:get(test, 2),
%    cache:stop(test).

% evict_lru_2_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{policy, lru},
%    	{ttl,    100},
%    	{evict,  100},
%    	{size,    10},
%    	{chunk,    2}
%    ]),
%    lists:foreach(
%    	fun(X) -> cache:put(test, X, X) end,
%    	lists:seq(1, 10)
%    ),
%    {ok, 1} = cache:get(test, 1),
%    cache:put(test, key, val),
%    cache:evict(test),
%    none = cache:get(test, 2),
%    cache:stop(test).

% evict_mru_1_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{policy, mru},
%    	{ttl,    100},
%    	{evict,    5},
%    	{size,    10},
%    	{chunk,    2}
%    ]),
%    lists:foreach(
%    	fun(X) -> cache:put(test, X, X) end,
%    	lists:seq(1, 10)
%    ),
%    timer:sleep(10),
%    {ok, 1} = cache:get(test, 1),
%    cache:put(test, key, val),
%    timer:sleep(10),
%    none = cache:get(test, key),
%    cache:stop(test).

% evict_mru_2_test() ->
%    cache:start(),
%    {ok, _} = cache:start_link(test, [
%    	{policy, mru},
%    	{ttl,    100},
%    	{evict,  100},
%    	{size,    10},
%    	{chunk,    2}
%    ]),
%    lists:foreach(
%    	fun(X) -> cache:put(test, X, X) end,
%    	lists:seq(1, 10)
%    ),
%    {ok, 1} = cache:get(test, 1),
%    cache:put(test, key, val),
%    cache:evict(test),
%    none = cache:get(test, key),
%    cache:stop(test).