anchor.diff:  
   %% @hidden
   price(Type, Units, Size, Amount) ->
  -	#price{name = ocs:generate_identity(),
  +	Name = ocs:generate_identity(),
  +	#price{name = Name,
   			type = Type, units = Units,
   			size = Size, amount = Amount}.
   
  
positive.code: 	Secret = ct:get_config(radius_shared_secret),
  	Realm = ?config(realm, Config),
  	MSIN = msin(),
  	PeerId = "6" ++ ct:get_config(mcc) ++ ct:get_config(mcc)
  			++ MSIN ++ "@wlan." ++ Realm,
  	PeerId1 = list_to_binary(PeerId),
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	#service{} = add_service(ProdRef),
  	ok = send_radius_identity(Socket, Address, Port, NasId,
  			PeerId1, Secret, ReqAuth, EapId, RadId),
  	NextEapId = EapId + 1,
  	{NextEapId, _Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  
negative.code: add_offer(Prices, Spec) when is_integer(Spec) ->
  	add_offer(Prices, integer_to_list(Spec));
  add_offer(Prices, Spec) ->
  	Name = ocs:generate_identity(),
  	Offer = #offer{name = Name,
  			price = Prices, specification = Spec},
  	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  	OfferId.
  