Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
gproc
gproc-0.9.1-pool-tests.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File gproc-0.9.1-pool-tests.patch of Package gproc
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.
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor