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: simple_authentication_diameter(Config) ->
  	Username = ?config(username, Config),
  	Password = ?config(password, Config),
  	SId = diameter:session_id(atom_to_list(?SVC)),
  	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  			'Auth-Application-Id' = ?NAS_APPLICATION_ID ,
  			'Auth-Request-Type' = ?'DIAMETER_NAS_APP_AUTH-REQUEST-TYPE_AUTHENTICATE_ONLY',
  
negative.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; TestCase == bad_password_diameter ->
  	UserName = "Wentworth",
  	Password = "53cr37",
  	{ok, [{auth, AuthInstance}, {acct, _}]} = application:get_env(ocs, diameter),
  