anchor.diff:  init_per_suite(Config) ->
   	ok = ocs_test_lib:initialize_db(),
   	ok = ocs_test_lib:start(),
  -	{ok, ProdID} = ocs_test_lib:add_offer(),
   	{ok, DiameterConfig} = application:get_env(ocs, diameter),
   	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
   	true = diameter:subscribe(?SVC),
  
positive.code: 	A1 = radius_attributes:add(?ServiceType, 12, A0),
  	A2 = radius_attributes:add(?NasPortId, "wlan1", A1),
  	A3 = radius_attributes:add(?NasPortType, 19, A2),
  	A4 = radius_attributes:add(?UserName, PeerID, A3),
  	A5 = radius_attributes:add(?AcctSessionId, "826005e1", A4),
  	A6 = radius_attributes:add(?CallingStationId, CallingStationId, A5),
  	A7 = radius_attributes:add(?CalledStationId, CalledStationId, A6),
  
negative.code: out_of_credit_radius(Config) ->
  	Id = 2,
  	NasId = ?config(nas_id, Config),
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	#service{name = PeerID,
  			password = PeerPassword} =  add_service(ProdRef),
  	CalledStationId = ?config(called_id, Config),
  	MAC = "DD:EE:DD:EE:CC:BB",
  	MACtokens = string:tokens(MAC, ":"),
  	CallingStationId = string:join(MACtokens, "-"),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	UserPassword = radius_attributes:hide(SharedSecret, Authenticator, PeerPassword),	
  