File 0740-kernel-test-Tweaked-test-case-s.patch of Package erlang

From 6162235086e1c6dc214d4ff92b51d857db4c2e4c Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 19 Nov 2021 18:08:38 +0100
Subject: [PATCH] [kernel|test] Tweaked test case(s)

---
 lib/kernel/test/gen_tcp_api_SUITE.erl  | 59 ++++++++++++++++++++------
 lib/kernel/test/gen_tcp_misc_SUITE.erl |  5 ++-
 2 files changed, 51 insertions(+), 13 deletions(-)

diff --git a/lib/kernel/test/gen_tcp_misc_SUITE.erl b/lib/kernel/test/gen_tcp_misc_SUITE.erl
index e6d875ca8d..f8561a44c4 100644
--- a/lib/kernel/test/gen_tcp_misc_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_misc_SUITE.erl
@@ -6573,7 +6573,7 @@ delay_send_error(Config, L, PortNum, Active) ->
           "localhost", PortNum,
           [{packet, 1}, {active, Active}, {delay_send, true}]),
     ?P("try accept"),
-    {ok, S} = gen_tcp:accept(L),
+    {ok, A} = gen_tcp:accept(L),
     %% Do a couple of sends first to see that it works
     ?P("send data"),
     ok = gen_tcp:send(C, "hello"),
@@ -6600,6 +6600,9 @@ delay_send_error(Config, L, PortNum, Active) ->
                     ?P("closed (expected)"),
             ok
     end,
+    ?P("close accepted socket"),
+    ok = gen_tcp:close(A),
+    ?P("close connected socket"),
     ok = gen_tcp:close(C).
 
 
-- 
2.31.1