anchor.diff:  		authenticate and authorize voice call"}]}].
   
   authenticate_voice_call(Config) ->
  -	ProdID = ocs:generate_password(),
   	PackagePrice = 1,
   	PackageSize = 2,
  -	Price = #price{name = "voice", type = usage,
  -		units = seconds, size = PackageSize, amount = PackagePrice},
  -	Product = #offer{name = ProdID, price = [Price],
  -		specification = "9"},
  -	{ok, _} = ocs:add_offer(Product),
  +	P1 = price(usage, seconds, PackageSize, PackagePrice),
  +	OfferId = add_offer([P1], 9),
  +	RadiusReserveSessionTime = 60,
  +	ProdRef = add_product(OfferId,
  +		[{"radiusReserveSessionTime", RadiusReserveSessionTime}]),
   	Id = 1,
   	NasId = ?config(nas_id, Config),
   	SharedSecret = ct:get_config(radius_shared_secret),
  
positive.code: 
  unknown_username_radius(Config) ->
  	Id = 3,
  	NasId = ?config(nas_id, Config),
  	CalledStationId = ?config(called_id, Config),
  	ProdID = ?config(product_id, Config),
  	MAC = "DD:EE:DD:EE:DD:CC",
  	MACtokens = string:tokens(MAC, ":"),
  	CallingStationId = string:join(MACtokens, "-"),
  	PeerID = string:to_lower(lists:append(MACtokens)),
  	PeerPassword = ocs:generate_password(),
  	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  	{ok, _} = ocs:add_service(PeerID, PeerPassword, ProdID, [], Buckets, []),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	UserPassword = radius_attributes:hide(SharedSecret, Authenticator, PeerPassword),	
  	BogusUserName = "tormentor",
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{AuthAddress, AuthPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	Socket = ?config(socket, Config), 
  
negative.code: unknown_username_diameter() ->
  	[{userdata, [{doc, "Diameter simple authentication failure wheh a unknown username is used"}]}].
  
  unknown_username_diameter(_Config) ->
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	#service{password = Password} =  add_service(ProdRef),
  	B1 = bucket(octets, rand:uniform(100000)),
  	_BId = add_bucket(ProdRef, B1),
  	UnknownUsername = ocs:generate_identity(),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  