anchor.diff:      {ok, Value} = get(State, {Bucket, Key}),
       {ok, Value} = get(State, {Bucket, Key}),
       
  -    % Wait 0.05 seconds, object should be cleared from cache...
  -    timer:sleep(50),
  +    % "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}),
  
positive.code: % obj_tree two levels of gb_tree
  %   - first level is buckets
  %   - second level is keys
  -record (state, {ttl, max_ttl, max_memory, used_memory, obj_tree, time_tree}).
  -record (entry, {bucket, key, value, tref, created, now}).
  
  %%% RIAK BACKEND INTERFACE %%%
  
negative.code:     timer:sleep(30),
      {ok, Value} = get(State, {Bucket, Key}),
      
      % "sleep" past Max
      clock_advance(State, trunc((Max + 1.0) * 1000 * 1000)),
      
      % This time it should be gone...
      {error, notfound} = get(State, {Bucket, Key}),
  