anchor.diff:  	<<?Handshake, _:32, ?ServerHello, _:24,
   			_:16, SR:32/binary,  _/binary>> = list_to_binary(ServerHello),  
   	SslSocket = ssl_handshake(),
  -	Alert = ssl_handshake(), %% Resaon ?
   	Seed = <<CR/binary, SR/binary>>,
   	{ok, <<MSK:64/binary, EMSK:64/binary>>} = ssl:prf(SslSocket,
   			master_secret , <<"ttls keying material">>, Seed, 128),
  -	ok = ssl:send(SslSocket, <<"testing123">>).
  +	ReqAuth6 = radius:authenticator(),
  +	{RadId7, CPAuth} = client_passthrough(SslSocket, Subscriber, PeerAuth,
  +			Socket, Address, Port, NasId, Secret, MAC, ReqAuth6, EapId5, RadId7).
   	
   send_identity(Socket, Address, Port, NasId, AnonymousName, Secret, MAC,
   		Auth, EapId, RadId) ->
  
positive.code: 	NewRadId = RadId + 1,
  	{NewRadId, EapId, [SH | Buf]}.
  	
  %% EapPacket :: #eap_packet{}.
  access_request(EapPacket, Socket, Address, Port, NasId, UserName,
  		Secret, MAC, Auth, RadId) ->
  
negative.code: 
  %% @headerfile "include/radius.hrl"
  -include_lib("radius/include/radius.hrl").
  -include_lib("diameter/include/diameter.hrl").
  -include("ocs_eap_codec.hrl").
  -include_lib("common_test/include/ct.hrl").
  
  