File 0522-megaco-trans-test-Tweaked-trans-suite.patch of Package erlang
From bb51c4800953016bdab9a999a579f02e69efe09c Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 16 Mar 2021 17:19:02 +0100
Subject: [PATCH 2/4] [megaco|trans|test] Tweaked trans suite
---
lib/megaco/test/megaco_trans_SUITE.erl | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/lib/megaco/test/megaco_trans_SUITE.erl b/lib/megaco/test/megaco_trans_SUITE.erl
index 78ba1f0515..d37d5a20d6 100644
--- a/lib/megaco/test/megaco_trans_SUITE.erl
+++ b/lib/megaco/test/megaco_trans_SUITE.erl
@@ -9526,15 +9526,20 @@ cre_serviceChangeProf(Name, Ver) when is_list(Name) andalso is_integer(Ver) ->
await_ack(_User, 0, Timeout, _Expected) ->
d("await_ack -> done when Timeout = ~p", [Timeout]),
ok;
-await_ack(User, N, Timeout, Expected) when (N > 0) andalso is_integer(Timeout) ->
- d("await_ack -> entry with N: ~p, Timeout: ~p", [N,Timeout]),
+await_ack(User, N, Timeout, Expected)
+ when (N > 0) andalso is_integer(Timeout) ->
+ d("await_ack -> entry with N: ~p, Timeout: ~p", [N, Timeout]),
T = tim(),
receive
{ack_received, User, Expected} ->
d("await_ack -> received another expected ack"),
await_ack(User, N-1, Timeout - (tim() - T), Expected);
{ack_received, User, UnExpected} ->
- e("await_ack -> received unexpected ack result: ~p", [UnExpected]),
+ e("await_ack -> received unexpected ack result: ~p"
+ "~n when"
+ "~n N: ~p"
+ "~n Remaining: ~p",
+ [UnExpected, N, Timeout - (tim() - T)]),
exit({unexpected_ack_result, UnExpected, Expected})
after Timeout ->
exit({await_ack_timeout, N})
@@ -9546,7 +9551,9 @@ await_ack(User, N, infinity, Expected) when N > 0 ->
d("await_ack -> received another ack"),
await_ack(User, N-1, infinity, Expected);
{ack_received, User, UnExpected} ->
- e("await_ack -> unexpected ack result: ~p", [UnExpected]),
+ e("await_ack -> unexpected ack result: ~p"
+ "~n when"
+ "~n N: ~p", [UnExpected, N]),
exit({unexpected_ack_result, UnExpected, Expected})
end.
--
2.26.2