anchor.diff:  	EapId = 1,
   	Realm = ?config(realm, Config),
   	MSIN = msin(),
  -	PeerId = "0" ++ ct:get_config(mcc) ++ ct:get_config(mcc)
  -			++ MSIN ++ "@wlan." ++ Realm,
  +	Name = ct:get_config(mcc) ++ ct:get_config(mcc) ++ MSIN,
  +	PeerId = "0" ++ Name ++ "@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(Name, ProdRef),
   	DEA = send_diameter_identity(?SWm_APPLICATION_ID, SId, EapId, PeerId1),
   	SIdbin = list_to_binary(SId),
   	#'3gpp_swm_DEA'{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?SWm_APPLICATION_ID,
  
positive.code: 			'EAP-Payload' = EapMsg},
  	{ok, Answer} = diameter:call(?MODULE, eap_app_test, DER, []),
  	Answer;
  send_diameter_identity(?SWm_APPLICATION_ID, SId, EapId, PeerId) ->
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  			identifier = EapId, data = PeerId},
  
negative.code: 	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
  	[{diameter_client, Address} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == identity_radius_eap ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
  