anchor.diff:  %% Initialization before each test case.
   %%
   init_per_testcase(TestCase, Config) when TestCase == eap_identity_over_diameter;
  -		TestCase == pwd_id_over_diameter; TestCase == pwd_commit_over_diameter ->
  +		TestCase == pwd_id_over_diameter; TestCase == pwd_commit_over_diameter;
  +		TestCase == pwd_confirm_over_diameter ->
   	{ok, [{auth, DiaAuthInstance}, _]} = application:get_env(ocs, diameter),
   	[{Address, Port, _}] = DiaAuthInstance,
   	Secret = "87dhcbwhc",
  
positive.code: 			NasId, MAC, ConfirmP, EapId4, RadId4),
  	EapId4 = receive_radius_success(Socket, Address, Port, Secret, ReqAuth4, RadId4).
  
  message_authentication_over_radius() ->
  	[{userdata, [{doc, "Send corrupt Message-Authenticator using RADIUS"}]}].
  
  
negative.code: 	{ok, Answer} = diameter:call(?SVC, eap_app_test, DER, []),
  	Answer.
  
  send_diameter_confirm(SId, ConfirmP, EapId) ->
  	EapPwdConfirm = #eap_pwd{length = false, more = false, pwd_exch = confirm, data = ConfirmP},
  	EapPacket = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId, data = ocs_eap_codec:eap_pwd(EapPwdConfirm)},
  	EapPayload = ocs_eap_codec:eap_packet(EapPacket),
  	DER = #diameter_eap_app_DER{'Session-Id' = SId, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  		'Auth-Request-Type' = ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  		'EAP-Payload' = EapPayload},
  	{ok, Answer} = diameter:call(?SVC, eap_app_test, DER, []),
  	Answer.
  
  