File 0981-Fix-tls_server_session_ticket_SUITE-test-skipping.patch of Package erlang

From e90b8478ebf9bf89d4e1902664b68ab0d22e1e40 Mon Sep 17 00:00:00 2001
From: Anders Kiel Hovgaard <anders.hovgaard@motorolasolutions.com>
Date: Mon, 2 May 2022 11:53:09 +0200
Subject: [PATCH 1/3] Fix tls_server_session_ticket_SUITE test skipping

The `init_per_testcase/2` was missing the listener socket argument to
`tls_server_session_ticket:start_link/6`, so all test cases in the suite
were getting skipped with "init_per_testcase failed".
---
 lib/ssl/test/tls_server_session_ticket_SUITE.erl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/ssl/test/tls_server_session_ticket_SUITE.erl b/lib/ssl/test/tls_server_session_ticket_SUITE.erl
index 7f45dee083..3a3329c096 100644
--- a/lib/ssl/test/tls_server_session_ticket_SUITE.erl
+++ b/lib/ssl/test/tls_server_session_ticket_SUITE.erl
@@ -71,15 +71,18 @@ end_per_group(_GroupName, Config) ->
     Config.
 
 init_per_testcase(_TestCase, Config)  ->
+    {ok, ListenSocket} = gen_tcp:listen(0, [{active, false}]),
     {ok, Pid} = tls_server_session_ticket:start_link(
-                  ?config(server_session_tickets, Config), ?LIFETIME,
-                  ?TICKET_STORE_SIZE, _MaxEarlyDataSize = 100,
+                  ListenSocket, ?config(server_session_tickets, Config),
+                  ?LIFETIME, ?TICKET_STORE_SIZE, _MaxEarlyDataSize = 100,
                   ?config(anti_replay, Config)),
-    [{server_pid, Pid} | Config].
+    [{server_pid, Pid}, {listen_socket, ListenSocket} | Config].
 
 end_per_testcase(_TestCase, Config) ->
     Pid = ?config(server_pid, Config),
     exit(Pid, normal),
+    ListenSocket = ?config(listen_socket, Config),
+    ok = gen_tcp:close(ListenSocket),
     Config.
 
 %%--------------------------------------------------------------------
-- 
2.35.3