anchor.diff:  	EapId = 1,
   	Realm = ?config(realm, Config),
   	MSIN = msin(),
  -	PeerId = "6" + ct:get_config(mcc) ++ ct:get_config(mcc)
  +	PeerId = "6" ++ ct:get_config(mcc) ++ ct:get_config(mcc)
   			++ MSIN ++ "@wlan." ++ Realm,
  -	DEA = send_diameter_identity(SId, EapId, PeerId),
  +	PeerId1 = list_to_binary(PeerId),
  +	DEA = send_diameter_identity(SId, EapId, PeerId1),
   	SIdbin = list_to_binary(SId),
   	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
   			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(_TestCase, Config) ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, RadPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	Protocol = radius,
  	{ok, _} = ocs:add_client(RadIP, RadPort, Protocol, SharedSecret, true),
  	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config].
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(_TestCase, Config) ->
  	Socket = ?config(socket, Config),
  	RadClient = ?config(radius_client, Config),
  
negative.code: %% Cleanup after the whole suite.
  %%
  end_per_suite(Config) ->
  	ok = application:unset_env(ocs, radius, [{persistent, true}]),
  	ok = application:unset_env(ocs, diameter, [{persistent, true}]),
  	ok = diameter:stop_service(?MODULE),
  	ok = ocs_test_lib:stop(),
  	Config.
  