anchor.diff:  	top_up, get_balance, simultaneous_updates_on_client_failure,
   	get_product, add_product, add_product_sms,
   	update_product_realizing_service, delete_product,
  -	ignore_delete_product, query_product, filter_product].
  -
  -%%%%%---------------------------------------------------------------------
  +	ignore_delete_product, query_product, filter_product,
  +	oauth_authentication].
  +
  +%%---------------------------------------------------------------------
   %%  Test cases
   %%---------------------------------------------------------------------
  +
   authenticate_user_request() ->
   	[{userdata, [{doc, "Authorized user request to the server"}]}].
   
  
positive.code: 	{_, Secret} = lists:keyfind("secret", 1, Object1),
  	ok = ssl:close(SslSock).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
negative.code: %% Cleanup after the whole suite.
  %%
  end_per_suite(Config) ->
  	Config.
  
  -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(oauth_authentication, Config) ->
  	ok = set_inet_mod(),
  	application:stop(inets),
  	application:start(inets),
  	Config;
  init_per_testcase(_TestCase, Config) ->
  	Config.
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(oauth_authentication, _Config) ->
  	ok = set_inet_mod(),
  	application:stop(inets),
  	application:start(inets);
  end_per_testcase(_TestCase, _Config) ->
  	ok.
  
  