anchor.diff:  
   stop(State) -> 
       gen_server:call(State, stop).
  +
  +-ifdef(TEST).
  +clock_advance(State, USec) -> 
  +    gen_server:call(State, {clock_advance, USec}).
  +-endif.
   
   
   %%% GEN_SERVER %%%
  
positive.code:     Reply = do_fold(State, Keys, Fun0, Acc),
      {reply, Reply, State};
  handle_call(stop, _From, State) -> 
      {stop, normal, ok, State}.
  
  %% @private
  handle_cast(_, State) -> {noreply, State}.
  
negative.code:     {ok, Value} = get(State, {Bucket, Key}),
      {ok, Value} = get(State, {Bucket, Key}),
      
      % "sleep" past Max
      clock_advance(State, trunc((Max + 1.0) * 1000 * 1000)),
      
      % Get the object again, it should be missing...
      {error, notfound} = get(State, {Bucket, Key}),
  