anchor.diff:  	RADAcctAttributes14 = radius_attributes:store(?AcctInputOctets, 200, RADAcctAttributes13),
   	RADAcctAttributes15 = radius_attributes:store(?AcctOutputOctets, 200, RADAcctAttributes14),
   	RADAcctAttributes16 = radius_attributes:store(?NasIpAddress, AcctAddress, RADAcctAttributes15),
  -	RADAcctAttributes17 = radius_attributes:store(?NasIdentifier, "xray@point1", RADAcctAttributes16),
  +	RADAcctAttributes17 = radius_attributes:store(?NasIdentifier, NasId, RADAcctAttributes16),
   	RADAcctAttributes18 = radius_attributes:store(?MessageAuthenticator,
   		list_to_binary(lists:duplicate(16,0)), RADAcctAttributes17),
   	RADAcctAttributesList11 = radius_attributes:codec(RADAcctAttributes18),
  
positive.code: 		attributes = RADAcctNewAttributesList},
  	RADAcct_stop_packet = radius:codec(RADAcct_stop_rec),
  	ok = gen_udp:send(Socket, AcctAddress, AcctPort, RADAcct_stop_packet),
  	{ok, Socket1} = gen_udp:open(3799, [{active, false}, inet, {ip, AuthAddress}, binary]), 
  	{ok, {OCSAddr, OCSPort, DiscReq}} = gen_udp:recv(Socket1, 0),
  	#radius{code = ?DisconnectRequest, id = DiscReqID} = radius:codec(DiscReq),
  	DiscAckAuth = radius:authenticator(),
  
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),
  