anchor.diff:  		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter;
   		TestCase == unknown_username_diameter; TestCase == out_of_credit_diameter;
   		TestCase == session_termination_diameter ->
  -	UserName = "Wentworth",
  -	Password = "53cr37",
   	{ok, DiameterConfig} = application:get_env(ocs, diameter),
   	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
   	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  -	ProdID = ?config(product_id, Config),
  -	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  -	{ok, _} = ocs:add_service(UserName, Password, ProdID, [], Buckets, []),
  -	[{username, UserName}, {password, Password}] ++ Config;
  +	Config;
   init_per_testcase(_TestCase, Config) ->
   	NasId = atom_to_list(node()),
   	CalledStationId = "E4-8D-8C-D6-E0-AC:TestSSID",
  
positive.code: 
  bad_password_radius(Config) ->
  	Id = 2,
  	NasId = ?config(nas_id, Config),
  	CalledStationId = ?config(called_id, Config),
  	ProdID = ?config(product_id, Config),
  	MAC = "DD:EE:DD:EE:DD:CC",
  	MACtokens = string:tokens(MAC, ":"),
  	CallingStationId = string:join(MACtokens, "-"),
  	PeerID = string:to_lower(lists:append(MACtokens)),
  	PeerPassword = ocs:generate_password(),
  	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  	{ok, _} = ocs:add_service(PeerID, PeerPassword, ProdID, [], Buckets, []),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	BoguesPassowrd = radius_attributes:hide(SharedSecret, Authenticator, "bogus"),	
  
negative.code: 	{ok, _Ref} = connect(?SVC, Address, Port, diameter_tcp),
  	receive
  		#diameter_event{service = ?SVC, info = start} ->
  			[{diameter_client, Address}] ++ Config;
  		_ ->
  			{skip, diameter_client_service_not_started}
  	end.
  