anchor.diff:  traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(doc) ->
       [];
   traffic_ping_pong_small_sendmsg_and_recvmsg_tcp6(_Config) when is_list(_Config) ->
  +    Msg = l2b(?PP_SMALL),
  +    Num = 100000,
       tc_try(traffic_ping_pong_small_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_small_send_and_receive_tcp(InitState)
  +                   InitState = #{domain => inet,
  +                                 msg    => Msg,
  +                                 num    => Num},
  +                   ok = traffic_ping_pong_sendmsg_and_recvmsg_tcp(InitState)
              end).
   
   
  
positive.code: 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).
  
  
  
negative.code:                      true ->
                            ok
                    end,
                    ok = socket:setopt(Sock, otp, rcvbuf, 8*1024)
            end,
      traffic_ping_pong_send_and_receive_tcp2(InitState#{buf_init => Fun}).
  
  traffic_ping_pong_send_and_receive_tcp2(InitState) ->
      ServerSeq =
          [
           %% *** Wait for start order part ***
  