anchor.diff:  -ifdef(TEST).
   
   parse_body_test() ->
  -    Body = "<Delete><Object><Key>&lt;/Key&gt;</Key></Object></Delete>",
  +    Body = "<Delete> <Object> <Key>&lt;/Key&gt;</Key> </Object> </Delete>",
       ?assertEqual({ok, [<<"</Key>">>]}, parse_body(Body)).
   
   -endif.
  
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: -include_lib("eunit/include/eunit.hrl").
  -endif.
  
  -define(RIAKCPOOL, request_pool).
  
  -spec init(#context{}) -> {ok, #context{}}.
  init(Ctx) ->
  