anchor.diff:  
   bad_password(Config) ->
   	Id = 2,
  -	PeerID = "789EDOB8B825",
  -	PeerPassword = "333def44gh",
  +	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),
  
positive.code: 	Socket = ?config(socket, Config), 
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:store(?ServiceType, 2, A0),
  	A2 = radius_attributes:store(?NasPortId, "wlan3", 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),
  	A8 = radius_attributes:store(?UserPassword, UserPassword, A7),
  	A9 = radius_attributes:store(?NasIdentifier, NasId, A8),
  	AccessReqest = #radius{code = ?AccessRequest, id = Id, authenticator = Authenticator,
  
negative.code: 	Socket = ?config(socket, Config), 
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:store(?ServiceType, 2, A0),
  	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, "826005e1", 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,
  