1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1996-2010. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
-module(eprof_SUITE).
-include("test_server.hrl").
-export([all/1,tiny/1,eed/1]).
all(suite) -> [tiny,eed].
tiny(suite) -> [];
tiny(Config) when is_list(Config) ->
?line ensure_eprof_stopped(),
?line {ok, OldCurDir} = file:get_cwd(),
Datadir = ?config(data_dir, Config),
Privdir = ?config(priv_dir, Config),
?line TTrap=?t:timetrap(60*1000),
% (Trace)Compile to priv_dir and make sure the correct version is loaded.
?line {ok,eprof_suite_test} = compile:file(filename:join(Datadir,
"eprof_suite_test"),
[trace,{outdir, Privdir}]),
?line ok = file:set_cwd(Privdir),
?line code:purge(eprof_suite_test),
?line {module,eprof_suite_test} = code:load_file(eprof_suite_test),
?line {ok,_Pid} = eprof:start(),
?line nothing_to_analyze = eprof:analyze(),
?line nothing_to_analyze = eprof:analyze(total),
?line eprof:profile([], eprof_suite_test, test, [Config]),
?line ok = eprof:analyze(),
?line ok = eprof:analyze(total),
?line ok = eprof:log("eprof_SUITE_logfile"),
?line stopped = eprof:stop(),
?line ?t:timetrap_cancel(TTrap),
?line ok = file:set_cwd(OldCurDir),
ok.
eed(suite) -> [];
eed(Config) when is_list(Config) ->
?line ensure_eprof_stopped(),
?line Datadir = ?config(data_dir, Config),
?line Privdir = ?config(priv_dir, Config),
?line TTrap=?t:timetrap(5*60*1000),
%% (Trace)Compile to priv_dir and make sure the correct version is loaded.
?line code:purge(eed),
?line {ok,eed} = c:c(filename:join(Datadir, "eed"), [trace,{outdir,Privdir}]),
?line {ok,_Pid} = eprof:start(),
?line Script = filename:join(Datadir, "ed.script"),
?line ok = file:set_cwd(Datadir),
?line {T1,_} = statistics(runtime),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line ok = eed:file(Script),
?line {T2,_} = statistics(runtime),
?line {ok,ok} = eprof:profile([], eed, file, [Script]),
?line {T3,_} = statistics(runtime),
?line profiling_already_stopped = eprof:stop_profiling(),
?line ok = eprof:analyze(),
?line ok = eprof:analyze(total),
?line ok = eprof:log("eprof_SUITE_logfile"),
?line stopped = eprof:stop(),
?line ?t:timetrap_cancel(TTrap),
S = lists:flatten(io_lib:format("~p times slower", [10*(T3-T2)/(T2-T1)])),
{comment,S}.
ensure_eprof_stopped() ->
Pid = whereis(eprof),
case whereis(eprof) of
undefined ->
ok;
Pid ->
?line stopped=eprof:stop()
end.
|
