diff options
| author | Raimo Niskanen <[email protected]> | 2019-03-27 16:14:48 +0100 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2019-03-28 11:21:26 +0100 |
| commit | 7965fa45b1afb12c262b9988160593f9bb5c048a (patch) | |
| tree | 939db7a68f6c2592506c8eea40cfcb770f6d242c /lib/ssl/test/ssl_dist_bench_SUITE.erl | |
| parent | acee7dfbbae3f044110a88fb43dc5389eb09748e (diff) | |
| download | otp-7965fa45b1afb12c262b9988160593f9bb5c048a.tar.gz otp-7965fa45b1afb12c262b9988160593f9bb5c048a.tar.bz2 otp-7965fa45b1afb12c262b9988160593f9bb5c048a.zip | |
Improve printouts
Diffstat (limited to 'lib/ssl/test/ssl_dist_bench_SUITE.erl')
| -rw-r--r-- | lib/ssl/test/ssl_dist_bench_SUITE.erl | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/lib/ssl/test/ssl_dist_bench_SUITE.erl b/lib/ssl/test/ssl_dist_bench_SUITE.erl index c70ddf3534..04cb30ffdc 100644 --- a/lib/ssl/test/ssl_dist_bench_SUITE.erl +++ b/lib/ssl/test/ssl_dist_bench_SUITE.erl @@ -389,14 +389,27 @@ sched_utilization(A, B, Prefix, HA, HB, SSL) -> [A] = ssl_apply(HB, erlang, nodes, []), msacc:print(ClientMsacc), msacc:print(ServerMsacc), - ct:pal("Got ~p msgs",[length(Msgs)]), + ct:pal("Got ~p busy_dist_port msgs",[length(Msgs)]), + ct:log("Stats of B from A: ~p", + [ssl_apply(HA, net_kernel, node_info, [B])]), + ct:log("Stats of A from B: ~p", + [ssl_apply(HB, net_kernel, node_info, [A])]), + SchedUtilClient = + 10000 * msacc:stats(system_runtime,ClientMsacc) / + msacc:stats(system_realtime,ClientMsacc), + SchedUtilServer = + 10000 * msacc:stats(system_runtime,ServerMsacc) / + msacc:stats(system_realtime,ServerMsacc), report(Prefix++" Sched Utilization Client", - 10000 * msacc:stats(system_runtime,ClientMsacc) / - msacc:stats(system_realtime,ClientMsacc), "util 0.01 %"), + SchedUtilClient, "util 0.01 %"), report(Prefix++" Sched Utilization Server", - 10000 * msacc:stats(system_runtime,ServerMsacc) / - msacc:stats(system_realtime,ServerMsacc), "util 0.01 %"), - ok. + SchedUtilServer, "util 0.01 %"), + {comment, + "Client " ++ + lists:flatten(io_lib:format("~.3g", [SchedUtilClient / 100])) ++ + "%, Server " ++ + lists:flatten(io_lib:format("~.3g", [SchedUtilServer / 100])) ++ + "%"}. %% Runs on node A and spawns a server on node B %% We want to avoid getting busy_dist_port as it hides the true SU usage |