anchor.diff:                    end, Cache#cache.evict_list),
       {reply, ok, Cache#cache{evict_list=[]}};
   
  +handle_call(info, _From, Cache) ->
  +    #cache{size=Max, evict_list=EvictList} = Cache,
  +    Info = [{max_size, Max},
  +            {size, length(EvictList)}],
  +    {reply, Info, Cache};
  +
   handle_call(stop, _From, Cache) ->
       {stop, normal, ok, Cache}.
   
   %% @private
  +handle_cast({set_size, Sz}, Cache) ->
  +    {noreply, Cache#cache{size=Sz}};
  +
   handle_cast(_Msg, Cache) ->
       {noreply, Cache}.
   
  
positive.code:     lru:add(Cache, 2, 2),
      ?assertEqual(lru:peek(Cache, 1), 1),
      lru:add(Cache, 3, 3),
      ?assert(lru:contains(Cache, 1) =:= false).
  
  
  -endif.
  
negative.code:          remove/2,
           remove_oldest/1,
           purge/1,
           size/1,
           info/1,
           set_size/2]).
  
  %% API exports
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
  