anchor.diff:  	NasId = atom_to_list(node()),
   	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config];
   init_per_testcase(TestCase, Config)
  -		when TestCase == eap_identity_radius_trusted ->
  +		when TestCase == eap_identity_radius_trusted; TestCase == eap_radius_response ->
   	{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]),
  
positive.code: 	T2 = crypto:hmac(sha256, K, <<T1/binary, S/binary, P>>),
  	prf(K, S, N, P + 1, T2, [T2 | Acc]).
  
  
negative.code: 	ok = send_radius_identity(Socket, Address, Port, NasId,
  			PeerId1, Secret, ReqAuth, EapId, RadId),
  	NextEapId = EapId + 1,
  erlang:display({?MODULE, ?LINE, here}),
  	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  