aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/test
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2016-04-12 17:50:56 +0200
committerBjörn-Egil Dahlberg <[email protected]>2016-04-13 15:22:33 +0200
commitd5db7d329bf597ad097d602b03a523b7a970d5d2 (patch)
tree58859193f995cb24f1f9cf91de67a52eae5f640f /lib/tools/test
parent58d3cc32ac36b33c4b634035d53137758bff03d3 (diff)
downloadotp-d5db7d329bf597ad097d602b03a523b7a970d5d2.tar.gz
otp-d5db7d329bf597ad097d602b03a523b7a970d5d2.tar.bz2
otp-d5db7d329bf597ad097d602b03a523b7a970d5d2.zip
tools: Don't divide by zero in tests
Diffstat (limited to 'lib/tools/test')
-rw-r--r--lib/tools/test/fprof_SUITE.erl20
1 files changed, 11 insertions, 9 deletions
diff --git a/lib/tools/test/fprof_SUITE.erl b/lib/tools/test/fprof_SUITE.erl
index b44816260b..ca42f4b9d1 100644
--- a/lib/tools/test/fprof_SUITE.erl
+++ b/lib/tools/test/fprof_SUITE.erl
@@ -110,7 +110,7 @@ stack_seq(Config) when is_list(Config) ->
Acc1 = TS1 - TS0,
Acc2 = TS2 - TS1,
io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc1, Acc2]),
- {comment, io_lib:format("~p times slower", [Acc1/Acc2])}.
+ {comment, io_lib:format("~p times slower", [divide(Acc1,Acc2)])}.
%%%---------------------------------------------------------------------
@@ -158,7 +158,7 @@ tail_seq(Config) when is_list(Config) ->
Acc1 = TS1 - TS0,
Acc2 = TS2 - TS1,
io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc2, Acc1]),
- {comment, io_lib:format("~p times slower", [Acc2/Acc1])}.
+ {comment, io_lib:format("~p times slower", [divide(Acc2,Acc1)])}.
%%%---------------------------------------------------------------------
@@ -216,7 +216,7 @@ do_create_file_slow(Config) ->
Acc1 = TS1 - TS0,
Acc3 = TS3 - TS2,
io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc3, Acc1]),
- {comment, io_lib:format("~p times slower", [Acc3/Acc1])}.
+ {comment, io_lib:format("~p times slower", [divide(Acc3,Acc1)])}.
@@ -288,7 +288,7 @@ spawn_simple(Config) when is_list(Config) ->
Acc1 = TS1 - TS0,
Acc2 = TS2 - TS1,
io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc2, Acc1]),
- {comment, io_lib:format("~p times slower", [Acc2/Acc1])}.
+ {comment, io_lib:format("~p times slower", [divide(Acc2,Acc1)])}.
spawn_simple_test(Start, Stop, Succ) ->
@@ -367,7 +367,7 @@ imm_tail_seq(Config) when is_list(Config) ->
io:format("~p (plain), ~p (eprof), ~p (fprof), ~p (cpu)~n",
[Acc1/1000, Acc3/1000, Acc5/1000, Acc/1000]),
{comment, io_lib:format("~p/~p (fprof/eprof) times slower",
- [Acc5/Acc1, Acc3/Acc1])}.
+ [divide(Acc5,Acc1), divide(Acc3,Acc1)])}.
%%%---------------------------------------------------------------------
@@ -413,7 +413,7 @@ imm_create_file_slow(Config) when is_list(Config) ->
Acc1 = TS1 - TS0,
Acc3 = TS3 - TS2,
io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc3, Acc1]),
- {comment, io_lib:format("~p times slower", [Acc3/Acc1])}.
+ {comment, io_lib:format("~p times slower", [divide(Acc3,Acc1)])}.
%%%---------------------------------------------------------------------
@@ -471,7 +471,7 @@ imm_compile(Config) when is_list(Config) ->
io:format("~p (plain), ~p (eprof), ~p (fprof), ~p(cpu)~n",
[Acc1/1000, Acc3/1000, Acc5/1000, Acc/1000]),
{comment, io_lib:format("~p/~p (fprof/eprof) times slower",
- [Acc5/Acc1, Acc3/Acc1])}.
+ [divide(Acc5,Acc1), divide(Acc3,Acc1)])}.
%%%---------------------------------------------------------------------
@@ -518,8 +518,7 @@ cpu_create_file_slow(Config) when is_list(Config) ->
file:delete(AnalysisFile),
Acc1 = TS1 - TS0,
io:format("cpu_ts:~w, fprof:~w~n", [Acc, Acc1]),
- {comment, io_lib:format("~p% cpu utilization",
- [100*Acc/Acc1])};
+ {comment, io_lib:format("~p% cpu utilization", [100*divide(Acc,Acc1)])};
{'EXIT', not_supported} ->
case {os:type(), os:version()} of
{{unix, sunos}, {Major, Minor, _}}
@@ -1146,3 +1145,6 @@ m1000(undefined) ->
undefined;
m1000(X) ->
round(X*1000).
+
+divide(_,0) -> inf;
+divide(A,B) -> A / B.