anchor.diff:  	{EapId4, _ConfirmS} = receive_radius_confirm(Socket,
   			Address, Port, Secret, ReqAuth3, RadId3).
   	
  -pwd_confirm_radius() ->
  +pwd_confirm_over_radius() ->
   	[{userdata, [{doc, "Send an EAP-pwd-Confirm/Response using RADIUS to peer"}]}].
   
  -pwd_confirm_radius(Config) ->
  +pwd_confirm_over_radius(Config) ->
   	PeerId = <<"45678901">>,
   	MAC = "DD-EE-FF-AA-BB-CC",
   	PeerAuth = list_to_binary(ocs:generate_password()),
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(TestCase, Config) when TestCase == eap_identity_diameter;
  		TestCase == pwd_id_diameter ->
  	{ok, [{auth, DiaAuthInstance}, _]} = application:get_env(ocs, diameter),
  	[{Address, Port, _}] = DiaAuthInstance,
  	Secret = "87dhcbwhc",
  
negative.code: 			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  
  negotiate_method_over_radius() ->
  	[{userdata, [{doc, "Send EAP-Nak with alternate methods using RADIUS"}]}].
  
  negotiate_method_over_radius(Config) ->
  	PeerId = <<"01234567">>,
  	MAC = "FE-DC-BA-AB-CD-EF",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  