anchor.diff:  	{EapId3, _ElementS, _ScalarS} = receive_radius_commit(Socket, Address,
   			Port, Secret, ReqAuth2, RadId2).
   
  -pwd_id_over_diameter() ->
  +pwd_id_diameter() ->
      [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer using DIAMETER"}]}].
   
  -pwd_id_over_diameter(_Config) ->
  +pwd_id_diameter(_Config) ->
   	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
   	OfferId = add_offer([P1], 4),
   	ProdRef = add_product(OfferId),
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(TestCase, Config) when TestCase == eap_identity_over_diameter;
  		TestCase == pwd_id_over_diameter; TestCase == pwd_commit_over_diameter;
  		TestCase == pwd_confirm_over_diameter ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  
negative.code: 			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  
  validate_pwd_id_token_radius() ->
  	[{userdata, [{doc, "Send invalid EAP-pwd-ID (bad token) using RADIUS"}]}].
  
  validate_pwd_id_token_radius(Config) ->
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  