anchor.diff:      {ok, SecondResponse} = lhttpc:request(URL, "GET", Headers, 1000),
       {ok, ThirdResponse} = lhttpc:request(URL, "POST", [], 1000),
       ?assertEqual({200, "OK"}, status(FirstResponse)),
  -    ?assertEqual(<<"Great success!">>, body(FirstResponse)),
  +    ?assertEqual(<<?DEFAULT_STRING>>, body(FirstResponse)),
       ?assertEqual({200, "OK"}, status(SecondResponse)),
  -    ?assertEqual(<<"Great success!">>, body(SecondResponse)),
  +    ?assertEqual(<<?DEFAULT_STRING>>, body(SecondResponse)),
       ?assertEqual({200, "OK"}, status(ThirdResponse)),
       ?assertEqual(<<>>, body(ThirdResponse)).
   
  
positive.code:         Socket,
          "HTTP/1.1 200 OK\r\n"
          "Content-type: text/plain\r\nContent-length: 14\r\n\r\n"
          "Great success!"
      ).
  
  no_content_length(Module, Socket, _, _, _) ->
  
negative.code:     URL = "http://localhost:" ++ integer_to_list(Port) ++ "/no_cl",
      {ok, Response} = lhttpc:request(URL, "GET", [], 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
  
  connection_close() ->
      Port = start(gen_tcp, [fun respond_and_close/5]),
  