anchor.diff:  add_bucket(ProdRef, Bucket) ->
   	{ok, _, #bucket{id = BId}} = ocs:add_bucket(ProdRef, Bucket),
   	BId.
  +
  
positive.code: 	ok = ocs_test_lib:initialize_db(),
  	ok = ocs_test_lib:load(ocs),
  	RadiusAddress = ct:get_config({radius, address}),
  	RadiusPeerAddress = ct:get_config({radius, peer_address}),
  	RadiusAuthPort = ct:get_config({radius, auth_port}, rand:uniform(64511) + 1024),
  	RadiusAcctPort = ct:get_config({radius, acct_port}, rand:uniform(64511) + 1024),
  	RadiusAppVar = [{auth, [{RadiusAddress, RadiusAuthPort, []}]},
  
negative.code: %% @hidden
  add_offer(Prices, Spec) when is_integer(Spec) ->
  	add_offer(Prices, integer_to_list(Spec));
  add_offer(Prices, "8" = Spec) ->
  	Values = [#char_value{value = 1000000}],
  	ValueUse = [#char_value_use{name = "radiusReserveSessionOctets", values = Values}],
  	Offer = #offer{name = ocs:generate_identity(),
  			char_value_use = ValueUse,
  			price = Prices, specification = Spec},
  	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  	OfferId;
  add_offer(Prices, "9" = Spec) ->
  	Values = [#char_value{value = 60}],
  	ValueUse = [#char_value_use{name = "radiusReserveSessionTime", values = Values}],
  	Offer = #offer{name = ocs:generate_identity(),
  			char_value_use = ValueUse,
  			price = Prices, specification = Spec},
  	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  	OfferId;
  add_offer(Prices, Spec) ->
  	Offer = #offer{name = ocs:generate_identity(),
  	price = Prices, specification = Spec},
  