anchor.diff:  %% Returns : response record()
   %%--------------------------------------------------------------------
   response({Status, Reason}, Header, Body) ->
  -    #response{status=list_to_integer(Status), reason=Reason, header=Header, body=Body}.
  -
  -
  -%%====================================================================
  -%% Test functions - belong at the bottom of the module
  +    siprequest:set_response_body(#response{status=list_to_integer(Status), reason=Reason, header=Header}, Body).
  +
  +
  +%%====================================================================
  +%% Test functions
   %%====================================================================
   
   %%--------------------------------------------------------------------
  
positive.code: %%--------------------------------------------------------------------
  request({Method, URI}, Header, Body) ->
      URL = sipurl:parse(URI),
      #request{method=Method, uri=URL, header=Header, body=Body}.
  
  %%--------------------------------------------------------------------
  %% Function: response({Status, Reason}, Header, Body)
  
negative.code:     %% verify the Via header so we know keylist is created as it should
      io:format("test: parse/1 response - 2.2~n"),
      ["SIP/2.0/TLS 192.0.2.78"] = keylist:fetch('via', RHeader2),
  
      %% '3.1.2.19  Overlarge response code' from draft-ietf-sipping-torture-tests-04.txt
      %% (in a shorter form) - the draft says you should just ignore responses with
      %% too large response codes, so we can do that here already.
  