anchor.diff:      ?assertEqual({200, "OK"}, status(Response1)),
       ?assertEqual(<<?DEFAULT_STRING>>, body(Response1)),
       ?assertEqual(<<"This is chunky stuff!">>,
  -        lhttpc_lib:header_value("X-Test-Orig-Body", headers(Response1))),
  +        lhttpc_lib:header_value("x-test-orig-body", headers(Response1))),
       % Make sure it works with no body part in the original request as well
       {ok, UploadState2} = lhttpc:request(URL, post, Hdrs, [], 1000, Options),
       Response2 = lists:foldl(fun upload_parts/2, UploadState2,
  
positive.code:     ?assertEqual({200, "OK"}, status(Response2)),
      ?assertEqual(<<?DEFAULT_STRING>>, body(Response2)),
      ?assertEqual(<<"This is chunky stuff!">>,
          lhttpc_lib:header_value("X-Test-Orig-Body", headers(Response2))),
      ?assertEqual(element(2, Trailer), 
          lhttpc_lib:header_value("X-Test-Orig-Trailer-1", headers(Response2))).
  
  close_connection() ->
      Port = start(gen_tcp, [fun close_connection/5]),
  
negative.code:     ?assertEqual(<<"Again, great success!">>, body(SecondResponse)),
      ?assertEqual("chunked", lhttpc_lib:header_value("transfer-encoding",
              headers(SecondResponse))),
      ?assertEqual("1", lhttpc_lib:header_value("trailer-1",
              headers(SecondResponse))),
      ?assertEqual("2", lhttpc_lib:header_value("trailer-2",
              headers(SecondResponse))).
  
  partial_upload_identity() ->
  