File gproc-0.9.1-pool-tests.patch of Package gproc

Overview Repositories Revisions Requests Users Attributes Meta

File gproc-0.9.1-pool-tests.patch of Package gproc (Revision 6b46369499a4c18bbadc2f1dd3eb246b)

Currently displaying revision 6b46369499a4c18bbadc2f1dd3eb246b , Show latest

diff -Ndurp gproc-0.9.1/src/gproc_pool.erl gproc-0.9.1-pool-tests/src/gproc_pool.erl
--- gproc-0.9.1/src/gproc_pool.erl	2023-05-04 18:05:50.000000000 +0300
+++ gproc-0.9.1-pool-tests/src/gproc_pool.erl	2023-05-12 18:15:21.541942526 +0300
@@ -87,9 +87,11 @@
          terminate/2,
          code_change/3]).
 
+-ifdef(TEST).
 -export([test/1, test/3, ptest/4, test_run/2, test_run1/2, test_run2/2,
          test_run0/2, setup_test_pool/3, setup_test_pool/4,
 	 remove_test_pool/1]).
+-endif.
 
 -include("gproc_int.hrl").
 
@@ -993,13 +995,12 @@ incr(Pool, Incr, Sz) ->
 %%          {N, Pid}
 %%     end.
 
+-ifdef(TEST).
 %% ============================= Test code ===========================
 
-%% @private
 test(N) when N > 0 ->
     test(N, round_robin, []).
 
-%% @private
 test(N, Type, Opts) when Type==round_robin;
                          Type==random;
                          Type==hash;
@@ -1046,7 +1047,6 @@ f(_) ->
 
 
 
-%% @private
 setup_test_pool(P, Type, Opts) ->
     setup_test_pool(P, Type, Opts, test_workers()).
 
@@ -1060,7 +1060,6 @@ setup_test_pool(P, Type0, Opts, Workers)
      end || W <- Workers].
 
 
-%% @private
 remove_test_pool(P) ->
     io:fwrite("worker stats (~p):~n"
               "~p~n", [P, gproc:select(
@@ -1074,7 +1073,6 @@ remove_test_pool(P) ->
 
 test_workers() -> [a,b,c,d,e,f].
 
-%% @private
 test_run(N, P) ->
     test_run(N, P, 0, 0).
 
@@ -1087,7 +1085,6 @@ test_run(N, P, S, M) when N > 0 ->
 test_run(_, _, S, M) ->
     S/M.
 
-%% @private
 test_run1(N, P) ->
     test_run1(N, P, 0, 0).
 test_run1(N, P, S, M) when N > 0 ->
@@ -1099,7 +1096,6 @@ test_run1(N, P, S, M) when N > 0 ->
 test_run1(_, _, S, M) ->
     S/M.
 
-%% @private
 test_run2(N, P) ->
     test_run2(N, P, fun(K,_) ->
 			    R = log(K),
@@ -1117,3 +1113,4 @@ test_run0(N, X) when N > 0 ->
     test_run0(N-1, X);
 test_run0(_, _) ->
     ok.
+-endif.

Places

File gproc-0.9.1-pool-tests.patch of Package gproc (Revision 6b46369499a4c18bbadc2f1dd3eb246b)

Places