anchor.diff:  		TestCase == out_of_credit_radius;
   		TestCase == bad_password_radius;
   		TestCase == unknown_username_radius;
  -		TestCase == authenticate_voice_call ->
  +		TestCase == authenticate_voice;
  +		TestCase == auth_data_fail ->
   	Address = ct:get_config({radius, peer_address}),
   	SharedSecret = ct:get_config({radius, secret}),
   	{ok, _} = ocs:add_client(Address, 3799, radius, SharedSecret, true),
  
positive.code: 		TestCase == unknown_username_diameter;
  		TestCase == out_of_credit_diameter;
  		TestCase == session_termination_diameter;
  		TestCase == authenticate_voice_call;
  		TestCase == client_authorized ->
  	Address = ct:get_config({diameter, peer_address}),
  	ok = ocs:delete_client(Address),
  
negative.code: 		TestCase == unknown_username_diameter;
  		TestCase == out_of_credit_diameter;
  		TestCase == session_termination_diameter;
  		TestCase == client_authorized ->
  	DiameterPeerAddress = ct:get_config({radius, peer_address}),
  	{ok, _} = ocs:add_client(DiameterPeerAddress, undefined, diameter, undefined, true),
  