anchor.diff:  -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
   %% Group test cases into a test sequence.
   %%
  -sequences() -> 
  +sequences() ->
   	[].
   
   -spec all() -> TestCases :: [Case :: atom()].
   %% Returns a list of all test cases in this test suite.
   %%
  -all() -> 
  +all() ->
   	[eap_identity, pwd_id, pwd_commit, pwd_confirm,
   	unknown_authenticator, invalid_id_response_eap_packet, invalid_id_response_eap_pwd].
   
  
positive.code: 	{ok, EapMsg} = radius_attributes:find(?EAPMessage, RespAttr1),
  	EapMsg.
  
  send_identity(Socket, Address, Port, NasId,
  		UserName, Secret, PeerId, MAC, Auth, EapId, RadId) ->
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  
negative.code: 			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  receive_id(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = access_request(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = request, type = ?PWD, identifier = EapId,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  