anchor.diff:           "Actual response:~n~p~n",
            [ReqFile, Request, ExpResponse, ActualResponse]).
   
  -read_request(RequestFile) ->
  +read_request(RequestFile, DefaultHost) ->
     Data    = parse_file(RequestFile),
     Headers = lk("headers", Data),
     RawBody = read_body(RequestFile),
     #request{ url      = lk("url", Data)
  -          , host     = lk("host", Data, default_host())
  +          , host     = lk("host", Data, DefaultHost)
             , port     = lk("port", Data)
             , ssl      = lk("ssl", Data)
             , path     = lk("path", Data)
  
positive.code: %%%_* Exports ==========================================================
  %% API
  -export([ run/1
          ]).
  
  %% Internal exports
  -export([ run_test/2
          ]).
  
  %%%_* Defines ==========================================================
  
negative.code: to_utf8(X) when is_list(X) -> unicode:characters_to_binary(X, utf8);
  to_utf8(X)                 -> X.
  
  %%%_* Emacs ============================================================
  %%% Local Variables:
  %%% allout-layout: t
  