diff --git a/src/erlUtils.erl b/src/erlUtils.erl index 4106bf7..0e8f024 100644 --- a/src/erlUtils.erl +++ b/src/erlUtils.erl @@ -1,3 +1,6 @@ -module(erlUtils). --export([]). +-export([start/0]). + +start() -> + application:start(erlUtils). diff --git a/src/testCase/tc.erl b/src/measure/utTc.erl similarity index 89% rename from src/testCase/tc.erl rename to src/measure/utTc.erl index 28d9e12..279646e 100644 --- a/src/testCase/tc.erl +++ b/src/measure/utTc.erl @@ -1,22 +1,11 @@ --module(tc). +-module(utTc). -compile([export_all, nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]). %% 单进程循环测试:LoopTimes是循环次数 -%% tc:t(Module, Function, ArgsList, LoopTimes). +%% utTc:ts(Module, Function, ArgsList, LoopTimes). %% 多进程并发测试:SpawnProcessesCount是并发的进程数 -%% tc:ct(Module, Function, ArgsList, SpawnProcessesCount). - -t1() -> - [ X || X <- lists:seq(1, 5000) ]. - -t2() -> - t2(lists:seq(1, 5000)). -t2([H|T]) -> - H, - t2(T); -t2([]) -> - ok. +%% utTc:tm(Module, Function, ArgsList, SpawnProcessesCount). tc(M, F, A) -> {Microsecond, _} = timer:tc (M, F, A), @@ -38,7 +27,7 @@ distribution([], _Aver, Greater, Less) -> %% test: one process test N times %% =================================================================== -t(M, F, A, N) -> +ts(M, F, A, N) -> {Max, Min, Sum, Aver, Greater, Less} = loop ({M, F, A}, N), io:format ("=====================~n"), io:format ("execute [~p] times of {~p, ~p, ~p}:~n", [N, M, F, A]), @@ -79,7 +68,7 @@ loop({_M, _F, _A}, N, _I, Max, Min, Sum, List) -> %% Concurrency test: N processes each test one time %% =================================================================== -ct(M, F, A, N) -> +tm(M, F, A, N) -> {Max, Min, Sum, Aver, Greater, Less} = cloop ({M, F, A}, N), io:format ("=====================~n"), io:format ("spawn [~p] processes of {~p, ~p, ~p}:~n", [N, M, F, A]), @@ -93,14 +82,14 @@ ct(M, F, A, N) -> cloop({M, F, A}, N) -> CollectorPid = self(), - ok = loop_spawn({M, F, A}, CollectorPid, N), + ok = loopSpawn({M, F, A}, CollectorPid, N), collector(0, 0, 0, N, 1, []). -loop_spawn({M, F, A}, CollectorPid, N) when N > 0 -> +loopSpawn({M, F, A}, CollectorPid, N) when N > 0 -> spawn_link(fun() -> worker({M, F, A}, CollectorPid) end), - loop_spawn({M, F, A}, CollectorPid, N - 1); -loop_spawn(_, _, 0) -> + loopSpawn({M, F, A}, CollectorPid, N - 1); +loopSpawn(_, _, 0) -> ok. collector(Max, Min, Sum, N, I, List) when N >= I -> diff --git a/src/srvNodeMgr/utSrvManager.erl b/src/srvNodeMgr/utSrvManager.erl index fb273f5..aba76f3 100644 --- a/src/srvNodeMgr/utSrvManager.erl +++ b/src/srvNodeMgr/utSrvManager.erl @@ -1 +1,6 @@ --module(utSrvManager). \ No newline at end of file +-module(utSrvManager). + +-export([test/0]). + +test() -> + ok. \ No newline at end of file diff --git a/src/testCase/utTestPerformance.erl b/src/testCase/utTpfm.erl similarity index 98% rename from src/testCase/utTestPerformance.erl rename to src/testCase/utTpfm.erl index c9382b7..b8b2cdd 100644 --- a/src/testCase/utTestPerformance.erl +++ b/src/testCase/utTpfm.erl @@ -1,4 +1,4 @@ --module(utTestPerformance). +-module(utTpfm). -compile([export_all, nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]). @@ -501,7 +501,21 @@ tttT(0, A, B, _) -> tttT(N, A, B, _) -> tttT(N -1, A, B, {A, B}). +listLoopIn(X) -> + X. +listLoop1(List) -> + [listLoopIn(One) || One <- List], + ok. + +listLoop2([]) -> + ok; +listLoop2([One | List]) -> + listLoopIn(One), + listLoop2(List). + +listLoop3(List) -> + lists:foreach(fun(X) -> listLoopIn(X) end, List).