anchor.diff:  make_request_url(Url = "http://" ++ _, _Params)  -> Url;
   make_request_url(Url = "https://" ++ _, _Params) -> Url;
   make_request_url(Path0, Params) ->
  -  Protocol = proplists:get_value(protocol, Params, "http:"),
  -  DefaultPort = case Protocol of
  -                  "https:" -> 443;
  -                  "http:"  -> 80
  -                end,
  +  Protocol = proplists:get_value(protocol, Params),
  +  Hostname = proplists:get_value(hostname, Params),
  +  Port = integer_to_list(proplists:get_value(port, Params)),
     Path = unicode:characters_to_list(proplists:get_value(path, Params, Path0)),
     string:join([ Protocol
                 , "//"
  -              , proplists:get_value(hostname, Params, "localhost")
  +              , Hostname
                 , ":"
  -              , integer_to_list(proplists:get_value(port, Params, DefaultPort))
  +              , Port
                 , Path
                 ], "").
   
  
positive.code: %% Take default params, and also merge in optional params from Params, to return
  %% a proplist of params.
  make_params(ScenarioParams) ->
    Protocol = proplists:get_value(protocol, ScenarioParams, "http:"),
    Port = case Protocol of
             "http:"  -> 80;
             "https:" -> 443
           end,
    DefaultParams = [ {hostname, "localhost"}
                    , {protocol, Protocol}
  
negative.code: 
  make_options(Options) ->
    katt_util:merge_proplists([ {parser, fun maybe_parse_body/2}
                              , {scenario_timeout, ?DEFAULT_SCENARIO_TIMEOUT}
                              , {request_timeout, ?DEFAULT_REQUEST_TIMEOUT}
                              ]
                              , Options
                              ).
  