File 2753-megaco-test-Add-some-printouts-to-timer-test-case.patch of Package erlang

From ee85581e80bd41183b7c01a2cd9231f741b29afd Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 4 Sep 2019 10:49:47 +0200
Subject: [PATCH 3/3] [megaco|test] Add some printouts to timer test case

Add some printouts to the 'integer_timer_start_and_stop'
timer test case to see the timing...
---
 lib/megaco/test/megaco_timer_test.erl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/megaco/test/megaco_timer_test.erl b/lib/megaco/test/megaco_timer_test.erl
index 9809704af3..87aa51b8de 100644
--- a/lib/megaco/test/megaco_timer_test.erl
+++ b/lib/megaco/test/megaco_timer_test.erl
@@ -354,15 +354,22 @@ integer_timer_start_and_stop(Config) when is_list(Config) ->
     i("starting"),
 
     Timeout = 5000,
-    Ref = tmr_start(Timeout),
+    i("try start (~w msec) timer", [Timeout]),
+    Ref     = tmr_start(Timeout),
+    i("timer started "),
     receive
 	{timeout, Timeout} ->
+            i("unexpected premature timer expire"),
 	    error(bad_timeout)
     after Timeout - 100 ->
+            i("try stop timer"),
 	    case tmr_stop(Ref) of
-                {ok, _} ->
+                {ok, Rem} ->
+                    i("timer stopped with ~w msec remaining", [Rem]),
                     ok;
                 CancelRes ->
+                    i("failed stop timer: "
+                      "~n   ~p", [CancelRes]),
                     ?SKIP({cancel_failed, CancelRes}) % Race - not our problem
             end
     end,
-- 
2.16.4

openSUSE Build Service is sponsored by