anchor.diff:                  ?_test(pre_1_1_server_keep_alive()),
                   ?_test(simple_put()),
                   ?_test(post()),
  +                ?_test(post_100_continue()),
                   ?_test(bad_url()),
                   ?_test(persistent_connection()),
                   ?_test(request_timeout()),
  
positive.code:         ]
      ).
  
  respond_and_close(Module, Socket, _, _, Body) ->
      Pid = list_to_pid(binary_to_list(Body)),
      Module:send(
  
negative.code: 
  post() ->
      Port = start(gen_tcp, [fun copy_body/5]),
      URL = url(Port, "/post"),
      {X, Y, Z} = now(),
      Body = [
          "This is a rather simple post :)",
          integer_to_list(X),
          integer_to_list(Y),
          integer_to_list(Z)
      ],
      {ok, Response} = lhttpc:request(URL, "POST", [], Body, 1000),
      {StatusCode, ReasonPhrase} = status(Response),
      ?assertEqual(200, StatusCode),
      ?assertEqual("OK", ReasonPhrase),
      ?assertEqual(iolist_to_binary(Body), body(Response)).
  
  post_100_continue() ->
      Port = start(gen_tcp, [fun copy_body_100_continue/5]),
      URL = url(Port, "/post"),
      {X, Y, Z} = now(),
      Body = [
  