anchor.diff:                 "\r\n",
                  Payload],
       ParseResult = send_request(Request),
  -    ?assertMatch({ok, _Header}, ParseResult).
  +    ?_assertMatch({ok, _Header}, ParseResult).
   
  -handle_content_type_iso8859() ->
  +handle_content_type_iso8859(_Pid) ->
       Payload = ["<?xml version=\"1.0\"?>",
                  "<methodCall>",
                  "<methodName>echo</methodName>",
  
positive.code: 
  variables_types_test_() ->
      [{"A simple int value is be a valid parameter type",
       ?setup(fun handle_int_call/0)},
       {"A simple float value is a valid parameter type",
        ?setup(fun handle_float_call/0)},
       {"A complex struct value is a valid parameter type",
        ?setup(fun handle_struct_call/0)}
       ].
  
  timeout_call_test_() ->
      [{"A timeout call time can be made",
       ?setup(fun handle_timeout_call/0)}].
  
  header_variants_test_() ->
      [{"A HTTP header can be specified in lowcase",
       ?setup(fun handle_lowcase_header/0)},
      {"The content type charset is ignored",
       ?setup(fun handle_content_type_iso8859/0)}].
  
  is_alive(Pid) ->
      [?_assert(erlang:is_process_alive(Pid))].
  
  handle_int_call() ->
      ?_assert(xmlrpc:call(localhost, 4567, "/",
                          {call, echo, [42]}) =:= {ok,{response,[{array, [42]}]}}).
  
  handle_float_call() ->
      ?_assert(xmlrpc:call(localhost, 4567, "/",
                          {call, echo, [42.0]}) =:= {ok,{response,[{array, [42.0000]}]}}).
  
  handle_struct_call() ->
      ?_assert(xmlrpc:call({127, 0, 0, 1}, 4567, "/",
                          {call, echo, [2.6,
                                        {array, [5, "foo"]},
                                        {struct,
  
negative.code:                                    {struct,
                                      [{baz,1},
                                       {bar,{base64,"aXMgdGhpcyBiaW5hcnkgPw=="}}]
                                     }]}]}})].
  
  handle_timeout_call(_Pid) ->
      ShouldBe = {ok,{response,[{array, [42]}]}},
      Response = xmlrpc:call(localhost, 4567, "/",
                          {call, echo, [42]}, false, 10000),
      ?_assertEqual(ShouldBe, Response).
  
  handle_extraheader_call(_Pid) ->
      ?_assertEqual({ok,{response,[{array, [421]}]}},
                     xmlrpc:call(localhost, 4567, "/",
                                 {call, echo, [421]}, false, 10000,
                                 "Cookie: DUMMY=yes", [{ssl, false}])).
  
  handle_lowcase_header(_Pid) ->
      Payload = ["<?xml version=\"1.0\"?>",
                 "<methodCall>",
                 "<methodName>echo</methodName>",
  