anchor.diff:  		TestCase == simple_authentication_diameter; TestCase == bad_password_diameter;
   		TestCase == unknown_username_diameter; TestCase == out_of_credit_diameter;
   		TestCase == session_termination_diameter ->
  -	UserName= ?config(username, Config),
   	Client = ?config(diameter_client, Config),
  -	ok = ocs:delete_client(Client),
  -	ok = ocs:delete_service(UserName);
  +	ok = ocs:delete_client(Client);
   end_per_testcase(_TestCase, Config) ->
   	Socket = ?config(socket, Config),
   	ok = 	gen_udp:close(Socket).
  
positive.code: 	A7 = radius_attributes:add(?CalledStationId, CalledStationId, A6),
  	A8 = radius_attributes:add(?UserPassword, UserPassword, A7),
  	A9 = radius_attributes:add(?NasIdentifier, NasId, A8),
  erlang:display({?MODULE, ?LINE, A9}),
  	AccessReqest = #radius{code = ?AccessRequest, id = Id,
  			authenticator = Authenticator, attributes = A9},
  	AccessReqestPacket= radius:codec(AccessReqest),
  
negative.code: out_of_credit_diameter() ->
  	[{userdata, [{doc, "Diameter authentication failure when subscriber has a balance less than 0"}]}].
  
  out_of_credit_diameter(_Config) ->
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  