Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0112-kernel-test-Add-printouts-to-init-end-_per...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0112-kernel-test-Add-printouts-to-init-end-_per_testcase.patch of Package erlang
From 9223d3248cb805a0c67189b9494451386d5b18a2 Mon Sep 17 00:00:00 2001 From: Micael Karlberg <bmk@erlang.org> Date: Mon, 15 Mar 2021 14:39:59 +0100 Subject: [PATCH 2/4] [kernel|test] Add printouts to [init|end]_per_testcase Add status printouts at the begin and end of init_per_testcase and end_per_testcase. --- lib/kernel/test/global_SUITE.erl | 79 ++++++++++++++++++++++++-------- 1 file changed, 59 insertions(+), 20 deletions(-) diff --git a/lib/kernel/test/global_SUITE.erl b/lib/kernel/test/global_SUITE.erl index e24d467f96..29698748c0 100644 --- a/lib/kernel/test/global_SUITE.erl +++ b/lib/kernel/test/global_SUITE.erl @@ -115,23 +115,53 @@ end_per_suite(_Config) -> init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) -> start_node_tracker(Config), - ok = gen_server:call(global_name_server, high_level_trace_start,infinity), + ?P("init_per_testcase -> entry with" + "~n Config: ~p" + "~n Nodes: ~p" + "~n Links: ~p" + "~n Monitors: ~p", + [Config0, erlang:nodes(), pi(links), pi(monitors)]), - [{?TESTCASE, Case}, {registered, registered()} | Config]. + ok = gen_server:call(global_name_server, + high_level_trace_start, + infinity), + + Config1 = [{?TESTCASE, Case}, {registered, registered()} | Config0], + + ?P("init_per_testcase -> done when" + "~n Config: ~p" + "~n Nodes: ~p" + "~n Links: ~p" + "~n Monitors: ~p", [Config1, erlang:nodes(), pi(links), pi(monitors)]), + + Config1. end_per_testcase(_Case, Config) -> - ct:log("Calling end_per_testcase!",[]), + ?P("end_per_testcase -> entry with" + "~n Config: ~p" + "~n Nodes: ~p" + "~n Links: ~p" + "~n Monitors: ~p", + [Config, erlang:nodes(), pi(links), pi(monitors)]), + write_high_level_trace(Config), - _ = - gen_server:call(global_name_server, high_level_trace_stop, infinity), + _ = gen_server:call(global_name_server, high_level_trace_stop, infinity), [global:unregister_name(N) || N <- global:registered_names()], InitRegistered = ?registered, Registered = registered(), - [io:format("~s local names: ~p~n", [What, N]) || + + [?P("end_per_testcase -> " + "~n ~s local names: ~p", [What, N]) || {What, N} <- [{"Added", Registered -- InitRegistered}, {"Removed", InitRegistered -- Registered}], N =/= []], + ?P("end_per_testcase -> done with" + "~n Nodes: ~p" + "~n Links: ~p" + "~n Monitors: ~p", + [erlang:nodes(), pi(links), pi(monitors)]), + stop_node_tracker(Config). %% Needs to be last and produce return value... %%% General comments: @@ -386,7 +416,7 @@ write_high_level_trace(Config) -> end. write_high_level_trace(Nodes, Config) -> - When = now(), + When = erlang:timestamp(), %% 'info' returns more than the trace, which is nice. Data = [{Node, {info, rpc:call(Node, global, info, [])}} || Node <- Nodes], @@ -1946,9 +1976,9 @@ otp_5737(Config) when is_list(Config) -> {'EXIT', _} = (catch global:set_lock(LockId, Nodes, -1)), {'EXIT', _} = (catch global:set_lock(LockId, Nodes, a)), true = global:set_lock(LockId, Nodes, 0), - Time1 = now(), + Time1 = erlang:timestamp(), false = global:set_lock({?MODULE,not_me}, Nodes, 0), - true = timer:now_diff(now(), Time1) < 5000, + true = timer:now_diff(erlang:timestamp(), Time1) < 5000, _ = global:del_lock(LockId, Nodes), Fun = fun() -> ok end, @@ -3623,7 +3653,7 @@ loop_2() -> end. msec() -> - msec(now()). + msec(erlang:timestamp()). msec(T) -> element(1,T)*1000000000 + element(2,T)*1000 + element(3,T) div 1000. @@ -3835,7 +3865,7 @@ node_names(Names, Config) -> %% simple_resolve assumes that the node name comes first. node_name(Name, Config) -> U = "_", - {{Y,M,D}, {H,Min,S}} = calendar:now_to_local_time(now()), + {{Y,M,D}, {H,Min,S}} = calendar:now_to_local_time(erlang:timestamp()), Date = io_lib:format("~4w_~2..0w_~2..0w__~2..0w_~2..0w_~2..0w", [Y,M,D, H,Min,S]), L = lists:flatten(Date), @@ -3956,13 +3986,13 @@ mass_death(Config) when is_list(Config) -> {H,M,S} = time(), io:format("Started probing: ~.4.0w-~.2.0w-~.2.0w ~.2.0w:~.2.0w:~.2.0w~n", [YYYY,MM,DD,H,M,S]), - wait_mass_death(Nodes, OrigNames, erlang:now(), Config). + wait_mass_death(Nodes, OrigNames, erlang:timestamp(), Config). wait_mass_death(Nodes, OrigNames, Then, Config) -> Names = global:registered_names(), case Names--OrigNames of [] -> - T = now_diff(erlang:now(), Then) div 1000, + T = now_diff(erlang:timestamp(), Then) div 1000, lists:foreach( fun (Node) -> stop_node(Node) @@ -4261,14 +4291,14 @@ start_tracer() -> tracer(L) -> receive %% {save, Term} -> - %% tracer([{now(),Term} | L]); + %% tracer([{erlang:timestamp(),Term} | L]); {get, From} -> From ! {trace, lists:reverse(L)}, tracer([]); stop -> exit(normal); Term -> - tracer([{now(),Term} | L]) + tracer([{erlang:timestamp(),Term} | L]) end. stop_tracer() -> @@ -4299,6 +4329,15 @@ trace_message(M) -> ok end. +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +pi(Item) -> + {Item, Val} = process_info(self(), Item), + Val. + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%----------------------------------------------------------------- %% The error_logger handler used for OTP-6931. %%----------------------------------------------------------------- -- 2.26.2
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor