anchor.diff:  %%%   (but it only matters if there are non latin-1 characters)
   %%%
   %%% * Url can be given either as a "url" parameter or as host/port/ssl/path
  -%%%   Host defaults to the 127.0.0.1 but could be configured with the
  -%%%   application environment variable default_host. Including "host"
  -%%%   will override the default.
  +%%%   Default host is 127.0.0.1 in run/1 but could be passed in run/2
  +%%%   as well. Including "host" will override the default.
   %%%
   %%% * Tags with special meaning in response files:
   %%%    ">>_"   Match anything (i.e. no real validation, only check existence)
  
positive.code: %%%_* Exports ==========================================================
  %% API
  -export([ run/1
          ]).
  
  %% Internal exports
  -export([ run_test/2
          ]).
  
  %%%_* Defines ==========================================================
  
negative.code:   ResponseFiles = get_files(Dir, "response"),
    lists:zip(RequestFiles, ResponseFiles).
  
  run_scenario(S, DefaultHost) -> run_scenario(S, DefaultHost, []).
  
  run_scenario([], _DefaultHost, Acc)                     -> lists:reverse(Acc);
  run_scenario([{ReqFile, RespFile}|T], DefaultHost, Acc) ->
    Request        = read_request(ReqFile, DefaultHost),
    ExpResponse    = read_response(RespFile),
    ActualResponse = make_request(Request),
    case Result = validate_response(ExpResponse, ActualResponse) of
  