anchor.diff:  
   
   
  -%% content_length() ->
  -%%     S = s(),
  -%%     {ok, Response} = lhttpc:request("http://localhost:8080/304",
  -%%                                     "GET", [], 1000),
  +content_length() ->
  +    {ok, Response} = httpc:request("http://localhost:8080/304"),
   
  -%%     ?assertEqual({304, "OK"}, status(Response)),
  -%%     ?assertEqual([{"Connection", "Keep-Alive"},
  -%%                   {"Content-Length", "0"}], headers(Response)),
  -%%     ?assertEqual(<<>>, body(Response)),
  +    ?assertEqual(304, status(Response)),
  +    ?assertEqual([{"connection", "Keep-Alive"},
  +                  {"content-length", "0"}], headers(Response)),
  +    ?assertEqual([], body(Response)).
   
  -%%     stop(S).
  +
   
   
   body_qs_test() ->
  
positive.code:     ?assertEqual("Internal server error", body(Response)).
  
  
  %% no_compress() ->
  %%     {ok, Response} = lhttpc:request("http://localhost:8080/compressed", "GET",
  %%                                     [{"Accept-Encoding", "gzip"}], 1000),
  %%     ?assertEqual({200, "OK"}, status(Response)),
  %%     ?assertEqual([{"Connection", "Keep-Alive"},
  %%                   {"Content-Length", "1032"}], headers(Response)),
  %%     ?assertEqual(binary:copy(<<"Hello World!">>, 86), body(Response)).
  
  exception_flow() ->
      {ok, Response} = httpc:request("http://localhost:8080/403"),
  
negative.code:       ?_test(hello_world()),
        ?_test(not_found()),
        ?_test(crash()),
        ?_test(no_compress()),
        ?_test(exception_flow()),
        ?_test(user_connection()),
        ?_test(get_args()),
        ?_test(shorthand()),
        ?_test(bad_request()),
        ?_test(content_length())
       ]}.
  
  
  