anchor.diff:  	[eap_identity_over_radius, pwd_id_over_radius, pwd_commit_over_radius, pwd_confirm_over_radius,
   	message_authentication_over_radius, role_reversal_over_radius, validate_pwd_id_cipher_over_radius,
   	validate_pwd_id_prep_over_radius, validate_pwd_id_token_over_radius, negotiate_method_over_radius,
  -	eap_identity_over_diameter, pwd_id_over_diameter].
  +	eap_identity_over_diameter, pwd_id_over_diameter, pwd_commit_over_diameter].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: %% Cleanup after each test case.
  %%
  end_per_testcase(TestCase, Config) when TestCase == eap_identity_over_diameter;
  		TestCase == pwd_id_over_diameter	->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  
negative.code: 	{ok, Answer} = diameter:call(?SVC, eap_app_test, DER, []),
  	Answer.
  
  send_diameter_commit(SId, ScalarP, ElementP, EapId) ->
  	EapPwdCommit = #eap_pwd_commit{scalar = ScalarP, element = ElementP},
  	EapPwd = #eap_pwd{length = false, more = false, pwd_exch = commit,
  			data = ocs_eap_codec:eap_pwd_commit(EapPwdCommit)},
  	EapPacket = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId, data = ocs_eap_codec:eap_pwd(EapPwd)},
  	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.
  
  