anchor.diff:  	Socket = ?config(socket, Config), 
   	A0 = radius_attributes:new(),
   	A1 = radius_attributes:store(?ServiceType, 2, A0),
  -	A2 = radius_attributes:store(?NasPortId, "wlan3", A1),
  +	A2 = radius_attributes:store(?NasPortId, "wlan1", A1),
   	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),
  +	A5 = radius_attributes:store(?AcctSessionId, "826005e0", A4),
  +	A6 = radius_attributes:store(?CallingStationId, CallingStationId, A5),
  +	A7 = radius_attributes:store(?CalledStationId, CalledStationId, A6),
   	A8 = radius_attributes:store(?UserPassword, UserPassword, A7),
   	A9 = radius_attributes:store(?NasIdentifier, NasId, A8),
   	AccessReqest = #radius{code = ?AccessRequest, id = Id, authenticator = Authenticator,
  
positive.code: 
  out_of_credit(Config) ->
  	Id = 2,
  	PeerID = "789EDOB8B824",
  	PeerPassword = "333def44gh",
  	ok = ocs:add_subscriber(PeerID, PeerPassword, []),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  
negative.code: 
  bad_password(Config) ->
  	Id = 2,
  	NasId = ?config(nas_id, Config),
  	CalledStationId = ?config(called_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(),
  	ok = ocs:add_subscriber(PeerID, PeerPassword, [], 1000),
  	Authenticator = radius:authenticator(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  