anchor.diff:  add_product(OfferId) ->
   	add_product(OfferId, []).
   add_product(OfferId, Chars) ->
  -	{ok, #product{id = ProdRef}} = ocs:add_product(OfferId, Chars),
  +	{ok, #product{id = ProdRef}} = ocs:add_product(OfferId, [], Chars),
   	ProdRef.
   
  -%% @hidden
   bucket(Units, RA) ->
   	#bucket{units = Units, remain_amount = RA,
   			start_date = erlang:system_time(?MILLISECOND),
  
positive.code: 	{_, "32274@3gpp.org"} = lists:keyfind("serviceContextId", 1, ServiceRating),
  	{_, {_, [{_, Messages1}]}} = lists:keyfind("consumedUnit", 1, ServiceRating).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
  nrf_post_final_ecur_class_b(MSISDN, IMSI, Messages) ->
  	TS = erlang:system_time(?MILLISECOND),
  
negative.code: 	NewEnvVar = [Auth, {acct, [{DAddress, Port, NewOptions}]}],
  	ok = application:set_env(ocs, diameter, NewEnvVar),
  	Config;
  init_per_testcase(TestCase, Config)
  		when TestCase == send_initial_scur_class_a ->
  	Address = ?config(diameter_acct_address, Config),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	{ok, [Auth, {acct, [{DAddress, Port, Options}]}]} = application:get_env(ocs, diameter),
  	NewOptions = Options ++ [{class, undefined}],
  	NewEnvVar = [Auth, {acct, [{DAddress, Port, NewOptions}]}],
  	ok = application:set_env(ocs, diameter, NewEnvVar),
  	Config;
  init_per_testcase(_TestCase, Config) ->
  	Config.
  
  