anchor.diff:  	{ok, [{auth, AuthInstance}, {acct, AcctInstance}]} = application:get_env(ocs, radius),
   	[{AuthAddress, AuthPort, _} | _] = AuthInstance,
   	[{AcctAddress, AcctPort, _} | _] = AcctInstance,
  -	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]), 
  +	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]),
   	PeerID = ocs:generate_identity(),
   	Secret = ct:get_config(radius_shared_secret),
   	Password = ocs:generate_password(),
  
positive.code: 	Rad2ID1 = 5,
  	NasID2 = "vlkf@example.net",
  	AcctSessionID2 = ocs:generate_identity(),
  	authenticate_subscriber1(Socket, AuthAddress, AuthPort, PeerID,
  			HiddenPassword, Secret, NasID2, ReqAuth, Rad2ID1, AcctSessionID2),
  	ct:sleep(500),
  	{ok, #subscriber{multisession = false, session_attributes = SessionList2}}
  			= ocs:find_subscriber(PeerID),
  
negative.code: 	AccAttributes = radius_attributes:codec(A2),
  	Acc1Length = size(AccAttributes) + 20,
  	AccAuthenticator = crypto:hash(md5, [<<?AccountingRequest, RadID,
  			Acc1Length:16, 0:128>>, AccAttributes, Secret]),
  	AccountingRequest = #radius{code = ?AccountingRequest, id = RadID,
  			authenticator = AccAuthenticator, attributes = AccAttributes},
  	AccPacket = radius:codec(AccountingRequest),
  