anchor.diff:      ?assertError({bad_options, [{foo, bar}, bad_option]},
           lhttpc:request("http://localhost/", get, [], <<>>, 1000,
               [bad_option, {foo, bar}])).
  +
   
   %%% Helpers functions
   
  
positive.code:                 ?_test(missing_basic_auth()),
                  ?_test(wrong_basic_auth()),
                  ?_test(get_with_mandatory_hdrs()),
                  ?_test(get_with_connect_options()),
                  ?_test(no_content_length()),
                  ?_test(no_content_length_1_0()),
  
negative.code:     ?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"),
  