anchor.diff:  	    {Displayname, URI}
       end.
   
  +%% part of name_header/1. XXX this function fails on escaped quotes inside String
  +%% XXX there is a similar function in the module contact. Merge them.
   parse_displayname(String) ->
       LeftQuoteIndex = string:chr(String, $\"),
       case LeftQuoteIndex of
  
positive.code:     [ViaPrint1_Str] = via_print([ViaPrint1]),
  
      io:format("test: via_print/1 - 2~n"),
      %% two Vias
      [ViaPrint1_Str, ViaPrint2_Str] = via_print([ViaPrint1, ViaPrint2]),
  
      
      %% test auth([In])
      %%--------------------------------------------------------------------
      AuthIn1 = ["Digest response=\"1response1\", uri=\"2bar2\""],
      AuthIn2 = ["GSSAPI response=\"1response1\", uri=\"2bar2\""],
      AuthIn3 = ["Unknown response=\"1response1\", uri=\"2bar2\""],
  
      AuthOut = [{"response","1response1"},{"uri","2bar2"}],
  
      io:format("test: auth/1 - 1~n"),
      %% digest
      AuthOut = lists:keysort(1, dict:to_list(
  				 sipheader:auth(AuthIn1)
  				)),
  
      io:format("test: auth/1 - 2~n"),
      %% GSSAPI
      AuthOut = lists:keysort(1, dict:to_list(
  				 sipheader:auth(AuthIn2)
  				)),
  
      io:format("test: auth/1 - 3~n"),
      %% Unknown
      {siperror, 500, "Server Internal Error"} = (catch sipheader:auth(AuthIn3)),
  
  
      %% test param_to_dict(Param)
  
negative.code: 	    none;
  	{ok, Branch} ->
  	    Branch
      end.
  
  %%--------------------------------------------------------------------
  %% Function: via_is_equal(A, B)
  %%           A, B = via record()
  %% Descrip.: Compare two Via records according to the rules in
  %%           RFC3261 20.42 (Via)
  %% Returns : true  |
  %%           false
  %%--------------------------------------------------------------------
  via_is_equal(A, B) when is_record(A, via), is_record(B, via) ->
      via_is_equal(A, B, [proto, host, port, parameters]).
  
  
  %%--------------------------------------------------------------------
  %% Function: via_is_equal(A, B, CmpList)
  %%           A, B = via record()
  %%           CmpList = list() of proto|host|port|parameters - what to
  %%                     compare
  %% Descrip.: Compare one or more parts of two Via records according
  %%           to RFC3261 20.42.
  %% Returns : true  |
  