anchor.diff:      {"call-id-test", "fromtag", "totag"} = dialogid(DialogHeader1),
   
       io:format("test: dialogid/1 - 2~n"),
  -    {"call-id-test", "fromtag", none} = dialogid(keylist:set("To", ["foo"], DialogHeader1)),
  +    {"call-id-test", "fromtag", none} = dialogid(keylist:set("To", ["sip:foo@example.org"], DialogHeader1)),
   
       io:format("test: dialogid/1 - 3~n"),
  -    {"call-id-test", none, "totag"} = dialogid(keylist:set("From", ["foo"], DialogHeader1)),
  +    {"call-id-test", none, "totag"} = dialogid(keylist:set("From", ["sip:foo@example.org"], DialogHeader1)),
   
   
       %% test expires(Header)
  
positive.code: %% Function: get_tag([String])
  %% Descrip.: Get From- or To-tag from from- or to-header value.
  %% Returns : Tag = string() | none
  %%--------------------------------------------------------------------
  get_tag([String]) ->
      Index = string:chr(String, $>),
      ParamStr = string:substr(String, Index + 1),
      ParamList = string:tokens(ParamStr, ";"),
      ParamDict = param_to_dict(ParamList),
      case dict:find("tag", ParamDict) of
  	error ->
  	    none;
  	{ok, Tag} ->
  	    Tag
      end.
  
  
negative.code:     io:format("test: comma/1 - 10~n"),
      ["fo","ob","ar",""] = comma("fo,ob,ar,"),
  
      %% preceding comma
      io:format("test: comma/1 - 11~n"),
      ["","fo","ob","ar"] = comma(",fo,ob,ar"),
  
  