File 2184-kernel-esock-test-Add-send-inet6-bench-test-case.patch of Package erlang

From a347093bb14133bdf3c0e4efe4f5c7fdb80fba39 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 8 Apr 2025 17:50:34 +0200
Subject: [PATCH 04/10] [kernel|esock|test] Add send (inet6) bench test case

---
 lib/kernel/test/socket_traffic_SUITE.erl | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/lib/kernel/test/socket_traffic_SUITE.erl b/lib/kernel/test/socket_traffic_SUITE.erl
index 15684a6266..788c8489d6 100644
--- a/lib/kernel/test/socket_traffic_SUITE.erl
+++ b/lib/kernel/test/socket_traffic_SUITE.erl
@@ -154,7 +154,8 @@
          %% *** Bench ***
          traffic_bench_sendv_and_recv_tcp4/1,
          traffic_bench_send_and_recv_tcp4/1,
-         traffic_bench_sendv_and_recv_tcp6/1
+         traffic_bench_sendv_and_recv_tcp6/1,
+         traffic_bench_send_and_recv_tcp6/1
         ]).
 
 
@@ -266,8 +267,8 @@ traffic_bench_cases() ->
     [
      traffic_bench_sendv_and_recv_tcp4,
      traffic_bench_send_and_recv_tcp4,
-     traffic_bench_sendv_and_recv_tcp6 %%,
-     %% traffic_bench_send_and_recv_tcp6,
+     traffic_bench_sendv_and_recv_tcp6,
+     traffic_bench_send_and_recv_tcp6 %%,
      %% traffic_bench_sendv_and_recv_tcpL,
      %% traffic_bench_send_and_recv_tcpL
     ].
@@ -7111,6 +7112,22 @@ traffic_bench_sendv_and_recv_tcp6(Config) when is_list(Config) ->
                    do_traffic_bench_send_and_recv(InitState)
            end).
 
+traffic_bench_send_and_recv_tcp6(Config) when is_list(Config) ->
+    ?TT(?MINS(2)), %% Test *should* run for 60 secs
+    IOV = tb_iov(),
+    Send = fun(S, Data) when is_list(Data) ->
+                   socket:send(S, iolist_to_binary(Data))
+           end,
+    tc_try(?FUNCTION_NAME,
+           fun() -> has_support_ipv6() end,
+           fun() ->
+                   InitState = #{domain   => inet6,
+                                 send     => Send,
+                                 iov      => IOV,
+                                 run_time => ?MINS(1)},
+                   do_traffic_bench_send_and_recv(InitState)
+           end).
+
 do_traffic_bench_send_and_recv(#{run_time := RTime} = InitState) ->
     ?SEV_IPRINT("[ctrl] start server"),
     {PortNumber, Server} = tb_server_start(InitState),
-- 
2.43.0