diff options
author | Björn-Egil Dahlberg <[email protected]> | 2016-04-20 20:35:43 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2016-04-29 18:31:39 +0200 |
commit | 4169ddb041eb85afd89d4ad0929c8fa9e88fb14b (patch) | |
tree | ffc234220e16fc1eda9eb3503ea45acf90fb4025 | |
parent | fe7289591703d5eb151a74a01a278f38497529d6 (diff) | |
download | otp-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.erl | 92 |
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. |