aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2016-04-20 20:35:43 +0200
committerBjörn-Egil Dahlberg <[email protected]>2016-04-29 18:31:39 +0200
commit4169ddb041eb85afd89d4ad0929c8fa9e88fb14b (patch)
treeffc234220e16fc1eda9eb3503ea45acf90fb4025
parentfe7289591703d5eb151a74a01a278f38497529d6 (diff)
downloadotp-4169ddb041eb85afd89d4ad0929c8fa9e88fb14b.tar.gz
otp-4169ddb041eb85afd89d4ad0929c8fa9e88fb14b.tar.bz2
otp-4169ddb041eb85afd89d4ad0929c8fa9e88fb14b.zip
runtime_tools: Update dyntrace_lttng_SUITE tests
-rw-r--r--lib/runtime_tools/test/dyntrace_lttng_SUITE.erl92
1 files changed, 88 insertions, 4 deletions
diff --git a/lib/runtime_tools/test/dyntrace_lttng_SUITE.erl b/lib/runtime_tools/test/dyntrace_lttng_SUITE.erl
index 185819f348..e6c147b003 100644
--- a/lib/runtime_tools/test/dyntrace_lttng_SUITE.erl
+++ b/lib/runtime_tools/test/dyntrace_lttng_SUITE.erl
@@ -31,9 +31,12 @@
t_running_process/1,
t_running_port/1,
t_call/1,
+ t_call_return_to/1,
+ t_call_silent/1,
t_send/1,
t_receive/1,
- t_garbage_collection/1]).
+ t_garbage_collection/1,
+ t_all/1]).
suite() ->
[{ct_hooks,[ts_install_cth]},
@@ -46,10 +49,12 @@ all() ->
t_running_process,
t_running_port,
t_call,
+ t_call_return_to,
+ t_call_silent,
t_send,
t_receive,
- t_garbage_collection].
-
+ t_garbage_collection,
+ t_all].
init_per_suite(Config) ->
@@ -92,6 +97,7 @@ end_per_testcase(Case, _Config) ->
%% com_ericsson_dyntrace:port_link
%% com_ericsson_dyntrace:port_exit
%% com_ericsson_dyntrace:port_open
+%% com_ericsson_dyntrace:port_scheduled
%% com_ericsson_dyntrace:process_scheduled
%% com_ericsson_dyntrace:process_register
%% com_ericsson_dyntrace:process_exit
@@ -198,6 +204,46 @@ t_send(Config) when is_list(Config) ->
ok = check_tracepoint("com_ericsson_dyntrace:message_send", Res),
ok.
+t_call_return_to(Config) when is_list(Config) ->
+ ok = lttng_start_event("com_ericsson_dyntrace:function_*", Config),
+ _ = erlang:trace(new, true, [{tracer, dyntrace, []}, call, return_to]),
+ _ = erlang:trace_pattern({lists, '_', '_'}, true, [local]),
+ _ = erlang:trace_pattern({?MODULE, '_', '_'}, true, [local]),
+
+ Pid = spawn_link(fun() -> gcfier(10) end),
+ Pid ! {self(), ok},
+ ok = receive {Pid,ok} -> ok end,
+ timer:sleep(10),
+
+ _ = erlang:trace_pattern({?MODULE, '_', '_'}, false, [local]),
+ _ = erlang:trace_pattern({lists, '_', '_'}, false, [local]),
+ _ = erlang:trace(all, false, [call,return_to]),
+ Res = lttng_stop_and_view(Config),
+ ok = check_tracepoint("com_ericsson_dyntrace:function_call", Res),
+ ok.
+
+t_call_silent(Config) when is_list(Config) ->
+ ok = lttng_start_event("com_ericsson_dyntrace:function_*", Config),
+ _ = erlang:trace(new, true, [{tracer, dyntrace, []}, call, silent]),
+ _ = erlang:trace_pattern({?MODULE, '_', '_'}, [{'_',[],[{exception_trace}]}], [local]),
+
+ DontLink = spawn(fun() -> foo_clause_exception(nope) end),
+ Pid = spawn_link(fun() -> waiter() end),
+ Pid ! {self(), ok},
+ ok = receive {Pid,ok} -> ok end,
+
+ timer:sleep(10),
+ undefined = erlang:process_info(DontLink),
+
+ _ = erlang:trace_pattern({?MODULE, '_', '_'}, false, [local]),
+ _ = erlang:trace(all, false, [call]),
+ Res = lttng_stop_and_view(Config),
+ notfound = check_tracepoint("com_ericsson_dyntrace:function_call", Res),
+ notfound = check_tracepoint("com_ericsson_dyntrace:function_return", Res),
+ notfound = check_tracepoint("com_ericsson_dyntrace:function_exception", Res),
+ ok.
+
+
t_receive(Config) when is_list(Config) ->
ok = lttng_start_event("com_ericsson_dyntrace:message_receive", Config),
_ = erlang:trace(new, true, [{tracer, dyntrace, []},'receive']),
@@ -227,12 +273,50 @@ t_garbage_collection(Config) when is_list(Config) ->
ok = check_tracepoint("com_ericsson_dyntrace:gc_minor_end", Res),
ok.
+t_all(Config) when is_list(Config) ->
+ ok = lttng_start_event("com_ericsson_dyntrace:*", Config),
+ _ = erlang:trace(new, true, [{tracer, dyntrace, []},all]),
+
+ Pid1 = spawn_link(fun() -> waiter() end),
+ Pid1 ! {self(), ok},
+ ok = receive {Pid1,ok} -> ok end,
+
+ Pid2 = spawn_link(fun() -> gcfier() end),
+ Pid2 ! {self(), ok},
+ ok = receive {Pid2,ok} -> ok end,
+ _ = os:cmd("ls"),
+ _ = os:cmd("ls"),
+ timer:sleep(10),
+
+ _ = erlang:trace(all, false, [all]),
+ Res = lttng_stop_and_view(Config),
+
+ ok = check_tracepoint("com_ericsson_dyntrace:process_spawn", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:process_link", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:process_exit", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:process_register", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:port_open", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:port_link", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:port_exit", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:process_scheduled", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:port_scheduled", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:message_send", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:message_receive", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:gc_major_start", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:gc_major_end", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:gc_minor_start", Res),
+ ok = check_tracepoint("com_ericsson_dyntrace:gc_minor_end", Res),
+ ok.
+
+
%% aux
gcfier() ->
+ gcfier(10000).
+gcfier(N) ->
receive
{Pid, ok} ->
- _ = lists:reverse(lists:seq(1,10000)),
+ _ = lists:reverse(lists:seq(1,N)),
true = erlang:garbage_collect(),
Pid ! {self(), ok}
end.