anchor.diff:  	Resp3 = Resp2#radius{attributes = RespAttr2},
   	RespPacket3 = radius:codec(Resp3),
   	MsgAuth = crypto:hmac(md5, Secret, RespPacket3),
  -	{ok, EapMsg} = radius_attributes:find(?EAPMessage, RespAttr1),
  -	EapMsg.
  -
  +	EapMsg = radius_attributes:get_all(?EAPMessage, RespAttr1),
  +	iolist_to_binary(EapMsg).
  +
  +receive_ack(Socket, Address, Port, Secret, Auth, RadId) ->
  +	EapMsg = access_challenge(Socket, Address, Port,
  +			Secret, RadId, Auth),
  +	#eap_packet{code = request, type = ?TTLS, identifier = EapId,
  +			data = TtlsData} = ocs_eap_codec:eap_packet(EapMsg),
  +	#eap_ttls{data = <<>>} = ocs_eap_codec:eap_ttls(TtlsData),
  +	EapId.
  +
  +send_ack(Socket, Address, Port, NasId, UsreName, Secret,
  +		MAC, Auth, RadId, EapId) ->
  +	TtlsPacket = #eap_ttls{},
  +	EapData = ocs_eap_codec:eap_ttls(TtlsPacket),
  +	EapPacket = #eap_packet{code = response, identifier = EapId,
  +			type = ?TTLS, data = EapData},
  +	access_request(EapPacket, Socket, Address, Port, NasId,
  +			UsreName, Secret, MAC, Auth, RadId).
  +
  +ssl_handshake() ->
  +	receive
  +		{eap_ttls, SslPid, Data} ->
  +			{SslPid, Data};
  +		{ssl_socket, SslSocket} ->
  +			SslSocket
  +	end.
  
positive.code: 	[{userdata, [{doc, "EAP-TTLS Authentication"}]}].
  
  eap_ttls_authentication(Config) ->
  erlang:display({config, Config}),
  	DataDir = ?config(data_dir, Config),
  	AnonymousName = "DonaldTrump",
  	Subscriber = <<"45678901">>,
  
negative.code: 
  -compile(export_all).
  
  %%Macro definitions for TLS record Content Type
  -define(ChangeCipherSpec,	20).
  -define(Alert,					21).
  -define(Handshake,			22).
  -define(Application,			23).
  -define(Heartbeat,			24).
  
  %%Macro definitions for TLS handshake protocal message type
  -define(HelloRequest,			0).
  -define(ClientHello,				1).
  -define(ServerHello,				2).
  -define(NewSessionTicket,		4).
  -define(Certificate,				11).
  -define(ServerKeyExchange,		12).
  -define(CertificateRequest,	13).
  -define(ServerHelloDone,		14).
  -define(CertificateVerify,		15).
  -define(ClientKeyExchange,		16).
  -define(Finished,					20).
  
  %% @headerfile "include/radius.hrl"
  -include_lib("radius/include/radius.hrl").
  -include("ocs_eap_codec.hrl").
  