anchor.diff:  -include_lib("eunit/include/eunit.hrl").
   -endif.
   
  --define(RIAKCPOOL, bucket_list_pool).
  +-define(RIAKCPOOL, request_pool).
   
   -spec init(#context{}) -> {ok, #context{}}.
   init(Ctx) ->
  
positive.code: -spec parse_body(string()) -> {ok, [binary()]} | {error, malformed_xml}.
  parse_body(Body) ->
      case riak_cs_xml:scan(Body) of
          {ok, ParsedData} ->
              #xmlElement{name='Delete'} = ParsedData,
              Keys = [ unicode:characters_to_binary(
                         [ T#xmlText.value || T <- xmerl_xpath:string("//Key/text()", Node)]
                        ) || Node <- xmerl_xpath:string("//Delete/Object/node()", ParsedData) ],
              {ok, Keys};
          %% TODO: handle version id
          %% VersionIds = [riak_cs_utils:hexlist_to_binary(string:strip(T#xmlText.value, both, $")) ||
          %%                  T <- xmerl_xpath:string("//Delete/Object/VersionId/text()", ParsedData)],
          Error ->
               Error
      end.
  
negative.code:             end;
          {error, notfound} ->
              {error, no_such_key};
          {error, no_active_manifest} ->
              {error, no_such_key};
          E ->
              E
      end.
  