diff options
| author | Björn Gustavsson <[email protected]> | 2011-12-05 12:31:38 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-12-05 12:31:38 +0100 |
| commit | bdc69e0c35229fe11c98c14715b040b2f0eee5aa (patch) | |
| tree | 33e9fe280bfaee82e3a5facd597a78ce6625d29b /lib/tools/test/eprof_SUITE.erl | |
| parent | f667e4a47b07b07ed035073b94d699ff5fe0ba9b (diff) | |
| parent | 6e36ca17f9c36a420702c683f1e09c2b7daa58bc (diff) | |
| download | otp-bdc69e0c35229fe11c98c14715b040b2f0eee5aa.tar.gz otp-bdc69e0c35229fe11c98c14715b040b2f0eee5aa.tar.bz2 otp-bdc69e0c35229fe11c98c14715b040b2f0eee5aa.zip | |
Merge branch 'bjorn/test-cases'
* bjorn/test-cases:
lcnt_SUITE: Be kind to slow machines
crypto_SUITE: Reinstate what was "lost in translation"
fileTransferSUITE: Cope with missing/broken crypto application
sensitive_SUITE: Fix spuriously failing recv_trace/1
eprof_SUITE: Cope with fast computers and bad time measurements
cover_SUITE: Cope with missing/broken crypto application
otp_SUITE: Write log files about undefined functions and so on
Diffstat (limited to 'lib/tools/test/eprof_SUITE.erl')
| -rw-r--r-- | lib/tools/test/eprof_SUITE.erl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/tools/test/eprof_SUITE.erl b/lib/tools/test/eprof_SUITE.erl index ecdbc5ce57..3283fa571f 100644 --- a/lib/tools/test/eprof_SUITE.erl +++ b/lib/tools/test/eprof_SUITE.erl @@ -183,8 +183,14 @@ eed(Config) when is_list(Config) -> ?line ok = eprof:log("eprof_SUITE_logfile"), ?line stopped = eprof:stop(), ?line ?t:timetrap_cancel(TTrap), - S = lists:flatten(io_lib:format("~p times slower", [10*(T3-T2)/(T2-T1)])), - {comment,S}. + try + S = lists:flatten(io_lib:format("~p times slower", + [10*(T3-T2)/(T2-T1)])), + {comment,S} + catch + error:badarith -> + {comment,"No time elapsed. Bad clock? Fast computer?"} + end. ensure_eprof_stopped() -> Pid = whereis(eprof), |