anchor.diff:  	#radius{code = ?AccountingResponse, id = RADAcct_ReqId} = radius:codec(RADAcct_response),
   	RADAcct_NewReqId = 2,
   	RADAcctNewAttributes1 = radius_attributes:store(?AcctStatusType, ?AccountingStop, RADAcctAttributes2),
  -	RADAcctNewAttributes2 = radius_attributes:store(?NasIdentifier, "xray@point1", RADAcctNewAttributes1),
  +	RADAcctNewAttributes2 = radius_attributes:store(?NasIdentifier, NasId, RADAcctNewAttributes1),
   	RADAcctNewAttributes3 = radius_attributes:store(?AcctInputOctets, 24657, RADAcctNewAttributes2),
   	RADAcctNewAttributes4 = radius_attributes:store(?AcctOutputOctets, 87465, RADAcctNewAttributes3),
   	RADAcctNewAttributesList = radius_attributes:codec(RADAcctNewAttributes4),
  
positive.code: 
  radius_accouting(Config) ->
  	Id = 1,
  	PeerID = list_to_binary(?config(peer_id, Config)),
  	{ok, AcctAddress} = application:get_env(ocs, radius_acct_addr),
  	{ok, AcctPort} = application:get_env(ocs, radius_acct_port),
  	{ok, AuthAddress} = application:get_env(ocs, radius_auth_addr),
  	{ok, AuthPort} = application:get_env(ocs, radius_auth_port),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, AuthAddress}, binary]), 
  	UserName = "simoon",
  	SharedSecret = ct:get_config(radius_shared_secret),
  	Authenticator = radius:authenticator(),
  	IDReqAttributeList0 = radius_attributes:new(),
  	IDReqAttributeList1 = radius_attributes:store(?UserName, UserName, IDReqAttributeList0),
  	IDReqAttributeList2 = radius_attributes:store(?NasIdentifier, "tomba123", IDReqAttributeList1),
  	IDReqAttributeList3 = radius_attributes:store(?NasPort,0, IDReqAttributeList2),
  	IDReqAttributeList4 = radius_attributes:store(?CallingStationId,"de:ad:be:ef:ca:fe",
  		IDReqAttributeList3),
  
negative.code: disconnect_session(Config) ->
  	Id = 1,
  	PeerID = list_to_binary(?config(peer_id, Config)),
  	NasId = ?config(nas_id, Config),
  	AcctAddress = {127, 0, 0, 1},
  	AuthAddress = {127, 0, 0, 1},
  	{ok, AcctPort} = application:get_env(ocs, radius_acct_port),
  	{ok, AuthPort} = application:get_env(ocs, radius_auth_port),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]), 
  	UserName = "simoon",
  	SharedSecret = ct:get_config(radius_shared_secret),
  	Authenticator = radius:authenticator(),
  	IDReqAttributeList0 = radius_attributes:new(),
  	IDReqAttributeList1 = radius_attributes:store(?UserName, UserName, IDReqAttributeList0),
  	IDReqAttributeList2 = radius_attributes:store(?NasIdentifier, NasId, IDReqAttributeList1),
  	IDReqAttributeList3 = radius_attributes:store(?NasPort,0, IDReqAttributeList2),
  	IDReqAttributeList4 = radius_attributes:store(?CallingStationId,"de:ad:be:ef:ca:fe",
  		IDReqAttributeList3),
  