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

Overview Repositories Revisions Requests Users Attributes Meta

File gproc-0.8.0-pool-tests.patch of Package gproc (Revision 1f91fd09c9e1d89ef2ebc83bb7623636)

Currently displaying revision 1f91fd09c9e1d89ef2ebc83bb7623636 , Show latest

diff -Ndurp gproc-0.8.0/src/gproc_pool.erl gproc-0.8.0-pool-tests/src/gproc_pool.erl
--- gproc-0.8.0/src/gproc_pool.erl	2018-06-03 19:57:16.000000000 +0300
+++ gproc-0.8.0-pool-tests/src/gproc_pool.erl	2019-12-28 19:27:42.214002823 +0200
@@ -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.
 
 -define(POOL(Pool), {p,l,{?MODULE,Pool}}).
 -define(POOL_CUR(Pool), {c,l,{?MODULE,Pool,cur}}).
@@ -986,13 +988,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;
@@ -1039,7 +1040,6 @@ f(_) ->
 
 
 
-%% @private
 setup_test_pool(P, Type, Opts) ->
     setup_test_pool(P, Type, Opts, test_workers()).
 
@@ -1053,7 +1053,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(
@@ -1067,7 +1066,6 @@ remove_test_pool(P) ->
 
 test_workers() -> [a,b,c,d,e,f].
 
-%% @private
 test_run(N, P) ->
     test_run(N, P, 0, 0).
 
@@ -1080,7 +1078,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 ->
@@ -1092,7 +1089,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),
@@ -1110,3 +1106,4 @@ test_run0(N, X) when N > 0 ->
     test_run0(N-1, X);
 test_run0(_, _) ->
     ok.
+-endif.

Places

File gproc-0.8.0-pool-tests.patch of Package gproc (Revision 1f91fd09c9e1d89ef2ebc83bb7623636)

Places