anchor.diff:                  end, TmpAns),
                   TmpAns2 ++ Ans;
               {error, E} ->
  -                throw({concat_atoms(Case, error), E})
  +                Message = gui_str:format("Case: ~p, error: ~p", [Case, binary_to_list(E)]),
  +                throw(Message)
           end
       end, [], Cases).
   
  +%%--------------------------------------------------------------------
  +%% @doc
  +%% Returns list of test's parameters.
  +%% @end
  +%%--------------------------------------------------------------------
  +-spec get_stress_test_params() -> list().
   get_stress_test_params() ->
       [{suite, Suite}] = ets:lookup(stress_ets, suite),
       [{cases, Cases}] = ets:lookup(stress_ets, cases),
  
positive.code:         DefaultParams
      ).
  
  concat_atoms(A1, A2) ->
      list_to_atom(atom_to_list(A1) ++ "_" ++ atom_to_list(A2)).
  
  
negative.code:             exec_ct_config(SuiteName, CaseName, CaseArgs, DefaultParams)
      end.
  
  %%--------------------------------------------------------------------
  %% @private
  %% @doc
  %% Checks if current run is stress test.
  %% @end
  %%--------------------------------------------------------------------
  -spec is_stress_test() -> boolean().
  is_stress_test() ->
      Envs = [os:getenv(?STRESS_ENV_VARIABLE), os:getenv(?STRESS_NO_CLEARING_ENV_VARIABLE)],
      lists:member("true", Envs).
  
  %%--------------------------------------------------------------------
  %% @private
  %% @doc
  %% Saves information about tests to be done during stress test.
  %% @end
  %%--------------------------------------------------------------------
  -spec save_suite_and_cases(Suite :: atom(), Cases :: list()) -> ok.
  save_suite_and_cases(Suite, Cases) ->
      Pid = self(),
      case ets:info(stress_ets) of
  