anchor.diff:  	[{userdata, [{doc, "Successful simple authentication using DIAMETER NAS application"}]}].
   
   simple_authentication_diameter(Config) ->
  -	Username = ?config(username, Config),
  -	Password = ?config(password, Config),
  +	Id = 1,
  +	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  +	OfferId = add_offer([P1], 4),
  +	ProdRef = add_product(OfferId),
  +	#service{name = Username,
  +			password = Password} =  add_service(ProdRef),
  +	B1 = bucket(octets, rand:uniform(100000)),
  +	_BId = add_bucket(ProdRef, B1),
   	Ref = erlang:ref_to_list(make_ref()),
   	SId = diameter:session_id(Ref),
   	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  
positive.code: 	{ok, _Ref} = connect(?SVC, Address, Port, diameter_tcp),
  	receive
  		#diameter_event{service = ?SVC, info = start} ->
  			[{product_id, ProdID}, {diameter_client, Address}] ++ Config;
  		_ ->
  			{skip, diameter_client_service_not_started}
  	end.
  
negative.code: 	A1 = radius_attributes:add(?ServiceType, 2, A0),
  	A2 = radius_attributes:add(?NasPortId, "wlan1", A1),
  	A3 = radius_attributes:add(?NasPortType, 19, A2),
  	A4 = radius_attributes:add(?UserName, binary_to_list(PeerID), A3),
  	A5 = radius_attributes:add(?AcctSessionId, "826005e0", A4),
  	A6 = radius_attributes:add(?CallingStationId, CallingStationId, A5),
  	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),
  