anchor.diff:  
   out_of_credit(Config) ->
   	Id = 2,
  -	PeerID = "789EDOB8B823",
  +	PeerID = "789EDOB8B824",
   	PeerPassword = "333def44gh",
   	ok = ocs:add_subscriber(PeerID, PeerPassword, []),
   	Authenticator = radius:authenticator(),
  
positive.code: 	A3 = radius_attributes:store(?NasPortType, 19, A2),
  	A4 = radius_attributes:store(?UserName, PeerID, A3),
  	A5 = radius_attributes:store(?AcctSessionId, "826005e4", A4),
  	A6 = radius_attributes:store(?CallingStationId, "78-9E-DO-B8-B8-23", A5),
  	A7 = radius_attributes:store(?CalledStationId, "WPA-PSK", A6),
  	A8 = radius_attributes:store(?UserPassword, UserPassword, A7),
  	A9 = radius_attributes:store(?NasIdentifier, "{14988,{9,\"sigscale.lk\"}}", A8),
  
negative.code: %% Returns a list of all test cases in this test suite.
  %%
  all() -> 
  	[simple_authentication, out_of_credit, bad_password, unknown_username].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  