anchor.diff:  %% External exports
   %%--------------------------------------------------------------------
   -export([
  -	 expire/1,
  +	 expires/1,
   	 to/1,
   	 from/1,
   	 contact/1,
  
positive.code: %%--------------------------------------------------------------------
  %% Function: auth([In])
  %%           In = string()
  %% Descrip.: parse authrization header
  %% Returns : throw() | dict()
  %%--------------------------------------------------------------------
  auth([In]) when is_list(In) ->
  
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
  