anchor.diff:  	RadID1 = 10,
   	NasID = ?config(nas_id, Config),
   	ProdID = ?config(product_id, Config),
  -	AcctSessionID = "0B0055D1",
  +	AcctSessionID = ocs:generate_identity(),
   	{ok, [{auth, AuthInstance}, {acct, AcctInstance}]} = application:get_env(ocs, radius),
   	[{AuthAddress, AuthPort, _} | _] = AuthInstance,
   	[{AcctAddress, AcctPort, _} | _] = AcctInstance,
   	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]), 
  -	PeerID = "458565788",
  +	PeerID = ocs:generate_identity(),
   	Secret = ct:get_config(radius_shared_secret),
   	Password = ocs:generate_password(),
   	Now = erlang:system_time(?MILLISECOND),
  
positive.code: 	%% Authenticate session 2
  	Rad2ID1 = 5,
  	NasID2 = "axe2@ap-2.org",
  	AcctSessionID2 = "BAC10356",
  	authenticate_subscriber(Socket, AuthAddress, AuthPort, PeerID,
  			HiddenPassword, Secret, NasID2, ReqAuth, Rad2ID1),
  	ct:sleep(500),
  
negative.code: 	3 = length(SessionList3),
  	ok = F2(F2, SessionList3, [{?UserName, PeerID}, {?NasIdentifier, NasID3}]),
  	Rad3ID2 = Rad3ID1 + 1,
  	AcctSessionID3 = ocs:generate_identity(),
  	accounting_start(Socket, AcctAddress, AcctPort, PeerID, Secret, NasID3,
  			AcctSessionID3, Rad3ID2),
  	%% Disconnect session 2
  