tools/regression/mqueue/mqtest4/mqtest4.c

   1 /* $FreeBSD$ */
   2
   3 #include <sys/types.h>
   4 #include <sys/event.h>
   5 #include <sys/select.h>
   6 #include <sys/wait.h>
   7 #include <err.h>
   8 #include <fcntl.h>
   9 #include <mqueue.h>
  10 #include <signal.h>
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13 #include <unistd.h>
  14
  15 #define MQNAME  "/mytstqueue4"
  16 #define LOOPS   1000
  17 #define PRIO    10
  18
  19 void sighandler(int sig)
  20 {
  21         write(1, "timeout\n", 8);
  22         _exit(1);
  23 }
  24
  25 int main()
  26 {
  27         mqd_t mq;
  28         int status;
  29         struct mq_attr attr;
  30         int pid;
  31         fd_set set;
  32         int kq;
  33         struct kevent kev;
  34
  35         mq_unlink(MQNAME);
  36
  37         attr.mq_maxmsg  = 5;
  38         attr.mq_msgsize = 128;
  39         mq = mq_open(MQNAME, O_CREAT | O_RDWR | O_EXCL, 0666, &attr);
  40         if (mq == (mqd_t) -1)
  41                 err(1, "mq_open()");
  42         status = mq_getattr(mq, &attr);
  43         if (status)
  44                 err(1, "mq_getattr()");
  45         pid = fork();
  46         if (pid == 0) { /* child */
  47                 int prio, j, i;
  48                 char *buf;
  49
  50                 mq_close(mq);
  51                 kq = kqueue();
  52                 mq = mq_open(MQNAME, O_RDWR);
  53                 if (mq == (mqd_t)-1)
  54                         err(1, "child: mq_open");
  55                 EV_SET(&kev, __mq_oshandle(mq), EVFILT_READ, EV_ADD, 0, 0, 0);
  56                 status = kevent(kq, &kev, 1, NULL, 0, NULL);
  57                 if (status == -1)
  58                         err(1, "child: kevent");
  59                 buf = malloc(attr.mq_msgsize);
  60                 for (j = 0; j < LOOPS; ++j) {
  61                         alarm(3);
  62                         status = kevent(kq, NULL, 0, &kev, 1, NULL);
  63                         if (status != 1)
  64                                 err(1, "child: kevent 2");
  65                         status = mq_receive(mq, buf, attr.mq_msgsize, &prio);
  66                         if (status == -1)
  67                                 err(2, "child: mq_receive");
  68                         for (i = 0; i < attr.mq_msgsize; ++i)
  69                                 if (buf[i] != i)
  70                                         err(3, "child: message data corrupted");
  71                         if (prio != PRIO)
  72                                 err(4, "child: priority is incorrect: %d",
  73                                          prio);
  74                 }
  75                 alarm(0);
  76                 free(buf);
  77                 mq_close(mq);
  78                 return (0);
  79         } else if (pid == -1) {
  80                 err(1, "fork()");
  81         } else {
  82                 char *buf;
  83                 int i, j, prio;
  84
  85                 signal(SIGALRM, sighandler);
  86                 kq = kqueue();
  87                 EV_SET(&kev, __mq_oshandle(mq), EVFILT_WRITE, EV_ADD, 0, 0, 0);
  88                 status = kevent(kq, &kev, 1, NULL, 0, NULL);
  89                 if (status == -1)
  90                         err(1, "kevent");
  91                 buf = malloc(attr.mq_msgsize);
  92                 for (j = 0; j < LOOPS; ++j) {
  93                         for (i = 0; i < attr.mq_msgsize; ++i) {
  94                                 buf[i] = i;
  95                         }
  96                         alarm(3);
  97                         status = kevent(kq, NULL, 0, &kev, 1, NULL);
  98                         if (status != 1)
  99                                 err(1, "child: kevent 2");
 100                         status = mq_send(mq, buf, attr.mq_msgsize, PRIO);
 101                         if (status) {
 102                                 err(2, "mq_send()");
 103                         }
 104                 }
 105                 free(buf);
 106                 alarm(3);
 107                 wait(&status);
 108                 alarm(0);
 109         }
 110         status = mq_close(mq);
 111         if (status)
 112                 err(1, "mq_close");
 113         mq_unlink(MQNAME);
 114         return (0);
 115 }