anchor.diff:  	{EapId3, _ElementS, _ScalarS} = receive_radius_commit(Socket, Address,
   			Port, Secret, ReqAuth2, RadId2).
   
  -pwd_id_diameter() ->
  +pwd_id_over_diameter() ->
      [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer using DIAMETER"}]}].
   
  -pwd_id_diameter(_Config) ->
  +pwd_id_over_diameter(_Config) ->
   	PeerId = <<"78923456">>,
   	PeerAuth = list_to_binary(ocs:generate_password()),
   	{ok, _} = ocs:add_subscriber(PeerId, PeerAuth, []),
  
positive.code: 			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"}]}].
  
  validate_pwd_id_prep_radius(Config) ->
  	PeerId = <<"89012345">>,
  	MAC = "CD-EF-FE-DC-BA-AB",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  
negative.code: 	{NextEapId, _Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  eap_identity_over_diameter() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER to peer"}]}].
  
  eap_identity_over_diameter(_Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	EapId = 1,
  