Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0981-Fix-tls_server_session_ticket_SUITE-test-s...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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
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