anchor.diff:  	Expired = erlang:system_time(?MILLISECOND) - 3599000,
   	ok = mnesia:dirty_write(product, P#product{payment =
   			[{Price#price.name, Expired}]}),
  -	B1 = #bucket{units = cents, remain_amount = 1000,
  +	B1 = #bucket{units = cents, remain_amount = 1000000000,
   			start_date = erlang:system_time(?MILLISECOND),
   			end_date = erlang:system_time(?MILLISECOND) + 2592000000},
   	{ok, _, #bucket{id = BId1}} = ocs:add_bucket(ProdId, B1),
  
positive.code: 			{_, {struct, BalanceList1}} = lists:keyfind("event", 1, BalanceEvent1),
  			{_, BId1} = lists:keyfind("id", 1, BalanceList1)
  	end,
  	B2 = #bucket{units = cents, remain_amount = 1000,
  			start_date = erlang:system_time(?MILLISECOND),
  			end_date = erlang:system_time(?MILLISECOND) + 2592000000},
  	{ok, _, #bucket{id = BId2}} = ocs:add_bucket(ProdId, B2),
  
negative.code: 	Alteration = #alteration{name = ocs:generate_identity(), start_date = SD,
  			type = usage, period = undefined,
  			units = octets, size = 100000000000, amount = 0},
  	Price = #price{name = ocs:generate_identity(), start_date = SD,
  			type = recurring, period = monthly,
  			amount = 1250000000, alteration = Alteration},
  	OfferId = add_offer([Price], 4),
  	receive
  		Input1 ->
  