anchor.diff:      %% 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.
  
positive.code: %% 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
  %%====================================================================
  
  %%--------------------------------------------------------------------
  
negative.code:     io:format("test: parse/1 request - 1.2~n"),
      ["SIP/2.0/TCP one.example.org"] = keylist:fetch('via', Header1),
  
      Message2 =
  	"INVITE sip:test@example.org SIP/2.0\r\n"
  	"Via: SIP/2.0/TCP two.example.org\r\n"
  	"From: \"Test Test\" <sip:test@example.org>;tag=abc\r\n"
  