anchor.diff:  msin(Acc) ->
   	msin([rand:uniform(10) + 47 | Acc]).
   
  +%% @hidden
  +price(Type, Units, Size, Amount) ->
  +	#price{name = ocs:generate_identity(),
  +			type = Type, units = Units,
  +			size = Size, amount = Amount}.
  +
  +%% @hidden
  +add_offer(Prices, Spec) when is_integer(Spec) ->
  +	add_offer(Prices, integer_to_list(Spec));
  +add_offer(Prices, Spec) ->
  +	Offer = #offer{name = ocs:generate_identity(),
  +			price = Prices, specification = Spec},
  +	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  +	OfferId.
  +
  +%% @hidden
  +add_product(OfferId) ->
  +	add_product(OfferId, []).
  +add_product(OfferId, Chars) ->
  +	{ok, #product{id = ProdRef}} = ocs:add_product(OfferId, Chars),
  +	ProdRef.
  +
  +%% @hidden
  +add_service(ProdRef) ->
  +	K = crypto:strong_rand_bytes(16),
  +	OPc = crypto:strong_rand_bytes(16),
  +	Credentials = #aka_cred{k = K, opc = OPc},
  +	{ok, Service} =
  +			ocs:add_service(ocs:generate_identity(), Credentials,
  +			ProdRef, []),
  +	Service.
  +
  
positive.code: 	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH'} = DEA.
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  
negative.code: %% Returns a list of all test cases in this test suite.
  %%
  all() ->
  	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  