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: 
  unknown_username_radius(Config) ->
  	Id = 3,
  	NasId = ?config(nas_id, Config),
  	CalledStationId = ?config(called_id, Config),
  	ProdID = ?config(product_id, Config),
  	MAC = "DD:EE:DD:EE:DD:CC",
  	MACtokens = string:tokens(MAC, ":"),
  	CallingStationId = string:join(MACtokens, "-"),
  	PeerID = string:to_lower(lists:append(MACtokens)),
  	PeerPassword = ocs:generate_password(),
  	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  	{ok, _} = ocs:add_service(PeerID, PeerPassword, ProdID, [], Buckets, []),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	UserPassword = radius_attributes:hide(SharedSecret, Authenticator, PeerPassword),	
  	BogusUserName = "tormentor",
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{AuthAddress, AuthPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	Socket = ?config(socket, Config), 
  
negative.code: 	_BId = add_bucket(ProdRef, B1),
  	NasId = ?config(nas_id, Config),
  	CalledStationId = ?config(called_id, Config),
  	MAC = "DD:EE:DD:EE:DD:CC",
  	MACtokens = string:tokens(MAC, ":"),
  	CallingStationId = string:join(MACtokens, "-"),
  