anchor.diff:      ";" ++ A ++ print_parameters(B).
   
   %%--------------------------------------------------------------------
  -%% Function:
  -%% Descrip.: print via record() or list() of via record()
  -%% Returns :
  +%% Function: via_print(Via)
  +%%           Via = via record()
  +%% Descrip.: Print via record() or list() of via record().
  +%% Returns : list() of ViaStr
  +%%           ViaStr = string()
   %%--------------------------------------------------------------------
   via_print(Via) when is_record(Via, via) ->
       via_print([Via]);
  
positive.code:     io:format("test: via/1 - 9~n"),
      %% test unparsable via - fail inside sipparse_util:parse_hostport() since there is a 500 in the address
      {'EXIT', _} = (catch via(["SIP/2.0/TLS 192.0.2.500:5060"])),
      
      
      %% test get_server_transaction_id/1
      %%--------------------------------------------------------------------
  
      io:format("test: get_server_transaction_id/1 - 1.1~n"),
  
negative.code:     AckInvite2543_1Id = Invite2543_1AckId,
  
  
      %% test get_client_transaction_id(Response)
      %%--------------------------------------------------------------------
      io:format("test: get_client_transaction_id/1 - 1~n"),
      Response1 = #response{status=699, reason="foo", header=Invite2543_1Header, body = <<>>},
      {"not-really-unique", "INVITE"} = get_client_transaction_id(Response1),
  
  
      %% test contact(Header)
      %% No full test of parameters - we don't test the actual contact parsing here.
      %%--------------------------------------------------------------------
      ContactHeader1 = keylist:from_list([
  					{"From", ["Test <sip:alice@example.org>;tag=f-abc"]},
  					{"Contact", ["<sip:bob@example.org>;lr=true"]}
  				       ]),
  
      io:format("test: contact/1 - 1~n"),
      %% test using list key
      [#contact{urlstr="sip:bob@example.org"}] = contact(ContactHeader1),
  
  
      %% test contact(Header, Name).
      %% No full test of parameters - we don't test the actual contact parsing here.
      %%--------------------------------------------------------------------
      io:format("test: contact/2 - 1~n"),
      %% test using atom key
  