anchor.diff:    ets:delete(?STRESS_ETS_NAME),
     EtsOwner ! kill_ets_owner,
     Ans.
  +
  +
  +%%--------------------------------------------------------------------
  +%% @doc
  +%% Checks if function should clear or leave changes (e.g. docs in DB).
  +%% @end
  +%%--------------------------------------------------------------------
  +-spec should_clear(Config :: list()) -> boolean().
  +should_clear(Config) ->
  +  ?config(clearing, Config) =/= false.
  +
  +%%%===================================================================
  +%%% Internal functions
  +%%%===================================================================
   
   %%--------------------------------------------------------------------
   %% @doc
  
positive.code:       run_testcase(SuiteName, CaseName, CaseArgs, Data, TestFun)
    end.
  
  
  %%--------------------------------------------------------------------
  %% @private
  %% @doc
  %% TODO add doc
  %% @end
  %%--------------------------------------------------------------------
  %% TODO update spec
  -spec run_testcase(SuiteName :: list(), CaseName :: list(), CaseArgs :: list(),
      Data :: list(), TestFun :: function()) -> term().
  run_testcase(SuiteName, CaseName, CaseArgs, Data, TestFun) ->
    DefaultReps = proplists:get_value(repeats, Data, 1),
    DefaultSuccessRate = proplists:get_value(success_rate, Data, 100),
    DefaultParams = parse_parameters(proplists:get_value(parameters, Data, [])),
    case is_standard_test() of
      false ->
        CaseDescr = proplists:get_value(description, Data, ""),
        Configs = proplists:get_all_values(config, Data),
        exec_perf_configs(TestFun, CaseDescr, SuiteName, CaseName, CaseArgs,
          Configs, DefaultReps, DefaultSuccessRate, DefaultParams);
      _ ->
        exec_ct_config(TestFun, CaseArgs, DefaultParams)
    end.
  
  %%--------------------------------------------------------------------
  %% @doc
  %%TODO add doc
  %% @end
  %%--------------------------------------------------------------------
  %%TODO add spec
  set_up_stress_test(SuiteName, CasesNames, NoClearingCases) ->
    case {os:getenv(?STRESS_ENV_VARIABLE), os:getenv(?STRESS_NO_CLEARING_ENV_VARIABLE)} of
      {"true", _} ->
        save_suite_and_cases(SuiteName, CasesNames),
        [stress_test];
      {_, "true"} ->
        save_suite_and_cases(SuiteName, NoClearingCases),
        [stress_test]
    end.
  
  %%--------------------------------------------------------------------
  %% @doc
  %%TODO add doc
  %% @end
  %%--------------------------------------------------------------------
  %%TODO add spec
  run_stress_test(SuiteName, CaseArgs, Data, TestFun) ->
  
    CaseDescr = proplists:get_value(description, Data, ""),
  
negative.code: %%--------------------------------------------------------------------
  %% @private
  %% @doc
  %% This function runs given test case in given suite.
  %% @end
  %%--------------------------------------------------------------------
  -spec run_test(atom(), atom(), term(), Data :: [term()], TestFun :: function())
        -> list().
  run_test(_SuiteName, _CaseName, get_params, Data, _TestFun) ->
    get_config_params(Data);
  run_test(SuiteName, CaseName, CaseArgs, Data, TestFun) ->
  