File 0523-megaco-config-test-Tweaked-mgc-transaction-id-counte.patch of Package erlang

From ede96b9aeea4ae1c3f5ed9aee4cae964e419c2ff Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 16 Mar 2021 17:42:03 +0100
Subject: [PATCH 3/4] [megaco|config|test] Tweaked (mgc) transaction id counter
 test case

---
 lib/megaco/test/megaco_config_SUITE.erl | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/lib/megaco/test/megaco_config_SUITE.erl b/lib/megaco/test/megaco_config_SUITE.erl
index 557406f8c4..f21703f906 100644
--- a/lib/megaco/test/megaco_config_SUITE.erl
+++ b/lib/megaco/test/megaco_config_SUITE.erl
@@ -864,17 +864,28 @@ create_counter_working_procs2([#conn_data{conn_handle = CH} | CDs],
      create_counter_working_procs2(CDs, NumCntProcs)].
 
 
-verify_counter_results([]) ->
+verify_counter_results(CDs) ->
+    verify_counter_results(CDs, [], []).
+
+verify_counter_results([], _OKs, [] = _Errors) ->
+    i("counter verification success"),
     ok;
-verify_counter_results([#conn_data{conn_handle = CH} | CDs]) ->
+verify_counter_results([], OKs, Errors) ->
+    e("counter verification failed: "
+      "~n      Num OKs:    ~p"
+      "~n      Num Errors: ~p", [length(OKs), length(Errors)]),
+    error;
+verify_counter_results([#conn_data{conn_handle = CH} = CD| CDs], OKs, Errors) ->
     TransId = megaco_config:conn_info(CH, trans_id),
     if
 	(TransId =:= 1) ->
-	    ok;
+	    verify_counter_results(CDs, [CD|OKs], Errors);
 	true ->
-	    ?ERROR({trans_id_verification_failed, CH, TransId})
-    end,
-    verify_counter_results(CDs).
+            e("invalid transaction is for connection: "
+              "~n      CD:      ~p"
+              "~n      TransId: ~p", [CD, TransId]),
+            verify_counter_results(CDs, OKs, [{CD, TransId}|Errors])
+    end.
 
 
 delete_connections([]) ->
-- 
2.26.2