anchor.diff:  test(N) ->
       quickcheck(numtests(N, prop_basic_get())).
   
  -expect(History,N,R) ->
  -    expect(History,N,R,0,0).
  -    
  +expect(Object,History,N,R) ->
  +    case expect(History,N,R,0,0) of
  +        ok  -> {ok, Object};
  +        Err -> {error, Err}
  +    end.
  +
   expect([],N,R,NotFounds,_Oks) ->
       case NotFounds >= N-R+1 of
           true -> notfound;        
  
positive.code:          {chash_keyfun, {riak_core_util, chash_std_keyfun}}]).
  
  %% Generators
  
  n(Max) ->
      choose(1, Max).
  
negative.code:         NoReply  = length([ ok || {_, {error, timeout}}  <- History ]),
          H        = lists:map(fun({_, {ok, _}})      -> ok;
                              ({_, {error, Err}}) -> Err end, History),
          Expected = expect(Object, H, N, R),
          ?WHENFAIL(
              begin
                  io:format("N: ~p~nR: ~p~nQ: ~p~nResult: ~p~nExpected: ~p~n",
                            [N, R, Q, Res, Expected]),
                  io:format("History: ~p~nOk: ~p~nNotFound: ~p~nNoReply: ~p~n",
                            [H, Ok, NotFound, NoReply])
              end,
              collect({R, N},
              conjunction(
                  [{result, Res =:= Expected},
                   {n_value, equals(length(History), N)}
                  ])))
      end).
  
  wait_for_req_id(ReqId) ->
  