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

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

(limited to 'erts/emulator')

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