anchor.diff:  	{start_sippipe, Res} ->
   	    Res
       after 0 ->
  -	    {error, "no created response in my mailbox"}
  +	    {error, "no sippipe data in my mailbox"}
       end.
   
  +
  +add_valid_credentials(MethodName, Request, User) ->
  +    Password = sipuserdb:get_password_for_user(User),
  +    add_valid_credentials(MethodName, Request, User, Password).
  +
  +add_valid_credentials(MethodName, Request, User, Password) ->
  +    true = is_list(Password),
  +    NewHeader =
  +	sipauth:add_credentials(digest, MethodName,
  +				Request#request.method, Request#request.uri,
  +				Request#request.header, User, Password),
  +    Request#request{header = NewHeader}.
  
positive.code:     %% request(Request, YxaCtx)
      %%--------------------------------------------------------------------
      autotest:mark(?LINE, "request/2 - INVITE to pstn 1.0"),
      Message1 =
  	"INVITE sip:+123456@test.example.org SIP/2.0\r\n"
  	"Via: SIP/2.0/TEST gw.example.org\r\n"
  
negative.code:     ok = test_OPTIONS(),
      ok = test_INVITE_from_gw(),
      ok = test_INVITE_to_pstn(),
      ok = test_From_addr_verification(),
      ok.
  
  test_OPTIONS() ->
  