File 3111-kernel-Tweaked-shutdown-error-test-case.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 3111-kernel-Tweaked-shutdown-error-test-case.patch of Package erlang

From eb092d62f7a3b2cf00e86018f86f8acf83c50e32 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 9 Apr 2024 10:29:08 +0200
Subject: [PATCH 11/11] [kernel] Tweaked shutdown error test case

---
 lib/kernel/test/gen_tcp_api_SUITE.erl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/test/gen_tcp_api_SUITE.erl b/lib/kernel/test/gen_tcp_api_SUITE.erl
index e7af5051bf..1646802161 100644
--- a/lib/kernel/test/gen_tcp_api_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_api_SUITE.erl
@@ -609,7 +609,20 @@ do_shutdown_error(Config, Addr) ->
     ?P("create listen socket"),
     {ok, L} = gen_tcp:listen(0, ?INET_BACKEND_OPTS(Config) ++ [{ip, Addr}]),
     ?P("shutdown socket (with How = read_write)"),
-    {error, enotconn} = gen_tcp:shutdown(L, read_write),
+    case gen_tcp:shutdown(L, read_write) of
+        {error, enotconn} ->
+            ok;
+        ok -> % On some platforms this can happen...Linux...
+            case os:type() of
+                {unix, linux} ->
+                    ?P("unexpected shutdown success - can happen on linux"),
+                    ok;
+                _ ->
+                    exit(unexpected_success)
+            end;
+        {error, Reason} ->
+            exit({unexpected_shutdown_error, Reason})
+    end,
     ?P("close socket"),
     ok = gen_tcp:close(L),
     ?P("shutdown socket again (with How = read_write)"),
-- 
2.35.3

Places

File 3111-kernel-Tweaked-shutdown-error-test-case.patch of Package erlang

Places