anchor.diff:    lhttpc:start(),
     application:stop(unrest),
     Path = filename:join([code:priv_dir(unrest), "webmachine.yml"]),
  -  Blueprint = filename:join([ code:priv_dir(unrest)
  -                            , ".."
  -                            , "test"
  -                            , "webmachine.apib"
  +
  +  Blueprint = filename:join([ proplists:get_value(priv_dir, Config)
  +                            , "webmachine.txt"
                               ]),
  +  ct:pal("~p~n", [Blueprint]),
     unrest:start(Path),
     [{blueprint, Blueprint} | Config].
   
  
positive.code: %%_* Tests =====================================================================
  
  test({init, _Config}) ->
    [{headers, [{"Content-Length", "0"}]}];
  test(Config) ->
    run(Config).
  
  
negative.code:      (What, Vals, Params, Callbacks) ->
      katt_callback:recall(What, Vals, Params, Callbacks)
    end.
  
  update_blueprint(Config) ->
    File = proplists:get_value(file, Config),
    Data0 = [ "--- Test ---"
            , $\n
            , $\n
            ,  proplists:get_value(method, Config), " /", $\n
            , [  ["> ", H, ": ", V, $\n]
              || {H, V} <- proplists:get_value(request_headers, Config)
              ]
            ,"< ", proplists:get_value(response_code, Config), $\n
            , [  ["< ", H, ": ", V, $\n]
              || {H, V} <- proplists:get_value(response_headers, Config)
              ]
            ],
    Data = list_to_binary(lists:flatten(Data0)),
    ct:pal("~p~n", [Data]),
    file:write(File, Data),
    file:close(File),
    Config.
  
  
  defaults() ->
    [ {method, "GET"}
    , {response_code, "200"}
    , {request_headers, []}
    , {response_headers, []}
    ].
  