anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[eap_identity_over_radius].
  +	[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
  
positive.code: 	{ok, EapMsg} = radius_attributes:find(?EAPMessage, RespAttr1),
  	EapMsg.
  
  
negative.code: 		when is_binary(UserName) ->
  	radius_access_request(Socket, Address, Port, NasId,
  			binary_to_list(UserName), Secret, MAC, Auth, RadId,
  			EapMsg);
  radius_access_request(Socket, Address, Port, NasId,
  		UserName, Secret, MAC, Auth, RadId, EapMsg) ->
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:add(?UserName, UserName, A0),
  	A2 = radius_attributes:add(?NasPort, 0, A1),
  	A3 = radius_attributes:add(?NasIdentifier, NasId, A2),
  	A4 = radius_attributes:add(?CallingStationId, MAC, A3),
  	A5 = radius_attributes:add(?CalledStationId,
  			"FE-EF-DE-ED-CE-ED:TestSSID", A4),
  	A6 = radius_attributes:add(?EAPMessage, EapMsg, A5),
  	A7 = radius_attributes:add(?MessageAuthenticator, <<0:128>>, A6),
  	Request1 = #radius{code = ?AccessRequest, id = RadId,
  		authenticator = Auth, attributes = A7},
  	ReqPacket1 = radius:codec(Request1),
  	MsgAuth1 = crypto:hmac(md5, Secret, ReqPacket1),
  	A8 = radius_attributes:store(?MessageAuthenticator, MsgAuth1, A7),
  	Request2 = Request1#radius{attributes = A8},
  	ReqPacket2 = radius:codec(Request2),
  	gen_udp:send(Socket, Address, Port, ReqPacket2).
  
  radius_access_challenge(Socket, Address, Port, Secret, RadId, ReqAuth) ->
  	receive_radius(?AccessChallenge, Socket, Address, Port, Secret, RadId, ReqAuth).
  