eunit timeout

general_proper_tests.erl

-module(general_proper_tests).

-include_lib("proper/include/proper.hrl").
-include_lib("eunit/include/eunit.hrl").

some_cool_test_() ->
    Properties = lists:filter(fun({F, _}) ->
                                      case atom_to_list(F) of
                                          "prop_" ++ _Rest -> true;
                                          _ ->   false
                                      end
                              end, ?MODULE:module_info(exports)),
    Tests = [{timeout, 60, %% 60 sec
                fun() ->
                        timer:sleep(10000) %% 10 sec
                end}
             || {P, _} <- Properties],
   
    Tests.