File 0882-megaco-config-test-Add-skip-for-system-events.patch of Package erlang
From 7d658006d41d868735f2503a02aadce967e5d321 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 10 Feb 2021 09:23:33 +0100
Subject: [PATCH 2/2] [megaco|config-test] Add skip for system events
---
lib/megaco/test/megaco_config_SUITE.erl | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/lib/megaco/test/megaco_config_SUITE.erl b/lib/megaco/test/megaco_config_SUITE.erl
index 2f9c9573c6..557406f8c4 100644
--- a/lib/megaco/test/megaco_config_SUITE.erl
+++ b/lib/megaco/test/megaco_config_SUITE.erl
@@ -686,6 +686,22 @@ await_completion_counter_working_procs(Pids, OKs, ERRs) ->
"Unexpected message: "
"~n ~p", [length(Pids), length(OKs), length(ERRs), Any]),
await_completion_counter_working_procs(Pids)
+
+ after 10000 ->
+ %% If nothing has happened for this long, something is wrong:
+ %% Check system events
+ case megaco_test_global_sys_monitor:events() of
+ [] ->
+ i("counter working process completion[~w, ~w, ~w] -> "
+ "idle", [length(Pids), length(OKs), length(ERRs)]),
+ await_completion_counter_working_procs(Pids);
+ SysEvs ->
+ e("counter working process completion[~w, ~w, ~w] -> "
+ "system event(s): "
+ "~n ~p",
+ [length(Pids), length(OKs), length(ERRs), SysEvs]),
+ ?SKIP("TC idle with system events")
+ end
end.
--
2.26.2