anchor.diff:  -spec set_size(Cache::pid(), Size::non_neg_integer()) -> ok.
   set_size(Cache, Size) ->
       gen_server:cast(Cache, {set_size, Size}).
  +
  +%% @doc resize of the cache
  +-spec resize(Cache::pid(), Size::non_neg_integer()) -> ok.
  +resize(Cache, Size) ->
  +    gen_server:cast(Cache, {resize, Size}).
  +
   
   %%====================================================================
   %% Internal functions
  
positive.code:     ?assertEqual(lru:info(Cache), [{max_size, 2}, {size, 2}]),
      lru:set_size(Cache, 3),
      ?assertEqual(lru:info(Cache), [{max_size, 3}, {size, 2}]),
      lru:stop(Cache),
      ok.
  
  
negative.code:     {stop, normal, ok, Cache}.
  
  %% @private
  handle_cast({resize, Sz}, Cache) ->
      if
          Sz < Cache#cache.size ->
              Diff = Cache#cache.size - Sz,
              Cache2 = lists:foldl(fun(_, Cache1) ->
                                           remove_oldest1(Cache1)
                                   end, Cache, lists:seq(1, Diff)),
              {noreply, Cache2#cache{size=Sz}};
          true ->
              {noreply, Cache#cache{size=Sz}}
      end;
  
  handle_cast({set_size, Sz}, Cache) ->
      {noreply, Cache#cache{size=Sz}};
  
  