anchor.diff:  	RadID4 = RadID3 + 1,
   	accounting_stop(Socket, AcctAddress, AcctPort,
   			PeerID, Secret, NasID, AcctSessionID, RadID4, 1350000987, 1350000654),
  -	DiscPort = ?config(radius_disc_port, Config),
  -	disconnect_request(DiscPort).
  +	DiscSocket = ?config(radius_disc_socket, Config),
  +	disconnect_request(DiscSocket).
   
   radius_multisession_disallowed() ->
   	[{userdata, [{doc, "Start multiple RADIUS sessions for a subscriber when
  
positive.code: 	RadID1 = 10,
  	NasID = ?config(nas_id, Config),
  	AcctSessionID = ocs:generate_identity(),
  	{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]),
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  
negative.code: 			ReqAuth, Attributes, Secret])).
  
  receive_radius(Code, Socket, Address, Port, RadID) ->
  erlang:display({?MODULE, ?LINE, Code, Socket, Address, Port, RadID}),
  	{ok, {Address, Port, RespPacket}} = gen_udp:recv(Socket, 0),
  erlang:display({?MODULE, ?LINE, radius:codec(RespPacket)}),
  	#radius{code = Code, id = RadID} = radius:codec(RespPacket).
  
  access_request(Socket, Address, Port, UserName, Secret,
  