File 5744-pg_SUITE-test-fixes.patch of Package erlang

From b4d61e2ac50eb3ed04d6ecc6be5fe638f33cf132 Mon Sep 17 00:00:00 2001
From: Rickard Green <rickard@erlang.org>
Date: Wed, 22 Jun 2022 15:53:55 +0200
Subject: [PATCH 4/4] pg_SUITE test fixes

---
 lib/kernel/test/pg_SUITE.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/test/pg_SUITE.erl b/lib/kernel/test/pg_SUITE.erl
index 130b54a5f8..f735a3238a 100644
--- a/lib/kernel/test/pg_SUITE.erl
+++ b/lib/kernel/test/pg_SUITE.erl
@@ -112,7 +112,7 @@ errors(_Config) ->
     ?assertException(error, badarg, pg:handle_cast(garbage, garbage)),
     %% kill with call
     {ok, _Pid} = pg:start(second),
-    ?assertException(exit, {{badarg, _}, _}, gen_server:call(second, garbage)).
+    ?assertException(exit, {{badarg, _}, _}, gen_server:call(second, garbage, infinity)).
 
 leave_exit_race() ->
     [{doc, "Tests that pg correctly handles situation when leave and 'DOWN' messages are both in pg queue"}].
@@ -498,6 +498,14 @@ missing_scope_join(Config) when is_list(Config) ->
     ok.
 
 disconnected_start(Config) when is_list(Config) ->
+    case test_server:is_cover() of
+        true ->
+            {skip, "Cover is running"};
+        false ->
+            disconnected_start_test(Config)
+    end.
+
+disconnected_start_test(Config) when is_list(Config) ->
     {Peer, Socket} = spawn_node(?FUNCTION_NAME, ?FUNCTION_NAME),
     disconnect_nodes([Peer]),
     ?assertEqual(ok, rpc(Socket, gen_server, stop, [?FUNCTION_NAME])),
-- 
2.35.3