anchor.diff:  %%
   all() -> 
   	[simple_authentication_radius, out_of_credit_radius, bad_password_radius,
  -	unknown_username_radius, simple_authentication_diameter].
  +	unknown_username_radius, simple_authentication_diameter, bad_password_diameter].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initiation before each test case.
  %%
  init_per_testcase(TestCase, Config) when TestCase == simple_authentication_diameter ->
  	UserName = "Wentworth",
  	Password = "53cr37",
  	{ok, [{auth, AuthInstance}, {acct, _}]} = application:get_env(ocs, diameter),
  
negative.code: -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(TestCase, Config) when
  		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter ->
  	UserName= ?config(username, Config),
  	Client = ?config(diameter_client, Config),
  	ok = ocs:delete_client(Client),
  