tools/testing/selftests/net/so_txtime.c

   1 // SPDX-License-Identifier: GPL-2.0
   2 /*
   3  * Test the SO_TXTIME API
   4  *
   5  * Takes two streams of { payload, delivery time }[], one input and one output.
   6  * Sends the input stream and verifies arrival matches the output stream.
   7  * The two streams can differ due to out-of-order delivery and drops.
   8  */
   9
  10 #define _GNU_SOURCE
  11
  12 #include <arpa/inet.h>
  13 #include <error.h>
  14 #include <errno.h>
  15 #include <inttypes.h>
  16 #include <linux/net_tstamp.h>
  17 #include <linux/errqueue.h>
  18 #include <linux/if_ether.h>
  19 #include <linux/ipv6.h>
  20 #include <linux/udp.h>
  21 #include <stdbool.h>
  22 #include <stdlib.h>
  23 #include <stdio.h>
  24 #include <string.h>
  25 #include <sys/socket.h>
  26 #include <sys/stat.h>
  27 #include <sys/time.h>
  28 #include <sys/types.h>
  29 #include <time.h>
  30 #include <unistd.h>
  31
  32 static int      cfg_clockid     = CLOCK_TAI;
  33 static bool     cfg_do_ipv4;
  34 static bool     cfg_do_ipv6;
  35 static uint16_t cfg_port        = 8000;
  36 static int      cfg_variance_us = 4000;
  37
  38 static uint64_t glob_tstart;
  39
  40 /* encode one timed transmission (of a 1B payload) */
  41 struct timed_send {
  42         char    data;
  43         int64_t delay_us;
  44 };
  45
  46 #define MAX_NUM_PKT     8
  47 static struct timed_send cfg_in[MAX_NUM_PKT];
  48 static struct timed_send cfg_out[MAX_NUM_PKT];
  49 static int cfg_num_pkt;
  50
  51 static int cfg_errq_level;
  52 static int cfg_errq_type;
  53
  54 static uint64_t gettime_ns(void)
  55 {
  56         struct timespec ts;
  57
  58         if (clock_gettime(cfg_clockid, &ts))
  59                 error(1, errno, "gettime");
  60
  61         return ts.tv_sec * (1000ULL * 1000 * 1000) + ts.tv_nsec;
  62 }
  63
  64 static void do_send_one(int fdt, struct timed_send *ts)
  65 {
  66         char control[CMSG_SPACE(sizeof(uint64_t))];
  67         struct msghdr msg = {0};
  68         struct iovec iov = {0};
  69         struct cmsghdr *cm;
  70         uint64_t tdeliver;
  71         int ret;
  72
  73         iov.iov_base = &ts->data;
  74         iov.iov_len = 1;
  75
  76         msg.msg_iov = &iov;
  77         msg.msg_iovlen = 1;
  78
  79         if (ts->delay_us >= 0) {
  80                 memset(control, 0, sizeof(control));
  81                 msg.msg_control = &control;
  82                 msg.msg_controllen = sizeof(control);
  83
  84                 tdeliver = glob_tstart + ts->delay_us * 1000;
  85
  86                 cm = CMSG_FIRSTHDR(&msg);
  87                 cm->cmsg_level = SOL_SOCKET;
  88                 cm->cmsg_type = SCM_TXTIME;
  89                 cm->cmsg_len = CMSG_LEN(sizeof(tdeliver));
  90                 memcpy(CMSG_DATA(cm), &tdeliver, sizeof(tdeliver));
  91         }
  92
  93         ret = sendmsg(fdt, &msg, 0);
  94         if (ret == -1)
  95                 error(1, errno, "write");
  96         if (ret == 0)
  97                 error(1, 0, "write: 0B");
  98
  99 }
 100
 101 static bool do_recv_one(int fdr, struct timed_send *ts)
 102 {
 103         int64_t tstop, texpect;
 104         char rbuf[2];
 105         int ret;
 106
 107         ret = recv(fdr, rbuf, sizeof(rbuf), 0);
 108         if (ret == -1 && errno == EAGAIN)
 109                 return true;
 110         if (ret == -1)
 111                 error(1, errno, "read");
 112         if (ret != 1)
 113                 error(1, 0, "read: %dB", ret);
 114
 115         tstop = (gettime_ns() - glob_tstart) / 1000;
 116         texpect = ts->delay_us >= 0 ? ts->delay_us : 0;
 117
 118         fprintf(stderr, "payload:%c delay:%lld expected:%lld (us)\n",
 119                         rbuf[0], (long long)tstop, (long long)texpect);
 120
 121         if (rbuf[0] != ts->data)
 122                 error(1, 0, "payload mismatch. expected %c", ts->data);
 123
 124         if (llabs(tstop - texpect) > cfg_variance_us)
 125                 error(1, 0, "exceeds variance (%d us)", cfg_variance_us);
 126
 127         return false;
 128 }
 129
 130 static void do_recv_verify_empty(int fdr)
 131 {
 132         char rbuf[1];
 133         int ret;
 134
 135         ret = recv(fdr, rbuf, sizeof(rbuf), 0);
 136         if (ret != -1 || errno != EAGAIN)
 137                 error(1, 0, "recv: not empty as expected (%d, %d)", ret, errno);
 138 }
 139
 140 static void do_recv_errqueue_timeout(int fdt)
 141 {
 142         char control[CMSG_SPACE(sizeof(struct sock_extended_err)) +
 143                      CMSG_SPACE(sizeof(struct sockaddr_in6))] = {0};
 144         char data[sizeof(struct ethhdr) + sizeof(struct ipv6hdr) +
 145                   sizeof(struct udphdr) + 1];
 146         struct sock_extended_err *err;
 147         struct msghdr msg = {0};
 148         struct iovec iov = {0};
 149         struct cmsghdr *cm;
 150         int64_t tstamp = 0;
 151         int ret;
 152
 153         iov.iov_base = data;
 154         iov.iov_len = sizeof(data);
 155
 156         msg.msg_iov = &iov;
 157         msg.msg_iovlen = 1;
 158
 159         msg.msg_control = control;
 160         msg.msg_controllen = sizeof(control);
 161
 162         while (1) {
 163                 const char *reason;
 164
 165                 ret = recvmsg(fdt, &msg, MSG_ERRQUEUE);
 166                 if (ret == -1 && errno == EAGAIN)
 167                         break;
 168                 if (ret == -1)
 169                         error(1, errno, "errqueue");
 170                 if (msg.msg_flags != MSG_ERRQUEUE)
 171                         error(1, 0, "errqueue: flags 0x%x\n", msg.msg_flags);
 172
 173                 cm = CMSG_FIRSTHDR(&msg);
 174                 if (cm->cmsg_level != cfg_errq_level ||
 175                     cm->cmsg_type != cfg_errq_type)
 176                         error(1, 0, "errqueue: type 0x%x.0x%x\n",
 177                                     cm->cmsg_level, cm->cmsg_type);
 178
 179                 err = (struct sock_extended_err *)CMSG_DATA(cm);
 180                 if (err->ee_origin != SO_EE_ORIGIN_TXTIME)
 181                         error(1, 0, "errqueue: origin 0x%x\n", err->ee_origin);
 182
 183                 switch (err->ee_errno) {
 184                 case ECANCELED:
 185                         if (err->ee_code != SO_EE_CODE_TXTIME_MISSED)
 186                                 error(1, 0, "errqueue: unknown ECANCELED %u\n",
 187                                       err->ee_code);
 188                         reason = "missed txtime";
 189                 break;
 190                 case EINVAL:
 191                         if (err->ee_code != SO_EE_CODE_TXTIME_INVALID_PARAM)
 192                                 error(1, 0, "errqueue: unknown EINVAL %u\n",
 193                                       err->ee_code);
 194                         reason = "invalid txtime";
 195                 break;
 196                 default:
 197                         error(1, 0, "errqueue: errno %u code %u\n",
 198                               err->ee_errno, err->ee_code);
 199                 };
 200
 201                 tstamp = ((int64_t) err->ee_data) << 32 | err->ee_info;
 202                 tstamp -= (int64_t) glob_tstart;
 203                 tstamp /= 1000 * 1000;
 204                 fprintf(stderr, "send: pkt %c at %" PRId64 "ms dropped: %s\n",
 205                         data[ret - 1], tstamp, reason);
 206
 207                 msg.msg_flags = 0;
 208                 msg.msg_controllen = sizeof(control);
 209         }
 210
 211         error(1, 0, "recv: timeout");
 212 }
 213
 214 static void setsockopt_txtime(int fd)
 215 {
 216         struct sock_txtime so_txtime_val = { .clockid = cfg_clockid };
 217         struct sock_txtime so_txtime_val_read = { 0 };
 218         socklen_t vallen = sizeof(so_txtime_val);
 219
 220         so_txtime_val.flags = SOF_TXTIME_REPORT_ERRORS;
 221
 222         if (setsockopt(fd, SOL_SOCKET, SO_TXTIME,
 223                        &so_txtime_val, sizeof(so_txtime_val)))
 224                 error(1, errno, "setsockopt txtime");
 225
 226         if (getsockopt(fd, SOL_SOCKET, SO_TXTIME,
 227                        &so_txtime_val_read, &vallen))
 228                 error(1, errno, "getsockopt txtime");
 229
 230         if (vallen != sizeof(so_txtime_val) ||
 231             memcmp(&so_txtime_val, &so_txtime_val_read, vallen))
 232                 error(1, 0, "getsockopt txtime: mismatch");
 233 }
 234
 235 static int setup_tx(struct sockaddr *addr, socklen_t alen)
 236 {
 237         int fd;
 238
 239         fd = socket(addr->sa_family, SOCK_DGRAM, 0);
 240         if (fd == -1)
 241                 error(1, errno, "socket t");
 242
 243         if (connect(fd, addr, alen))
 244                 error(1, errno, "connect");
 245
 246         setsockopt_txtime(fd);
 247
 248         return fd;
 249 }
 250
 251 static int setup_rx(struct sockaddr *addr, socklen_t alen)
 252 {
 253         struct timeval tv = { .tv_usec = 100 * 1000 };
 254         int fd;
 255
 256         fd = socket(addr->sa_family, SOCK_DGRAM, 0);
 257         if (fd == -1)
 258                 error(1, errno, "socket r");
 259
 260         if (bind(fd, addr, alen))
 261                 error(1, errno, "bind");
 262
 263         if (setsockopt(fd, SOL_SOCKET, SO_RCVTIMEO, &tv, sizeof(tv)))
 264                 error(1, errno, "setsockopt rcv timeout");
 265
 266         return fd;
 267 }
 268
 269 static void do_test(struct sockaddr *addr, socklen_t alen)
 270 {
 271         int fdt, fdr, i;
 272
 273         fprintf(stderr, "\nSO_TXTIME ipv%c clock %s\n",
 274                         addr->sa_family == PF_INET ? '4' : '6',
 275                         cfg_clockid == CLOCK_TAI ? "tai" : "monotonic");
 276
 277         fdt = setup_tx(addr, alen);
 278         fdr = setup_rx(addr, alen);
 279
 280         glob_tstart = gettime_ns();
 281
 282         for (i = 0; i < cfg_num_pkt; i++)
 283                 do_send_one(fdt, &cfg_in[i]);
 284         for (i = 0; i < cfg_num_pkt; i++)
 285                 if (do_recv_one(fdr, &cfg_out[i]))
 286                         do_recv_errqueue_timeout(fdt);
 287
 288         do_recv_verify_empty(fdr);
 289
 290         if (close(fdr))
 291                 error(1, errno, "close r");
 292         if (close(fdt))
 293                 error(1, errno, "close t");
 294 }
 295
 296 static int parse_io(const char *optarg, struct timed_send *array)
 297 {
 298         char *arg, *tok;
 299         int aoff = 0;
 300
 301         arg = strdup(optarg);
 302         if (!arg)
 303                 error(1, errno, "strdup");
 304
 305         while ((tok = strtok(arg, ","))) {
 306                 arg = NULL;     /* only pass non-zero on first call */
 307
 308                 if (aoff / 2 == MAX_NUM_PKT)
 309                         error(1, 0, "exceeds max pkt count (%d)", MAX_NUM_PKT);
 310
 311                 if (aoff & 1) { /* parse delay */
 312                         array->delay_us = strtol(tok, NULL, 0) * 1000;
 313                         array++;
 314                 } else {        /* parse character */
 315                         array->data = tok[0];
 316                 }
 317
 318                 aoff++;
 319         }
 320
 321         free(arg);
 322
 323         return aoff / 2;
 324 }
 325
 326 static void parse_opts(int argc, char **argv)
 327 {
 328         int c, ilen, olen;
 329
 330         while ((c = getopt(argc, argv, "46c:")) != -1) {
 331                 switch (c) {
 332                 case '4':
 333                         cfg_do_ipv4 = true;
 334                         break;
 335                 case '6':
 336                         cfg_do_ipv6 = true;
 337                         break;
 338                 case 'c':
 339                         if (!strcmp(optarg, "tai"))
 340                                 cfg_clockid = CLOCK_TAI;
 341                         else if (!strcmp(optarg, "monotonic") ||
 342                                  !strcmp(optarg, "mono"))
 343                                 cfg_clockid = CLOCK_MONOTONIC;
 344                         else
 345                                 error(1, 0, "unknown clock id %s", optarg);
 346                         break;
 347                 default:
 348                         error(1, 0, "parse error at %d", optind);
 349                 }
 350         }
 351
 352         if (argc - optind != 2)
 353                 error(1, 0, "Usage: %s [-46] -c <clock> <in> <out>", argv[0]);
 354
 355         ilen = parse_io(argv[optind], cfg_in);
 356         olen = parse_io(argv[optind + 1], cfg_out);
 357         if (ilen != olen)
 358                 error(1, 0, "i/o streams len mismatch (%d, %d)\n", ilen, olen);
 359         cfg_num_pkt = ilen;
 360 }
 361
 362 int main(int argc, char **argv)
 363 {
 364         parse_opts(argc, argv);
 365
 366         if (cfg_do_ipv6) {
 367                 struct sockaddr_in6 addr6 = {0};
 368
 369                 addr6.sin6_family = AF_INET6;
 370                 addr6.sin6_port = htons(cfg_port);
 371                 addr6.sin6_addr = in6addr_loopback;
 372
 373                 cfg_errq_level = SOL_IPV6;
 374                 cfg_errq_type = IPV6_RECVERR;
 375
 376                 do_test((void *)&addr6, sizeof(addr6));
 377         }
 378
 379         if (cfg_do_ipv4) {
 380                 struct sockaddr_in addr4 = {0};
 381
 382                 addr4.sin_family = AF_INET;
 383                 addr4.sin_port = htons(cfg_port);
 384                 addr4.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
 385
 386                 cfg_errq_level = SOL_IP;
 387                 cfg_errq_type = IP_RECVERR;
 388
 389                 do_test((void *)&addr4, sizeof(addr4));
 390         }
 391
 392         return 0;
 393 }