anchor.diff:      ?assertEqual({200, "OK"}, status(Response)),
       ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
   
  +get_with_mandatory_hdrs_by_atoms() ->
  +    Port = start(gen_tcp, [fun simple_response/5]),
  +    URL = url(Port, "/host"),
  +    Body = <<?DEFAULT_STRING>>,
  +    Hdrs = [
  +        {'Content-Length', integer_to_list(size(Body))},
  +        {'Host', "localhost"}
  +    ],
  +    {ok, Response} = lhttpc:request(URL, "POST", Hdrs, Body, 1000),
  +    ?assertEqual({200, "OK"}, status(Response)),
  +    ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
  +
  +get_with_mandatory_hdrs_by_binaries() ->
  +    Port = start(gen_tcp, [fun simple_response/5]),
  +    URL = url(Port, "/host"),
  +    Body = <<?DEFAULT_STRING>>,
  +    Hdrs = [
  +        {<<"Content-Length">>, integer_to_list(size(Body))},
  +        {<<"Host">>, "localhost"}
  +    ],
  +    {ok, Response} = lhttpc:request(URL, "POST", Hdrs, Body, 1000),
  +    ?assertEqual({200, "OK"}, status(Response)),
  +    ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
  +
   get_with_connect_options() ->
       Port = start(gen_tcp, [fun empty_body/5]),
       URL = url(Port, "/empty"),
  
positive.code:     ?assertError({bad_options, [{foo, bar}, bad_option]},
          lhttpc:request("http://localhost/", get, [], <<>>, 1000,
              [bad_option, {foo, bar}])).
  
  %%% Helpers functions
  
  
negative.code:                 ?_test(missing_basic_auth()),
                  ?_test(wrong_basic_auth()),
                  ?_test(get_with_mandatory_hdrs()),
                  ?_test(get_with_mandatory_hdrs_by_atoms()),
                  ?_test(get_with_mandatory_hdrs_by_binaries()),
                  ?_test(get_with_connect_options()),
                  ?_test(no_content_length()),
                  ?_test(no_content_length_1_0()),
  