anchor.diff:  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
   %% Cleanup after each test case.
   %%
  +end_per_testcase(TestCase, Config) when TestCase == eap_identity_over_diameter;
  +		TestCase == pwd_id_over_diameter; TestCase == pwd_commit_over_diameter;
  +		TestCase == pwd_confirm_over_diameter	->
  +	DClient = ?config(diameter_client, Config),
  +	ok = ocs:delete_client(DClient);
   end_per_testcase(_TestCase, Config) ->
   	Socket = ?config(socket, Config),
   	RadClient = ?config(radius_client, Config),
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(_TestCase, Config) ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, RadPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: 		when is_binary(UserName) ->
  	radius_access_request(Socket, Address, Port, NasId,
  			binary_to_list(UserName), Secret, MAC, Auth, RadId,
  			EapMsg);
  radius_access_request(Socket, Address, Port, NasId,
  		UserName, Secret, MAC, Auth, RadId, EapMsg) ->
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:add(?UserName, UserName, A0),
  	A2 = radius_attributes:add(?NasPort, 0, A1),
  	A3 = radius_attributes:add(?NasIdentifier, NasId, A2),
  	A4 = radius_attributes:add(?CallingStationId, MAC, A3),
  	A5 = radius_attributes:add(?CalledStationId,
  			"FE-EF-DE-ED-CE-ED:TestSSID", A4),
  	A6 = radius_attributes:add(?EAPMessage, EapMsg, A5),
  	A7 = radius_attributes:add(?MessageAuthenticator, <<0:128>>, A6),
  	Request1 = #radius{code = ?AccessRequest, id = RadId,
  		authenticator = Auth, attributes = A7},
  	ReqPacket1 = radius:codec(Request1),
  	MsgAuth1 = crypto:hmac(md5, Secret, ReqPacket1),
  	A8 = radius_attributes:store(?MessageAuthenticator, MsgAuth1, A7),
  	Request2 = Request1#radius{attributes = A8},
  	ReqPacket2 = radius:codec(Request2),
  	gen_udp:send(Socket, Address, Port, ReqPacket2).
  
  radius_access_challenge(Socket, Address, Port, Secret, RadId, ReqAuth) ->
  	receive_radius(?AccessChallenge, Socket, Address, Port, Secret, RadId, ReqAuth).
  