File 0155-kernel-socket-test-Tweak-socket-registry-t... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0155-kernel-socket-test-Tweak-socket-registry-test-case.patch of Package erlang (Revision fde0e620c81483e0bdc46b5184e6d288)

Currently displaying revision fde0e620c81483e0bdc46b5184e6d288 , Show latest

From 5472df1d9375043dec10db7d232f7b3321f4853f Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 18 Oct 2021 15:21:40 +0200
Subject: [PATCH 2/2] [kernel|socket|test] Tweak socket registry test case

Add explicit testing of socket:which_sockets( pid() ).

OTP-17716
---
 lib/kernel/test/socket_SUITE.erl | 40 ++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/lib/kernel/test/socket_SUITE.erl b/lib/kernel/test/socket_SUITE.erl
index 5cecd308f3..1dec02ffa6 100644
--- a/lib/kernel/test/socket_SUITE.erl
+++ b/lib/kernel/test/socket_SUITE.erl
@@ -25861,6 +25861,46 @@ reg_s_single_open_and_close_and_count() ->
             reg_si_fail(wrong_number_of_sockets2, {N, NumberOf2})
     end,
 
+
+    i("verify owner sockets (none)", []),
+    Expected1 = [],
+    case socket:which_sockets(self()) of
+        Expected1 ->
+            ok;
+        Unexpected1 ->
+            reg_si_fail(wrong_sockets_own1, {Expected1, Unexpected1})
+    end,
+
+    i("create some sockets", []),
+    OwnSockets = lists:sort(
+                   [fun({D, T})->
+                            i("create ~w:~w socket", [D, T]),
+                            {ok, OS} = socket:open(D, T, default),
+                            OS
+                    end(SockInfo) || SockInfo <-
+                                         [{inet, dgram},
+                                          {inet, dgram},
+                                          {inet, stream},
+                                          {inet, stream}]]),
+
+    i("verify owner sockets (~w)", [length(OwnSockets)]),
+    case lists:sort(socket:which_sockets(self())) of
+        OwnSockets ->
+            ok;
+        Unexpected2 ->
+            reg_si_fail(wrong_sockets_own2, {OwnSockets, Unexpected2})
+    end,
+
+    i("close (own) sockets"),
+    lists:foreach(fun(S) ->
+                          i("close socket"),                          
+                          ok = socket:close(S)
+                  end, OwnSockets),
+    ?SLEEP(1000),
+
+    i("verify number of sockets(2) (again)"),
+    NumberOf2 = socket:number_of(),
+
     i("verify pre-existing sockets(2)", []),
     case socket:which_sockets() of
         Existing ->
-- 
2.31.1

Places

File 0155-kernel-socket-test-Tweak-socket-registry-test-case.patch of Package erlang (Revision fde0e620c81483e0bdc46b5184e6d288)

Places