anchor.diff:              {error, E} ->
                   throw({concat_atoms(Case, error), E})
           end
  -    end, [], Cases),
  -    Ans.
  +    end, [], Cases).
  +
  +get_stress_test_params() ->
  +    [{suite, Suite}] = ets:lookup(stress_ets, suite),
  +    [{cases, Cases}] = ets:lookup(stress_ets, cases),
  +
  +    lists:foldl(fun(Case, Ans) ->
  +        Params =  apply(Suite, Case, [get_params]),
  +        Params2 = lists:map(fun(Param) ->
  +            PName = Param#parameter.name,
  +            Param#parameter{name = concat_atoms(Case, PName)}
  +        end, Params),
  +        Params2 ++ Ans
  +    end, [], Cases).
   
   %%%===================================================================
   %%% Internal functions
  
positive.code:     ),
      % Inject configuration parameters into common test cases configuration.
      NewCaseArgs = inject_parameters(CaseArgs, ConfigParams),
  
      ConfigReps = case is_stress_test() of
          true ->
  
negative.code:     end.
  
  stress_test(Config) ->
      [{suite, Suite}] = ets:lookup(stress_ets, suite),
      [{cases, Cases}] = ets:lookup(stress_ets, cases),
  %%     [{timeout, Timeout}] = ets:lookup(stress_ets, timeout),
  %%     ct:timetrap({seconds, Timeout + 360}),
  
      lists:foldl(fun(Case, Ans) ->
          case apply(Suite, Case, [Config]) of
              {ok, TmpAns} ->
                  TmpAns2 = lists:map(fun(Param) ->
  