anchor.diff:  %% ====================================================================
   %% Internal functions
   %% ====================================================================
  +
  +check_numfound(Struct, Expected) ->
  +    NumFound = get_path(Struct, [<<"response">>, <<"numFound">>]),
  +    if Expected == NumFound ->
  +            true;
  +       true ->
  +            {false, NumFound}
  +    end.
  +
  +get_path({struct, PL}, Path) ->
  +    get_path(PL, Path);
  +get_path(PL, [Name]) ->
  +    case proplists:get_value(Name, PL) of
  +        {struct, Obj} -> Obj;
  +        Val -> Val
  +    end;
  +get_path(PL, [Name|Path]) ->
  +    get_path(proplists:get_value(Name, PL), Path).
   
   next_url(State) when is_record(State#state.base_urls, url) ->
       {State#state.base_urls, State};
  
positive.code:     end.
  
  do_get(Url) ->
      case send_request(Url, [], get, [], [{response_format, binary}]) of
          {ok, "404", _Headers, _Body} ->
              {not_found, Url};
          {ok, "300", Headers, _Body} ->
              {ok, Url, Headers};
          {ok, "200", Headers, _Body} ->
              {ok, Url, Headers};
          {ok, Code, _Headers, _Body} ->
              {error, {http_error, Code}};
          {error, Reason} ->
  
negative.code:     %% Setup client ID by base-64 encoding the ID
      ClientId = {'X-Riak-ClientId', base64:encode(<<Id:32/unsigned>>)},
      ?DEBUG("Client ID: ~p\n", [ClientId]),
      ?INFO("CWD: ~p~n", [file:get_cwd()]),
  
      application:start(ibrowse),
  
  