anchor.diff:      Size = 30,
       Args = try tester_value_creator:create_value(ArgType, Size, TypeInfos)
              catch
  -               throw:Term ->
  -                   {fail, lists:flatten(io_lib:format("throw in ~.0p:~.0p(): ~.0p~n",
  -                                                      [Module, Func, Term])),
  -                    erlang:get_stacktrace(), util:get_linetrace()};
  -               exit:Reason ->
  -                   {fail, lists:flatten(io_lib:format("exit in ~.0p:~.0p(): ~.0p~n",
  -                                                      [Module, Func, Reason])),
  -                    erlang:get_stacktrace(), util:get_linetrace()};
  -               error:Reason ->
  -                   {fail, lists:flatten(io_lib:format("error in ~.0p:~.0p(): ~.0p~n",
  -                                                      [Module, Func, Reason])),
  -                    erlang:get_stacktrace(), util:get_linetrace()}
  +               Error:Reason ->
  +                   {fail, Error, tester_value_creator, create_value, [ArgType, Size, TypeInfos],
  +                    Reason, erlang:get_stacktrace(), util:get_linetrace()}
       end,
       apply_args(Module, Func, Arity, Args, Iterations, FunType, TypeInfos).
   
  
positive.code:     %ct:pal("~w~n", [Results]),
      _ = [fun (Result) ->
                   case Result of
                       {fail, Message, StackTrace, LineTrace} ->
                           ct:pal("Failed~n"
                                  " Message    ~p~n"
                                  " Stacktrace ~p~n"
                                  " Linetrace  ~p~n",
                                  [Message, StackTrace, LineTrace]),
                           ?ct_fail("~.0p", [Message]);
                       ok -> ok
                   end
           end(XResult) || XResult <- Results],
  
negative.code:         true ->
              run_helper(Module, Func, Arity, Iterations - 1, FunType, TypeInfos);
          X ->
              {fail, test_case_failed, Module, Func, Args, X, no_stacktrace, util:get_linetrace()}
      catch
          exit:{test_case_failed, Reason} ->
              {fail, test_case_failed, Module, Func, Args, Reason, erlang:get_stacktrace(), util:get_linetrace()};
          Error:Reason ->
              {fail, Error, Module, Func, Args, Reason, erlang:get_stacktrace(), util:get_linetrace()}
      end.
  
  -spec run_test/6 :: (module(), atom(), non_neg_integer(), non_neg_integer(),
  