anchor.diff:  			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
   	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
   
  -negotiate_method_over_radius() ->
  +negotiate_method_radius() ->
   	[{userdata, [{doc, "Send EAP-Nak with alternate methods using RADIUS"}]}].
   
  -negotiate_method_over_radius(Config) ->
  +negotiate_method_radius(Config) ->
   	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
   	OfferId = add_offer([P1], 4),
   	ProdRef = add_product(OfferId),
  
positive.code: %% Returns a list of all test cases in this test suite.
  %%
  all() ->
  	[eap_identity_over_radius, pwd_id_over_radius, pwd_commit_over_radius, pwd_confirm_over_radius,
  	message_authentication_over_radius, role_reversal_over_radius, validate_pwd_id_cipher_over_radius,
  	validate_pwd_id_prep_over_radius, validate_pwd_id_token_over_radius, negotiate_method_over_radius,
  	eap_identity_over_diameter, pwd_id_over_diameter, pwd_commit_over_diameter, pwd_confirm_over_diameter].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  %%---------------------------------------------------------------------
  eap_identity_over_radius() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using RADIUS to peer"}]}].
  
  eap_identity_over_radius(Config) ->
  	MAC = "AA-BB-CC-DD-EE-FF",
  	PeerId = <<"12345678">>,
  	Socket = ?config(socket, Config),
  
negative.code: 			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH'} = DEA.
  
  pwd_id_radius() ->
     [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer"}]}].
  
  pwd_id_radius(Config) ->
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  