anchor.diff:                begin
                     ets:insert(?MODULE, [{etag, etag(CurVal)}]),
                     IfVals = unique(IfVals0),
  -                  {ok, Result} = httpc:request(put, {"http://localhost:12000/etagtest/foo",
  -                                                     [{Match, etag_list(IfVals)}],
  -                                                     "binary/octet-stream",
  -                                                     NewVal},
  -                                               [], []),
  +                  {ok, Result} = http_request(Match, IfVals, NewVal, 3),
                     Code = element(2, element(1, Result)),
                     case {Match, lists:member(CurVal, IfVals)} of
                         {"If-Match", true} ->
  
positive.code: etag_list(Bins) ->
      string:join([[$", etag(B), $"] || B <- Bins], ",").
  
  etag_prop() ->
      ?LET({AllVals, Match}, {non_empty(list(binary())), oneof(["If-Match", "If-None-Match"])},
           ?FORALL({IfVals0, CurVal, NewVal},
  
negative.code:     {ok, Pid} = webmachine_mochiweb:start(WebConfig),
      link(Pid),
  
      ?assert(eqc:quickcheck(eqc:numtests(250, ?QC_OUT(etag_prop())))).
  
  
  init([]) ->
  