anchor.diff:  
   out_of_credit(Config) ->
   	Id = 2,
  -	PeerID = "789EDOB8B824",
  -	PeerPassword = "333def44gh",
  +	NasId = ?config(nas_id, Config),
  +	CalledStationId = ?config(called_id, Config),
  +	MAC = "dd:ee:dd:ee:cc:bb",
  +	MACtokens = string:tokens(MAC, ":"),
  +	CallingStationId = string:join(MACtokens, "-"),
  +	PeerID = string:to_lower(lists:append(MACtokens)),
  +	PeerPassword = ocs:generate_password(),
   	ok = ocs:add_subscriber(PeerID, PeerPassword, []),
   	Authenticator = radius:authenticator(),
   	SharedSecret = ct:get_config(radius_shared_secret),
  
positive.code: 
  unknown_username(Config) ->
  	Id = 3,
  	PeerID = "789EDOB8B826",
  	PeerPassword = "4444ghj55jk",
  	ok = ocs:add_subscriber(PeerID, PeerPassword, [], 1000),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  
negative.code: 	SharedSecret = ct:get_config(radius_shared_secret),
  	ok = ocs:add_client(AuthAddress, SharedSecret),
  	NasId = atom_to_list(node()),
  	Config1 = [{nas_id, NasId} | Config],
  	CalledStationId = "E4-8D-8C-D6-E0-AC:TestSSID",
  	[{called_id, CalledStationId} | Config1].
  
  -spec end_per_suite(Config :: [tuple()]) -> any().
  %% Cleanup after the whole suite.
  