anchor.diff:  	A7 = radius_attributes:add(?CalledStationId, CalledStationId, A6),
   	A8 = radius_attributes:add(?UserPassword, UserPassword, A7),
   	A9 = radius_attributes:add(?NasIdentifier, NasId, A8),
  -erlang:display({?MODULE, ?LINE, A9}),
   	AccessReqest = #radius{code = ?AccessRequest, id = Id,
   			authenticator = Authenticator, attributes = A9},
   	AccessReqestPacket= radius:codec(AccessReqest),
  
positive.code: bad_password_diameter() ->
  	[{userdata, [{doc, "Diameter simple authentication failure wheh a wrong password is used"}]}].
  
  bad_password_diameter(Config) ->
  	Username = ?config(username, Config),
  	InvalidPassword = "starGazer987",
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  
negative.code: out_of_credit_diameter() ->
  	[{userdata, [{doc, "Diameter authentication failure when subscriber has a balance less than 0"}]}].
  
  out_of_credit_diameter(_Config) ->
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  