anchor.diff:  
   -include_lib("eunit/include/eunit.hrl").
   
  +-define(DEFAULT_STRING, "Great success!").
  +
   %%% Eunit setup stuff
   
   start_app() ->
  
positive.code:     Body = pid_to_list(self()),
      {ok, Response} = lhttpc:request(URL, "PUT", [], Body, 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(<<"Great success!">>, body(Response)),
      receive closed -> ok end.
  
  simple_put() ->
  
negative.code:     {StatusCode, ReasonPhrase} = status(Response),
      ?assertEqual(200, StatusCode),
      ?assertEqual("OK", ReasonPhrase),
      ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
  
  status({Status, _, _}) ->
      Status.
  