anchor.diff:  	interim_debit_and_reserve_insufficient3,
   	interim_debit_and_reserve_insufficient4,
   	final_remove_session, final_refund,
  -	authorize_voice].
  +	authorize_voice, authorize_voice_with_partial_reservation,
  + 	authorize_data_1, authorize_data_2, authorize_data_with_partial_reservation,
  +	unauthorize_bad_password, unauthorize_bad_password].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 	#bucket{remain_amount = Amount} = lists:keyfind(cents, #bucket.units, Buckets1),
  	Amount = RemAmount - ((60 div PackageSize) * PackagePrice).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
negative.code: 	ProdID = ocs:generate_password(),
  	PackagePrice = 1,
  	PackageSize = 2,
  	Price = #price{name = "Calls", type = usage,
  		units = seconds, size = PackageSize, amount = PackagePrice},
  	Product = #product{name = ProdID, price = [Price],
  		specification = "9"},
  