Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0523-megaco-config-test-Tweaked-mgc-transaction...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor