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