anchor.diff:  			'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},
  
positive.code: %% Returns a list of all test cases in this test suite.
  %%
  all() ->
  	[prf, identity_radius, identity_diameter_eap, identity_diameter_swm].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  %%---------------------------------------------------------------------
  
  identity_radius() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using RADIUS"}]}].
  
  identity_radius(Config) ->
  	Socket = ?config(socket, Config),
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
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]),
  