anchor.diff:  		TestCase == diameter_voice_out_tariff;
   		TestCase == diameter_voice_in_tariff;
   		TestCase == scur_start_redirect_server;
  -		TestCase == diameter_scur_price_descrimination_by_rg->
  +		TestCase == diameter_scur_price_descrimination_by_rg ->
   	Address = ?config(diameter_acct_address, Config),
   	ok = ocs:delete_client(Address).
   
  
positive.code: 		TestCase == diameter_voice_out_tariff;
  		TestCase == diameter_voice_in_tariff;
  		TestCase == scur_start_redirect_server;
  		TestCase == diameter_scur_price_descrimination_by_rg->
  	Address = ?config(diameter_acct_address, Config),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	Config.
  
negative.code: 			'Redirect-Server-Address' = CCARedirectServer}]}] = Fui.
  
  diameter_scur_price_descrimination_by_rg() ->
  	[{userdata, [{doc, "DIAMETER SCUR Price Descrimination By Rating Group"}]}].
  
  diameter_scur_price_descrimination_by_rg(_Config) ->
  	ServiceID = ocs:generate_identity(),
  	MSISDN = list_to_binary(ServiceID),
  	Type = usage,
  	Units = octets,
  	Amount1 = rand:uniform(10000),
  	Amount2 = rand:uniform(10000),
  	P1 = #price{name = ocs:generate_identity(), type = Type,
  					units = Units, size = 1, amount = Amount1,
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 100}]}]},
  	P2 = #price{name = ocs:generate_identity(), type = Type,
  					units = Units, size = 1, amount = Amount2,
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 200}]}]},
  	OfferId = add_offer([P1, P2], 4),
  	ProdRef = add_product(OfferId),
  	{ok, #service{}} = ocs:add_service(ServiceID, undefined, ProdRef, []),
  	F1 = fun() ->
  			mnesia:write(product, #product{id = ProdRef, service = [MSISDN]})
  	end,
  	mnesia:transaction(F1),
  	Balance = 1000000 + rand:uniform(1000000000),
  	B1 = bucket(octets, Balance),
  	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	SubscriptionId = #'3gpp_ro_Subscription-Id'{
  