From e1b4a94d00c45959a8380c680b86c95598ad695f Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 9 Jul 2019 13:36:48 +0200
Subject: [esock|test] IPv6 socket address includes optional fields

OTP-15897
---
 erts/emulator/test/socket_SUITE.erl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'erts')

diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl
index bf25f48944..d17455ad9d 100644
--- a/erts/emulator/test/socket_SUITE.erl
+++ b/erts/emulator/test/socket_SUITE.erl
@@ -15720,7 +15720,7 @@ traffic_send_and_recv_udp(InitState) ->
                    end},
          #{desc => "recv (2)",
            cmd  => fun(#{sock      := Sock,
-                         server_sa := ServerSA,
+                         server_sa := #{family := local} = ServerSA,
                          recv      := Recv,
                          read_pkg  := RPkg,
                          read_byte := RByte} = State) ->
@@ -15731,6 +15731,19 @@ traffic_send_and_recv_udp(InitState) ->
                                                read_byte => RByte + size(Data)}};
                                {error, _} = ERROR ->
                                    ERROR
+                           end;
+		      (#{sock      := Sock,
+                         server_sa := #{addr := Addr, port := Port},
+                         recv      := Recv,
+                         read_pkg  := RPkg,
+                         read_byte := RByte} = State) ->
+                           case Recv(Sock) of
+                               {ok, {#{addr := Addr, port := Port}, Data}} ->
+                                   ?SEV_IPRINT("recv ~p bytes", [size(Data)]),
+                                   {ok, State#{read_pkg  => RPkg + 1,
+                                               read_byte => RByte + size(Data)}};
+                               {error, _} = ERROR ->
+                                   ERROR
                            end
                    end},
          #{desc => "validate (recv 2)",
-- 
cgit v1.2.3