anchor.diff:  	{ok, Answer} = diameter:call(?SVC, eap_app_test, DER, []),
   	Answer.
   
  +send_diameter_id(SId, Token, PeerId, EapId) ->
  +	EapPwdId = #eap_pwd_id{group_desc = 19, random_fun = 16#1, prf = 16#1,
  +			token = Token, pwd_prep = none, identity = PeerId},
  +	EapPwd = #eap_pwd{pwd_exch = id, data = ocs_eap_codec:eap_pwd_id(EapPwdId)},
  +	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.
  +
  
positive.code: -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(TestCase, Config) when TestCase == eap_identity_diameter ->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  
negative.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",
  