anchor.diff:          end,
           ReqAuth = maps:get(auth, RequestMap, undefined),
           ReqOpts = maps:get(opts, RequestMap, []),
  +        ReqURL = maps:get(url, RequestMap, get_random_oz_url()),
   
           ExpCode = maps:get(code, ExpectMap, undefined),
           ExpHeaders = maps:get(headers, ExpectMap, undefined),
           ExpBody = maps:get(body, ExpectMap, undefined),
   
  -        URL = str_utils:join_binary([get_random_oz_url() | ReqPath], <<"">>),
  +        URL = str_utils:join_binary([ReqURL | ReqPath], <<"">>),
           HeadersPlusAuth = case ReqAuth of
               undefined ->
                   ReqHeaders;
  
positive.code:                 _ ->
                      MapAcc
              end
          end, OriginalMap, maps:keys(OriginalMap)).
negative.code:                         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,
  
  