anchor.diff:  	[{userdata, [{doc, "Start multiple RADIUS sessions for a subscriber when
   			multiple RADIUS sessions are allowed."}]}].
   
  -radius_multisession(Config) ->
  +radius_multisession(_Config) ->
   	RadID1 = 11,
   	NasID1 = "axe1@ap-1.org",
   	AcctSessionID1 = ocs:generate_identity(),
  -	ProdID = ?config(product_id, Config),
   	{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),
   	PeerID = ocs:generate_identity(),
  +	Password = ocs:generate_identity(),
  +	{ok, #service{}} = ocs:add_service(PeerID, Password,
  +			ProdRef, [], true, true),
  +	B1 = bucket(octets, rand:uniform(100000)),
  +	_BId = add_bucket(ProdRef, B1),
   	Secret = ct:get_config(radius_shared_secret),
  -	Password = ocs:generate_password(),
  -	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  -	{ok, _} = ocs:add_service(PeerID, Password, ProdID, [], Buckets, [], true, true),
   	ReqAuth = radius:authenticator(),
   	HiddenPassword = radius_attributes:hide(Secret, ReqAuth, Password),
   	%% Authenticate session 1
  
positive.code: 	ReqPacket2 = radius:codec(Request2),
  	gen_udp:send(Socket, Address, Port, ReqPacket2).
  
  accounting_request(StatusType, Socket, Address, Port,
  		UserName, Secret, NasID, AcctSessionID, RadID, RadAttributes) ->
  	A1 = session_attributes(UserName, NasID, AcctSessionID, RadAttributes),
  
negative.code: diameter_disconnect_session() ->
  	[{userdata, [{doc, "Disconnect a DIAMETER accounting session based on usage"}]}].
  
  diameter_disconnect_session(_Config) ->
  	P1 = price(usage, octets, 1000000, 100),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	Username = ocs:generate_identity(),
  	Password = ocs:generate_identity(),
  	{ok, #service{}} = ocs:add_service(Username, Password, ProdRef, []),
  	B1 = bucket(octets, 2000000000),
  	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	RequestNum0 = 0,
  