From 5ab52ccbdd90ec7ab2a35294ca362f53e52fdf3d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Tue, 26 May 2015 14:08:39 +0200
Subject: Eliminate use of erlang:now/0 for measuring time

---
 lib/kernel/test/file_SUITE.erl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'lib/kernel/test/file_SUITE.erl')

diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl
index 1213d8e37e..48abc92e4c 100644
--- a/lib/kernel/test/file_SUITE.erl
+++ b/lib/kernel/test/file_SUITE.erl
@@ -3914,7 +3914,7 @@ response_analysis(Module, Function, Arguments) ->
 		  receive {Parent, start, Ts} -> ok end,
 		  Stat = 
 		      iterate(response_stat(response_stat(init, Ts),
-					    erlang:now()), 
+					    micro_ts()),
 			      done,
 			      fun (S) ->
 				      erlang:yield(),
@@ -3922,12 +3922,12 @@ response_analysis(Module, Function, Arguments) ->
 					  {Parent, stop} ->
 					      done
 				      after 0 ->
-					      response_stat(S, erlang:now())
+					      response_stat(S, micro_ts())
 				      end
 			      end),
-		  Parent ! {self(), stopped, response_stat(Stat, erlang:now())}
+		  Parent ! {self(), stopped, response_stat(Stat, micro_ts())}
 	  end),
-    ?line Child ! {Parent, start, erlang:now()},
+    Child ! {Parent, start, micro_ts()},
     ?line Result = apply(Module, Function, Arguments),
     ?line Child ! {Parent, stop},
     ?line {N, Sum, _, M, Max} = receive {Child, stopped, X} -> X end,
@@ -3941,12 +3941,13 @@ response_analysis(Module, Function, Arguments) ->
 	    [Mean_ms, Max_ms, M, (N-1)])),
     ?line {Result, Comment}.
     
-
+micro_ts() ->
+    erlang:monotonic_time(micro_seconds).
 
 response_stat(init, Ts) ->
     {0, 0, Ts, 0, 0};
-response_stat({N, Sum, {A1, B1, C1}, M, Max}, {A2, B2, C2} = Ts) ->
-    D = C2-C1 + 1000000*((B2-B1) + 1000000*(A2-A1)),
+response_stat({N, Sum, Ts0, M, Max}, Ts) ->
+    D = Ts - Ts0,
     if D > Max ->
 	    {N+1, Sum+D, Ts, N, D};
        true ->
-- 
cgit v1.2.3