anchor.diff:  	#service{name = Username} =  add_service(ProdRef),
   	B1 = bucket(octets, rand:uniform(100000)),
   	_BId = add_bucket(ProdRef, B1),
  -	InvalidPassword = ocs:generate_password(), 
  +	InvalidPassword = ocs:generate_password(),
   	Ref = erlang:ref_to_list(make_ref()),
   	SId = diameter:session_id(Ref),
   	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  
positive.code: 	CallingStationId = string:join(MACtokens, "-"),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config({radius, secret}),
  	UserPassword = radius_attributes:hide(SharedSecret, Authenticator, PeerPassword),	
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{AuthAddress, AuthPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	Socket = ?config(socket, Config), 
  	A0 = radius_attributes:new(),
  	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),
  
negative.code: 	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	#service{name = UserName,
  			password = PeerPassword} =  add_service(ProdRef),
  	B1 = bucket(octets, rand:uniform(100000)),
  	_BId = add_bucket(ProdRef, B1),
  