anchor.diff:  	ok = ocs_test_lib:initialize_db(),
   	ok = ocs_test_lib:start(),
   	SharedSecret = ct:get_config(radius_shared_secret),
  +	Config1 = [{radius_shared_secret, SharedSecret} | Config],
   	ok = ocs:add_client({127, 0, 0, 1}, SharedSecret),
  -	Username = "25252525",
  -	Config1 = [{username, Username} | Config],
  -	Password = ocs:generate_password(),
  -	Config2 = [{password, Password} | Config1],
  -	ok = ocs:add_subscriber(Username, Password, [], 1000),
   	NasId = atom_to_list(node()),
  -	[{nas_id, NasId} | Config2].
  +	[{nas_id, NasId} | Config1].
   
   -spec end_per_suite(Config :: [tuple()]) -> any().
   %% Cleanup after the whole suite.
  
positive.code: 	ConfirmRespPacket = #eap_packet{code = response, type = ?PWD, identifier = EAPId3,
  		data = ConfirmEAPData},
  	ConfirmRespPacketData = ocs_eap_codec:eap_packet(ConfirmRespPacket),
  	ConfirmAttributeList1 = radius_attributes:store(?EAPMessage,
  	   ConfirmRespPacketData, IDReqAttributeList5),
  	Authenticator4 = radius:authenticator(),
  	ConfirmResponse1 = #radius{code = ?AccessRequest, id = 4, authenticator = Authenticator4,
  
negative.code: 	IDEAPData = ocs_eap_codec:eap_pwd(IDRespHeader),
  	IDRespPacket = #eap_packet{code = response, type = ?PWD, identifier = IDEAPId, data = IDEAPData},
  	IDEAPPacketData = ocs_eap_codec:eap_packet(IDRespPacket),
  	IDRespAttributeList1 = radius_attributes:add(?EAPMessage, IDEAPPacketData, IDReqAttributeList5),
  	Authenticator2 = radius:authenticator(),
  	IDResponse1 = #radius{code = ?AccessRequest, id = 2,  authenticator = Authenticator2,
  		attributes = IDRespAttributeList1},
  	IDResPacket1 = radius:codec(IDResponse1),
  	IDRespMsgAuth = crypto:hmac(md5, SharedSecret, IDResPacket1),
  	IDRspAttributeList3 = radius_attributes:store(?MessageAuthenticator,
  			IDRespMsgAuth, IDRespAttributeList1),
  	IDResPacket1 = radius:codec(IDResponse1),
  	IDRespMsgAuth = crypto:hmac(md5, SharedSecret, IDResPacket1),
  	IDRspAttributeList3 = radius_attributes:store(?MessageAuthenticator,
  