From 19f321078ba82968ccda000b73c2c23ffb249086 Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Wed, 21 Mar 2018 15:02:16 +0100
Subject: stdlib: Make benchmarks more robust

statistics(runtime) does not seem to work on some virtual machines.
---
 lib/stdlib/test/stdlib_bench_SUITE.erl | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'lib/stdlib/test/stdlib_bench_SUITE.erl')

diff --git a/lib/stdlib/test/stdlib_bench_SUITE.erl b/lib/stdlib/test/stdlib_bench_SUITE.erl
index 294898a932..2364e8376f 100644
--- a/lib/stdlib/test/stdlib_bench_SUITE.erl
+++ b/lib/stdlib/test/stdlib_bench_SUITE.erl
@@ -348,12 +348,16 @@ do_tests(Test, ParamSet, Config) ->
     {Parallelism, Message} = bench_params(ParamSet),
     Fun = create_clients(Message, ServerMod, Client, Parallelism),
     {TotalLoops, AllPidTime} = run_test(Fun),
-    PerSecond = ?CALLS_PER_LOOP * round((1000 * TotalLoops) / AllPidTime),
-    ct_event:notify(
-      #event{
-         name = benchmark_data,
-         data = [{suite,BenchmarkSuite},{value,PerSecond}]}),
-    PerSecond.
+    try ?CALLS_PER_LOOP * round((1000 * TotalLoops) / AllPidTime) of
+        PerSecond ->
+            ct_event:notify(
+              #event{
+                 name = benchmark_data,
+                 data = [{suite,BenchmarkSuite},{value,PerSecond}]}),
+            PerSecond
+    catch error:badarith ->
+            "Time measurement is not working"
+    end.
 
 -define(COUNTER, n).
 
-- 
cgit v1.2.3