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

openSUSE Build Service is sponsored by