1 files changed, 126 insertions, 0 deletions
diff --git a/lib/tools/test/prof_bench_SUITE.erl b/lib/tools/test/prof_bench_SUITE.erl
new file mode 100644
index 0000000000..50d0ba9cd9
--- /dev/null
+++ b/lib/tools/test/prof_bench_SUITE.erl
@@ -0,0 +1,126 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2001-2017. All Rights Reserved.
+%%
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%%
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
+%%
+%% %CopyrightEnd%
+%%
+-module(prof_bench_SUITE).
+
+-include_lib("common_test/include/ct_event.hrl").
+
+%% Test server framework exports
+-export([all/0, suite/0, init_per_suite/1, end_per_suite/1]).
+
+-export([overhead/1]).
+
+%%%---------------------------------------------------------------------
+%%% Test suites
+%%%---------------------------------------------------------------------
+
+
+suite() ->
+    [{timetrap,{minutes,10}}].
+
+all() ->
+    [overhead].
+
+init_per_suite(Config) ->
+    case {test_server:is_native(fprof_SUITE) or
+          (lists:any(fun(M) -> test_server:is_native(M) end, modules())) or
+          (whereis(cover_server) =/= undefined),
+          erlang:system_info(wordsize)}
+    of
+        {true, _} -> {skip, "Native or cover code"};
+        {_, 4} -> {skip, "Can't run on 32-bit as files will be large"};
+        {false, 8} -> Config
+    end.
+
+end_per_suite(Config) ->
+    LogFile = filename:join(proplists:get_value(priv_dir, Config), "fprof.trace"),
+    file:delete(LogFile),
+    ok.
+
+%%%---------------------------------------------------------------------
+
+%% ct:run_test([{suite, prof_bench_SUITE}]).
+overhead(Config) ->
+    LogFile = filename:join(proplists:get_value(priv_dir, Config), "fprof.trace"),
+    SofsCopy = filename:join(proplists:get_value(data_dir, Config), "sofs_copy.erl"),
+    TC = fun() -> compile:file(SofsCopy, [binary]) end,
+    _Warmup = timer:tc(TC),
+
+    {NormTime,{ok, sofs_copy, _}} = timer:tc(TC),
+    {FProfTime,{ok,sofs_copy,_}} = fprof:apply(timer, tc, [TC], [{file, LogFile}]),
+    ct:pal("FProf: ~p Norm: ~p Ratio: ~p",[FProfTime, NormTime, NormTime / FProfTime * 100]),
+    {ok,{EProfTime,{ok,sofs_copy,_}}} = eprof:profile([], timer, tc, [TC]),
+    ct:pal("EProf: ~p Norm: ~p Ratio: ~p",[EProfTime, NormTime, NormTime / EProfTime * 100]),
+    {CProfTime,{ok,sofs_copy,_}} = cprof_apply(timer, tc, [TC]),
+    ct:pal("CProf: ~p Norm: ~p Ratio: ~p",[CProfTime, NormTime, NormTime / CProfTime * 100]),
+    {CoverTime,{ok,sofs_copy,_}} = cover_apply(timer, tc, [TC]),
+    ct:pal("Cover: ~p Norm: ~p Ratio: ~p",[CoverTime, NormTime, NormTime / CoverTime * 100]),
+
+    ct_event:notify(#event{name = benchmark_data,
+                           data = [{name, fprof_overhead},
+                                   {value, NormTime / FProfTime * 100}]}),
+    ct_event:notify(#event{name = benchmark_data,
+                           data = [{name, eprof_overhead},
+                                   {value, NormTime / EProfTime * 100}]}),
+    ct_event:notify(#event{name = benchmark_data,
+                           data = [{name, cprof_overhead},
+                                   {value, NormTime / CProfTime * 100}]}),
+    ct_event:notify(#event{name = benchmark_data,
+                           data = [{name, cover_overhead},
+                                   {value, NormTime / CoverTime * 100}]}).
+
+%% overhead(Config) ->
+%%     LogFile = filename:join(proplists:get_value(priv_dir, Config), "fprof.trace"),
+%%     SofsCopy = filename:join(proplists:get_value(data_dir, Config), "sofs_copy.erl"),
+%%     TC = fun() -> compile:file(SofsCopy, [binary]) end,
+%%     _Warmup = timer:tc(TC),
+
+%%     [{ok,{EProfTime,{ok,sofs_copy,_}}} = eprof:profile([], timer, tc, [TC])
+%%      || _ <- lists:seq(1,10)],
+%% %%    [fprof:apply(timer, tc, [TC], [{file, LogFile}]) || _ <- lists:seq(1,10)],
+%%     {FProfTime,{ok,sofs_copy,_}} = fprof:apply(timer, tc, [TC], [{file, LogFile}]),
+%%     {NormTime,{ok, sofs_copy, _}} = timer:tc(TC),
+
+    %% ct:pal("FProf: ~p Norm: ~p Ratio: ~p",[FProfTime, NormTime, FProfTime / NormTime]).
+
+cprof_apply(M, F, A) ->
+    cprof:start(),
+    Res = apply(M, F, A),
+    cprof:stop(),
+    Res.
+
+cover_apply(M, F, A) ->
+    cover:start(),
+    catch cover:local_only(),
+    Modules = modules(),
+    [code:unstick_mod(Mod) || Mod <- Modules],
+    cover:compile_beam(Modules),
+    [code:stick_mod(Mod) || Mod <- Modules],
+    Res = apply(M, F, A),
+    cover:stop(),
+    Res.
+
+modules() ->
+    application:load(compiler),
+    {ok, CompilerModules} = application:get_key(compiler, modules),
+    %% Only cover compile a subset of the stdlib modules
+    StdlibModules = [erl_parse, erl_expand_records, erl_lint, gb_trees, gb_sets, sofs,
+                     beam_lib, dict, epp, erl_anno, erl_bits,
+                     orddict, ordsets, sets, string, unicode, unicode_util],
+    CompilerModules ++ StdlibModules.