anchor.diff:      MyHostname = myhostname(),
       true = is_list(MyHostname),
   
  +
  +    %% generate_branch()
  +    %%--------------------------------------------------------------------
       %% test that generate_branch gives us a RFC3261 branch
       io:format("test: generate_branch/0 - 1~n"),
       Branch = generate_branch(),
       "z9hG4bK-yxa-" = string:substr(Branch, 1, 12),
   
  +
  +    %% make_3261_token(In)
  +    %%--------------------------------------------------------------------
       %% test that our make_3261_token produces the expected results
       io:format("test: make_3261_token/1 - 1~n"),
       "abcdeXYZ-.!%*_+`'~123_" = make_3261_token("abcdeXYZ-.!%*_+`'~123@"),
  
positive.code:     MaxFwd_H7 = keylist:set("Max-Forwards", ["-1"], MaxFwd_H1),
      {siperror, 483, _} = (catch proxy_check_maxforwards(MaxFwd_H7)),
  
      ok.
  
negative.code: %%           error
  %%           Branch = string()
  %%--------------------------------------------------------------------
  stateless_generate_branch(OrigURI, Header, Nodename) ->
      case sipheader:topvia(Header) of
  	TopVia when is_record(TopVia, via) ->
  	    case sipheader:get_via_branch(TopVia) of
  		"z9hG4bK" ++ RestOfBranch ->
  		    %% The previous hop has put a RFC3261 branch in it's Via. Use that,
  		    %% togehter with our nodename as branch.
  		    In = lists:concat([Nodename, "-rbranch-", RestOfBranch]),
  		    {ok, "z9hG4bK-yxa-" ++ make_base64_md5_token(In)};
  		_ ->
  		    %% No branch, or non-RFC3261 branch. XXX RFC32611 #16.11 suggests
  		    %% to include the Top-Via in the hash we generte here. We don't,
  		    %% but perhaps there was a reason. It was a long time since we were
  		    %% stateless, so I won't change that now - ft 2005-03-22. Revisit
  		    %% this question if/when we have a use case.
  		    OrigURIstr = sipurl:print(OrigURI),
  		    FromTag = sipheader:get_tag(keylist:fetch('from', Header)),
  		    ToTag = sipheader:get_tag(keylist:fetch('to', Header)),
  		    CallId = keylist:fetch('call-id', Header),
  		    {CSeqNum, _} = sipheader:cseq(keylist:fetch('cseq', Header)),
  		    In = lists:concat([Nodename, "-uri-", OrigURIstr, "-ftag-", FromTag, "-totag-", ToTag,
  				       "-callid-", CallId, "-cseqnum-", CSeqNum]),
  		    {ok, "z9hG4bK-yxa-" ++ make_base64_md5_token(In)}
  	    end;
  