anchor.diff:                          ok;
                       false ->
                           throw({body, RespBodyMap, ExpBody})
  +                end;
  +            #xmlElement{} = ExpBodyXML ->
  +%%                ct:pal("DUPA2~n"),
  +                {RespBodyXML, _} = xmerl_scan:string(binary_to_list(RespBody)),
  +%%                ct:pal("RespBodyXML~n~p~n", [RespBodyXML]),
  +%%                ct:pal("ExpBodyXML~n~p~n", [ExpBodyXML]),
  +                case compare_xml(RespBodyXML, ExpBodyXML) of
  +                    true -> ok;
  +                    false ->
  +                        ct:pal("CAUGHT: ~p", [ExpBodyXML]),
  +                        throw({body, RespBodyXML, ExpBodyXML})
                   end
           end,
   
  
positive.code:             ReqMethod, URL, HeadersPlusAuth, ReqBody, [insecure | ReqOpts]
          ),
  
          % Check response code if specified
          case ExpCode of
              undefined ->
  
negative.code:                         throw({code, RespCode, ExpCode})
                  end
          end,
          % Check response headers if specified
          case ExpHeaders of
              undefined ->
                  ok;
              {contains, ActualExpHeaders} ->
                  NormExpHeaders = normalize_headers(ActualExpHeaders),
                  NormRespHeaders = normalize_headers(RespHeaders),
                  case NormExpHeaders -- NormRespHeaders of
                      [] -> ok;
                      _ -> throw({headers, NormRespHeaders, NormExpHeaders})
                  end;
              _ ->
                  NormExpHeaders = normalize_headers(ExpHeaders),
                  NormRespHeaders = normalize_headers(RespHeaders),
  