anchor.diff:  	Secret = ct:get_config(radius_shared_secret),
   	ReqAuth1 = radius:authenticator(),
   	RadId1 = 16, EapId1 = 1,
  -	ok = send_identity(Socket, Address, Port, NasId, UserName,
  -			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  -	EapId2 = EapId1 + 1,
  -	EapMsg1 = access_challenge(Socket, Address, Port,
  +	ok = send_radius_identity(Socket, Address, Port, NasId, UserName,
  +			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  +	EapId2 = EapId1 + 1,
  +	EapMsg1 = radius_access_challenge(Socket, Address, Port,
   			Secret, RadId1, ReqAuth1),
   	#eap_packet{code = request, type = Method,
   			identifier = EapId2} = ocs_eap_codec:eap_packet(EapMsg1),
  
positive.code: 	EapPacket  = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId2, data = ocs_eap_codec:eap_pwd(EapPwd)},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	ok = access_request(Socket, Address, Port, NasId,
  			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  	EapId2 = receive_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  
  negotiate_method_radius() ->
  	[{userdata, [{doc, "Send EAP-Nak with alternate methods using RADIUS"}]}].
  
negative.code: 	EapPacket  = #eap_packet{code = response, type = ?PWD,
  			identifier = EapId2, data = ocs_eap_codec:eap_pwd(EapPwd)},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	ok = radius_access_request(Socket, Address, Port, NasId,
  			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  
  validate_pwd_id_prep_radius() ->
  	[{userdata, [{doc, "Send invalid EAP-pwd-ID (bad prep) using RADIUS"}]}].
  