anchor.diff:  %% Cleanup after each test case.
   %%
   end_per_testcase(TestCase, Config) when
  -		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter ->
  +		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter;
  +		TestCase == unknown_username_diameter ->
   	UserName= ?config(username, Config),
   	Client = ?config(diameter_client, Config),
   	ok = ocs:delete_client(Client),
  
positive.code: 	AccessReject = radius_attributes:codec(AccessRejectData),
  	{ok, "Unknown Username"} = radius_attributes:find(?ReplyMessage, AccessReject).
  
  %%--------------------------------------------------------------------------------------
  %% Internal functions
  %%--------------------------------------------------------------------------------------
  
negative.code: %%
  all() -> 
  	[simple_authentication_radius, out_of_credit_radius, bad_password_radius,
  	unknown_username_radius, simple_authentication_diameter, bad_password_diameter,
  	unknown_username_diameter].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  