anchor.diff:                     ?TT(?MINS(5)),
                      Send = fun(Sock, Data) -> socket:send(Sock, Data) end,
                      Recv = fun(Sock, Sz)   -> socket:recv(Sock, Sz) end,
  +                   InitState = #{domain => inet6,
  +                                 send   => Send, % Send function
  +                                 recv   => Recv  % Receive function
  +                                },
  +                   ok = traffic_ping_pong_large_send_and_receive_tcp(InitState)
  +           end).
  +
  +
  +
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +%% This test case is intended to test that the sendmsg and recvmsg 
  +%% functions by repeatedly sending a meassage between two entities.
  +%% The same basic test case is used for three different message sizes; 
  +%% small (8 bytes), medium (8K) and large (8M).
  +%% The message is sent from A to B and then back again. This is 
  +%% repeated a set number of times (more times the small the message).
  +%% This is the 'large' message test case, for IPv4.
  +
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(suite) ->
  +    [];
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(doc) ->
  +    [];
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4(_Config) when is_list(_Config) ->
  +    tc_try(traffic_ping_pong_large_sendmsg_and_recvmsg_tcp4,
  +           fun() ->
  +                   ?TT(?SECS(30)),
  +                   Send = fun(Sock, Data) ->
  +                                  MsgHdr = #{iov => [Data]},
  +                                  socket:sendmsg(Sock, MsgHdr)
  +                          end,
  +                   Recv = fun(Sock, Sz)   -> 
  +                                  case socket:recvmsg(Sock, Sz, 0) of
  +                                      {ok, #{addr  := undefined,
  +                                             iov   := [Data]}} ->
  +                                          {ok, Data};
  +                                      {error, _} = ERROR ->
  +                                          ERROR
  +                                  end
  +                          end,
  +                   InitState = #{domain => inet,
  +                                 send   => Send, % Send function
  +                                 recv   => Recv  % Receive function
  +                                },
  +                   ok = traffic_ping_pong_large_send_and_receive_tcp(InitState)
  +           end).
  +
  +
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +%% This test case is intended to test that the sendmsg and recvmsg functions
  +%% by repeatedly sending a meassage between two entities.
  +%% The same basic test case is used for three different message sizes; 
  +%% small (8 bytes), medium (8K) and large (8M).
  +%% The message is sent from A to B and then back again. This is 
  +%% repeated a set number of times (more times the small the message).
  +%% This is the 'large' message test case, for IPv6.
  +
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(suite) ->
  +    [];
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(doc) ->
  +    [];
  +traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6(_Config) when is_list(_Config) ->
  +    tc_try(traffic_ping_pong_large_sendmsg_and_recvmsg_tcp6,
  +           fun() ->
  +                   not_yet_implemented(),
  +                   ?TT(?SECS(30)),
  +                   Send = fun(Sock, Data) when is_binary(Data) ->
  +                                  MsgHdr = #{iov => [Data]},
  +                                  socket:sendmsg(Sock, MsgHdr);
  +                             (Sock, Data) when is_list(Data) ->
  +                                  MsgHdr = #{iov => Data},
  +                                  socket:sendmsg(Sock, MsgHdr)
  +                          end,
  +                   Recv = fun(Sock, Sz)   -> 
  +                                  case socket:recvmsg(Sock, Sz, 0) of
  +                                      {ok, #{addr  := undefined,
  +                                             iov   := [Data]}} ->
  +                                          {ok, Data};
  +                                      {error, _} = ERROR ->
  +                                          ERROR
  +                                  end
  +                          end,
                      InitState = #{domain => inet6,
                                    send   => Send, % Send function
                                    recv   => Recv  % Receive function
  
positive.code: 
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% This test case is intended to test that the send and recv functions
  %% by repeatedly sending a meassage between two entities.
  %% The same basic test case is used for three different message sizes; 
  
negative.code: 
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% This test case is intended to test that the sendmsg and recvmsg 
  %% functions by repeatedly sending a meassage between two entities.
  %% The same basic test case is used for three different message sizes; 
  %% small (8 bytes), medium (8K) and large (8M).
  %% The message is sent from A to B and then back again. This is 
  %% repeated a set number of times (more times the small the message).
  %% This is the 'medium' message test case, for IPv4.
  
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(suite) ->
      [];
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(doc) ->
      [];
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4(_Config) when is_list(_Config) ->
      tc_try(traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp4,
             fun() ->
                     ?TT(?SECS(20)),
                     Send = fun(Sock, Data) ->
                                    MsgHdr = #{iov => [Data]},
                                    socket:sendmsg(Sock, MsgHdr)
                            end,
                     Recv = fun(Sock, Sz)   -> 
                                    case socket:recvmsg(Sock, Sz, 0) of
                                        {ok, #{addr  := undefined,
                                               iov   := [Data]}} ->
                                            {ok, Data};
                                        {error, _} = ERROR ->
                                            ERROR
                                    end
                            end,
                     InitState = #{domain => inet,
                                   send   => Send, % Send function
                                   recv   => Recv  % Receive function
                                  },
                     ok = traffic_ping_pong_medium_send_and_receive_tcp(InitState)
             end).
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% This test case is intended to test that the sendmsg and recvmsg functions
  %% by repeatedly sending a meassage between two entities.
  %% The same basic test case is used for three different message sizes; 
  %% small (8 bytes), medium (8K) and large (8M).
  %% The message is sent from A to B and then back again. This is 
  %% repeated a set number of times (more times the small the message).
  %% This is the 'medium' message test case, for IPv6.
  
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(suite) ->
      [];
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(doc) ->
      [];
  traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6(_Config) when is_list(_Config) ->
      tc_try(traffic_ping_pong_medium_sendmsg_and_recvmsg_tcp6,
             fun() ->
                     not_yet_implemented(),
                     ?TT(?SECS(20)),
                     Send = fun(Sock, Data) ->
                                    MsgHdr = #{iov => [Data]},
                                    socket:sendmsg(Sock, MsgHdr)
                            end,
                     Recv = fun(Sock, Sz)   -> 
                                    case socket:recvmsg(Sock, Sz, 0) of
                                        {ok, #{addr  := undefined,
                                               iov   := [Data]}} ->
                                            {ok, Data};
                                        {error, _} = ERROR ->
                                            ERROR
                                    end
                            end,
                     InitState = #{domain => inet6,
                                   send   => Send, % Send function
                                   recv   => Recv  % Receive function
                                  },
                     ok = traffic_ping_pong_medium_send_and_receive_tcp(InitState)
             end).
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% This test case is intended to test that the send and recv functions
  %% by repeatedly sending a meassage between two entities.
  %% The same basic test case is used for three different message sizes; 
  