anchor.diff:  %%_* Tests =====================================================================
   
   test({init, _Config}) ->
  -  [{headers, [{"Content-Length", "0"}]}];
  +  [ {request_headers, [{"Content-Length", "0"}]}
  +  , {response_code, "204"}
  +  ];
   test(Config) ->
     run(Config).
   
  
positive.code:   lhttpc:start(),
    application:stop(unrest),
    Path = filename:join([code:priv_dir(unrest), "webmachine.yml"]),
    Blueprint = filename:join([ code:priv_dir(unrest)
                              , ".."
                              , "test"
                              , "webmachine.apib"
                              ]),
    unrest:start(Path),
    [{blueprint, Blueprint} | 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, []}
    ].
  