anchor.diff:    ResponseFiles = get_files(Dir, "response"),
     lists:zip(RequestFiles, ResponseFiles).
   
  -run_scenario(S, DefaultHost, Params) ->
  -  run_scenario(S, DefaultHost, Params, []).
  -
  -run_scenario([], _DefaultHost, _Params, Acc)                    ->
  +run_scenario(S, Request, Params) ->
  +  run_scenario(S, Request, Params, []).
  +
  +run_scenario([], _Request, _Params, Acc)                    ->
     lists:reverse(Acc);
  -run_scenario([{ReqFile, RespFile}|T], DefaultHost, Params, Acc) ->
  -  Request        = read_request(ReqFile, DefaultHost, Params),
  +run_scenario([{ReqFile, RespFile}|T], Request, Params, Acc) ->
  +  Request        = read_request(ReqFile, Request, Params),
     ExpResponse    = read_response(RespFile, Params),
     ActualResponse = make_request(Request),
     case Result = validate_response(ExpResponse, ActualResponse) of
       pass -> ok;
       _    -> print_debug(ReqFile, Request, ExpResponse, ActualResponse)
     end,
  -  run_scenario(T, DefaultHost, Params, [{ReqFile, Result} | Acc]).
  +  run_scenario(T, Request, Params, [{ReqFile, Result} | Acc]).
   
   print_debug(ReqFile, Request, ExpResponse, ActualResponse) ->
     ct:pal("~p:~n~p~n~n"
  
positive.code:   [{F, strip(read_body(F, []))} || F <- RequestFiles].
  
  %%%_* Internal export --------------------------------------------------
  run_test(Caller, TestcaseDir, DefaultHost, Params) ->
    Result = run_scenario(get_scenario(TestcaseDir), DefaultHost, Params),
    Caller ! {done, Result}.
  
  %%%_* Internal =========================================================
  
negative.code:          "Actual response:~n~p~n",
           [ReqFile, Request, ExpResponse, ActualResponse]).
  
  read_request(RequestFile, Request, Params) ->
    Data    = parse_file(RequestFile, Params),
    Headers = lk("headers", Data),
    RawBody = read_body(RequestFile, Params),
    #request{ url      = lk(url, Request, lk("url", Data))
            , host     = lk(host, Request, lk("host", Data))
            , port     = lk(port, Request, lk("port", Data))
            , ssl      = lk(ssl, Request, lk("ssl", Data))
            , path     = lk(path, Request, lk("path", Data))
            , method   = lk(method, Request, lk("method", Data))
            , headers  = Headers
            , body     = maybe_parse_body(Headers, RawBody)
            , raw_body = RawBody
  