diff options
| author | Björn Gustavsson <[email protected]> | 2015-03-26 16:16:27 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-04-10 12:33:24 +0200 |
| commit | a749ef2bafd3f5580b770a51931a3bc32f9404a9 (patch) | |
| tree | 68ba25b199dc84f347d2e9e71aba3d9198703b73 /lib/stdlib/test/ets_SUITE.erl | |
| parent | e13c6510763f24dec76b1ce66b86ebbf7a84816d (diff) | |
| download | otp-a749ef2bafd3f5580b770a51931a3bc32f9404a9.tar.gz otp-a749ef2bafd3f5580b770a51931a3bc32f9404a9.tar.bz2 otp-a749ef2bafd3f5580b770a51931a3bc32f9404a9.zip | |
Eliminate use of deprecated now/0 for measuring time
Use erlang:monotonic_time/1 instead of now/0.
Diffstat (limited to 'lib/stdlib/test/ets_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/ets_SUITE.erl | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl index 084cc36ae3..cf3e53c0cd 100644 --- a/lib/stdlib/test/ets_SUITE.erl +++ b/lib/stdlib/test/ets_SUITE.erl @@ -4552,16 +4552,16 @@ build_table2(L1,L2,Num) -> T. time_match_object(Tab,Match, Res) -> - T1 = erlang:now(), + T1 = erlang:monotonic_time(micro_seconds), Res = ets:match_object(Tab,Match), - T2 = erlang:now(), - nowdiff(T1,T2). + T2 = erlang:monotonic_time(micro_seconds), + T2 - T1. time_match(Tab,Match) -> - T1 = erlang:now(), + T1 = erlang:monotonic_time(micro_seconds), ets:match(Tab,Match), - T2 = erlang:now(), - nowdiff(T1,T2). + T2 = erlang:monotonic_time(micro_seconds), + T2 - T1. seventyfive_percent_success(_,S,Fa,0) -> true = (S > ((S + Fa) * 0.75)); @@ -4586,11 +4586,6 @@ fifty_percent_success({M,F,A},S,Fa,N) -> end. -nowtonumber({Mega, Secs, Milli}) -> - Milli + Secs * 1000000 + Mega * 1000000000000. -nowdiff(T1,T2) -> - nowtonumber(T2) - nowtonumber(T1). - create_random_string(0) -> []; |