anchor.diff:  all() -> 
   	[simple_authentication_radius, out_of_credit_radius, bad_password_radius,
   	unknown_username_radius, simple_authentication_diameter, bad_password_diameter,
  -	unknown_username_diameter].
  +	unknown_username_diameter, out_of_credit_diameter].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 			radius:codec(AccessRejectPacket),
  	AccessReject = radius_attributes:codec(AccessRejectData),
  	{ok, "Out of Credit"} = radius_attributes:find(?ReplyMessage, AccessReject).
  
  bad_password_radius() ->
  	[{userdata, [{doc, "Send RADIUS AccessReject response to the peer when password 
  
negative.code: %%
  init_per_testcase(TestCase, Config) when
  		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter;
  		TestCase == unknown_username_diameter; TestCase == out_of_credit_diameter ->
  	UserName = "Wentworth",
  	Password = "53cr37",
  	{ok, [{auth, AuthInstance}, {acct, _}]} = application:get_env(ocs, diameter),
  