[thirdparty/glibc.git] / rt / tst-mqueue4.c

/* Test message queue passing.
   Copyright (C) 2004 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Jakub Jelinek <jakub@redhat.com>, 2004.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, see
   <http://www.gnu.org/licenses/>.  */

#include <errno.h>
#include <fcntl.h>
#include <mqueue.h>
#include <limits.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/time.h>
#include <sys/wait.h>
#include <time.h>
#include <unistd.h>
#include "tst-mqueue.h"

#define TIMEOUT 4
#define TEST_FUNCTION do_test ()
static int
do_test (void)
{
  int result = 0;

  char name[sizeof "/tst-mqueue4-" + sizeof (pid_t) * 3 + NAME_MAX];
  char *p;
  p = name + snprintf (name, sizeof (name), "/tst-mqueue4-%u", getpid ());
  struct mq_attr attr = { .mq_maxmsg = 2, .mq_msgsize = 2 };
  mqd_t q = mq_open (name, O_CREAT | O_EXCL | O_RDWR, 0600, &attr);

  if (q == (mqd_t) -1)
    {
      printf ("mq_open failed with: %m\n");
      return result;
    }
  else
    add_temp_mq (name);

  *p = '.';
  memset (p + 1, 'x', NAME_MAX + 1 - (p - name));
  name[NAME_MAX + 1] = '\0';

  mqd_t q2 = mq_open (name, O_CREAT | O_EXCL | O_RDWR, 0600, &attr);
  if (q2 == (mqd_t) -1)
    {
      printf ("mq_open with NAME_MAX long name compoment failed with: %m\n");
      result = 1;
    }

  if (mq_unlink (name) != 0)
    {
      printf ("mq_unlink failed: %m\n");
      result = 1;
    }

  if (mq_close (q2) != 0)
    {
      printf ("mq_close failed: %m\n");
      result = 1;
    }

  name[NAME_MAX + 1] = 'x';
  name[NAME_MAX + 2] = '\0';
  q2 = mq_open (name, O_CREAT | O_EXCL | O_RDWR, 0600, &attr);
  if (q2 != (mqd_t) -1)
    {
      puts ("mq_open with too long name component unexpectedly succeeded");
      mq_unlink (name);
      mq_close (q2);
      result = 1;
    }
  else if (errno != ENAMETOOLONG)
    {
      printf ("mq_open with too long name component did not fail with "
	      "ENAMETOOLONG: %m\n");
      result = 1;
    }

  if (mq_unlink (name) == 0)
    {
      puts ("mq_unlink with too long name component unexpectedly succeeded");
      result = 1;
    }
  else if (errno != ENAMETOOLONG)
    {
      printf ("mq_unlink with too long name component did not fail with "
	      "ENAMETOOLONG: %m\n");
      result = 1;
    }

  *p = '\0';
  attr.mq_maxmsg = 1;
  attr.mq_msgsize = 3;
  q2 = mq_open (name, O_CREAT | O_RDWR, 0600, &attr);
  if (q2 == (mqd_t) -1)
    {
      printf ("mq_open without O_EXCL failed with %m\n");
      result = 1;
    }

  char buf[3];
  strcpy (buf, "jk");
  if (mq_send (q, buf, 2, 4) != 0)
    {
      printf ("mq_send failed: %m\n");
      result = 1;
    }

  if (mq_send (q, buf + 1, 1, 5) != 0)
    {
      printf ("mq_send failed: %m\n");
      result = 1;
    }

  if (mq_getattr (q2, &attr) != 0)
    {
      printf ("mq_getattr failed: %m\n");
      result = 1;
    }

  if ((attr.mq_flags & O_NONBLOCK)
      || attr.mq_maxmsg != 2
      || attr.mq_msgsize != 2
      || attr.mq_curmsgs != 2)
    {
      printf ("mq_getattr returned unexpected { .mq_flags = %ld,\n"
	      ".mq_maxmsg = %ld, .mq_msgsize = %ld, .mq_curmsgs = %ld }\n",
	      attr.mq_flags, attr.mq_maxmsg, attr.mq_msgsize, attr.mq_curmsgs);
      result = 1;
    }

  struct timespec ts;
  if (clock_gettime (CLOCK_REALTIME, &ts) == 0)
    ++ts.tv_sec;
  else
    {
      ts.tv_sec = time (NULL) + 1;
      ts.tv_nsec = 0;
    }

  if (mq_timedsend (q2, buf, 1, 1, &ts) == 0)
    {
      puts ("mq_timedsend unexpectedly succeeded");
      result = 1;
    }
  else if (errno != ETIMEDOUT)
    {
      printf ("mq_timedsend did not fail with ETIMEDOUT: %m\n");
      result = 1;
    }

  if (mq_close (q2) != 0)
    {
      printf ("mq_close failed: %m\n");
      result = 1;
    }

  q2 = mq_open (name, O_RDONLY, 0600);
  if (q2 == (mqd_t) -1)
    {
      printf ("mq_open without O_CREAT failed with %m\n");
      result = 1;
    }

  mqd_t q3 = mq_open (name, O_RDONLY, 0600);
  if (q3 == (mqd_t) -1)
    {
      printf ("mq_open without O_CREAT failed with %m\n");
      result = 1;
    }

  memset (buf, ' ', sizeof (buf));

  unsigned int prio;
  ssize_t rets = mq_receive (q2, buf, 2, &prio);
  if (rets != 1)
    {
      if (rets == -1)
	printf ("mq_receive failed with: %m\n");
      else
	printf ("mq_receive returned %zd != 1\n", rets);
      result = 1;
    }
  else if (prio != 5 || memcmp (buf, "k  ", 3) != 0)
    {
      printf ("mq_receive returned prio %u (2) buf \"%c%c%c\" (\"k  \")\n",
	      prio, buf[0], buf[1], buf[2]);
      result = 1;
    }

  if (mq_getattr (q3, &attr) != 0)
    {
      printf ("mq_getattr failed: %m\n");
      result = 1;
    }

  if ((attr.mq_flags & O_NONBLOCK)
      || attr.mq_maxmsg != 2
      || attr.mq_msgsize != 2
      || attr.mq_curmsgs != 1)
    {
      printf ("mq_getattr returned unexpected { .mq_flags = %ld,\n"
	      ".mq_maxmsg = %ld, .mq_msgsize = %ld, .mq_curmsgs = %ld }\n",
	      attr.mq_flags, attr.mq_maxmsg, attr.mq_msgsize, attr.mq_curmsgs);
      result = 1;
    }

  rets = mq_receive (q3, buf, 2, NULL);
  if (rets != 2)
    {
      if (rets == -1)
	printf ("mq_receive failed with: %m\n");
      else
	printf ("mq_receive returned %zd != 2\n", rets);
      result = 1;
    }
  else if (memcmp (buf, "jk ", 3) != 0)
    {
      printf ("mq_receive returned buf \"%c%c%c\" != \"jk \"\n",
	      buf[0], buf[1], buf[2]);
      result = 1;
    }

  if (clock_gettime (CLOCK_REALTIME, &ts) == 0)
    ++ts.tv_sec;
  else
    {
      ts.tv_sec = time (NULL) + 1;
      ts.tv_nsec = 0;
    }

  if (mq_timedreceive (q2, buf, 2, NULL, &ts) != -1)
    {
      puts ("mq_timedreceive on empty queue unexpectedly succeeded");
      result = 1;
    }
  else if (errno != ETIMEDOUT)
    {
      printf ("mq_timedreceive on empty queue did not fail with "
	      "ETIMEDOUT: %m\n");
      result = 1;
    }

  if (mq_unlink (name) != 0)
    {
      printf ("mq_unlink failed: %m\n");
      result = 1;
    }

  if (mq_close (q) != 0)
    {
      printf ("mq_close failed: %m\n");
      result = 1;
    }

  if (mq_close (q2) != 0)
    {
      printf ("mq_close failed: %m\n");
      result = 1;
    }

  if (mq_close (q3) != 0)
    {
      printf ("mq_close failed: %m\n");
      result = 1;
    }

  return result;
}

#include "../test-skeleton.c"
Commit	Line	Data
1b82c6c7 UD	1	/* Test message queue passing.
	2	Copyright (C) 2004 Free Software Foundation, Inc.
	3	This file is part of the GNU C Library.
	4	Contributed by Jakub Jelinek <jakub@redhat.com>, 2004.
	5
	6	The GNU C Library is free software; you can redistribute it and/or
	7	modify it under the terms of the GNU Lesser General Public
	8	License as published by the Free Software Foundation; either
	9	version 2.1 of the License, or (at your option) any later version.
	10
	11	The GNU C Library is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	14	Lesser General Public License for more details.
	15
	16	You should have received a copy of the GNU Lesser General Public
59ba27a6 PE	17	License along with the GNU C Library; if not, see
59ba27a6 PE	18	<http://www.gnu.org/licenses/>. */
1b82c6c7 UD	19
	20	#include <errno.h>
	21	#include <fcntl.h>
	22	#include <mqueue.h>
	23	#include <limits.h>
	24	#include <signal.h>
	25	#include <stdio.h>
	26	#include <stdlib.h>
	27	#include <string.h>
	28	#include <sys/time.h>
	29	#include <sys/wait.h>
	30	#include <time.h>
	31	#include <unistd.h>
	32	#include "tst-mqueue.h"
	33
	34	#define TIMEOUT 4
	35	#define TEST_FUNCTION do_test ()
	36	static int
	37	do_test (void)
	38	{
	39	int result = 0;
	40
	41	char name[sizeof "/tst-mqueue4-" + sizeof (pid_t) * 3 + NAME_MAX];
	42	char *p;
	43	p = name + snprintf (name, sizeof (name), "/tst-mqueue4-%u", getpid ());
	44	struct mq_attr attr = { .mq_maxmsg = 2, .mq_msgsize = 2 };
	45	mqd_t q = mq_open (name, O_CREAT \| O_EXCL \| O_RDWR, 0600, &attr);
	46
	47	if (q == (mqd_t) -1)
	48	{
	49	printf ("mq_open failed with: %m\n");
	50	return result;
	51	}
	52	else
	53	add_temp_mq (name);
	54
	55	*p = '.';
	56	memset (p + 1, 'x', NAME_MAX + 1 - (p - name));
	57	name[NAME_MAX + 1] = '\0';
	58
	59	mqd_t q2 = mq_open (name, O_CREAT \| O_EXCL \| O_RDWR, 0600, &attr);
	60	if (q2 == (mqd_t) -1)
	61	{
	62	printf ("mq_open with NAME_MAX long name compoment failed with: %m\n");
	63	result = 1;
	64	}
	65
	66	if (mq_unlink (name) != 0)
	67	{
	68	printf ("mq_unlink failed: %m\n");
	69	result = 1;
	70	}
	71
	72	if (mq_close (q2) != 0)
	73	{
	74	printf ("mq_close failed: %m\n");
	75	result = 1;
	76	}
	77
	78	name[NAME_MAX + 1] = 'x';
	79	name[NAME_MAX + 2] = '\0';
	80	q2 = mq_open (name, O_CREAT \| O_EXCL \| O_RDWR, 0600, &attr);
	81	if (q2 != (mqd_t) -1)
	82	{
83	puts ("mq_open with too long name component unexpectedly succeeded");
84	mq_unlink (name);
85	mq_close (q2);
86	result = 1;
87	}
88	else if (errno != ENAMETOOLONG)
89	{
90	printf ("mq_open with too long name component did not fail with "
0a901ba4 UD	91	"ENAMETOOLONG: %m\n");
	92	result = 1;
	93	}
	94
	95	if (mq_unlink (name) == 0)
	96	{
	97	puts ("mq_unlink with too long name component unexpectedly succeeded");
	98	result = 1;
	99	}
	100	else if (errno != ENAMETOOLONG)
	101	{
	102	printf ("mq_unlink with too long name component did not fail with "
1b82c6c7 UD	103	"ENAMETOOLONG: %m\n");
	104	result = 1;
	105	}
	106
	107	*p = '\0';
	108	attr.mq_maxmsg = 1;
	109	attr.mq_msgsize = 3;
	110	q2 = mq_open (name, O_CREAT \| O_RDWR, 0600, &attr);
	111	if (q2 == (mqd_t) -1)
	112	{
	113	printf ("mq_open without O_EXCL failed with %m\n");
	114	result = 1;
	115	}
	116
	117	char buf[3];
	118	strcpy (buf, "jk");
	119	if (mq_send (q, buf, 2, 4) != 0)
	120	{
	121	printf ("mq_send failed: %m\n");
	122	result = 1;
	123	}
	124
	125	if (mq_send (q, buf + 1, 1, 5) != 0)
	126	{
	127	printf ("mq_send failed: %m\n");
	128	result = 1;
	129	}
	130
	131	if (mq_getattr (q2, &attr) != 0)
	132	{
	133	printf ("mq_getattr failed: %m\n");
	134	result = 1;
	135	}
	136
	137	if ((attr.mq_flags & O_NONBLOCK)
	138	\|\| attr.mq_maxmsg != 2
	139	\|\| attr.mq_msgsize != 2
	140	\|\| attr.mq_curmsgs != 2)
	141	{
	142	printf ("mq_getattr returned unexpected { .mq_flags = %ld,\n"
	143	".mq_maxmsg = %ld, .mq_msgsize = %ld, .mq_curmsgs = %ld }\n",
	144	attr.mq_flags, attr.mq_maxmsg, attr.mq_msgsize, attr.mq_curmsgs);
	145	result = 1;
	146	}
	147
	148	struct timespec ts;
	149	if (clock_gettime (CLOCK_REALTIME, &ts) == 0)
	150	++ts.tv_sec;
	151	else
	152	{
	153	ts.tv_sec = time (NULL) + 1;
	154	ts.tv_nsec = 0;
	155	}
	156
	157	if (mq_timedsend (q2, buf, 1, 1, &ts) == 0)
	158	{
	159	puts ("mq_timedsend unexpectedly succeeded");
	160	result = 1;
	161	}
	162	else if (errno != ETIMEDOUT)
	163	{
	164	printf ("mq_timedsend did not fail with ETIMEDOUT: %m\n");
	165	result = 1;
	166	}
167
168	if (mq_close (q2) != 0)
169	{
170	printf ("mq_close failed: %m\n");
171	result = 1;
172	}
173
174	q2 = mq_open (name, O_RDONLY, 0600);
175	if (q2 == (mqd_t) -1)
176	{
177	printf ("mq_open without O_CREAT failed with %m\n");
178	result = 1;
179	}
180
181	mqd_t q3 = mq_open (name, O_RDONLY, 0600);
182	if (q3 == (mqd_t) -1)
183	{
184	printf ("mq_open without O_CREAT failed with %m\n");
185	result = 1;
186	}
187
188	memset (buf, ' ', sizeof (buf));
189
190	unsigned int prio;
191	ssize_t rets = mq_receive (q2, buf, 2, &prio);
192	if (rets != 1)
193	{
194	if (rets == -1)
195	printf ("mq_receive failed with: %m\n");
196	else
197	printf ("mq_receive returned %zd != 1\n", rets);
198	result = 1;
199	}
200	else if (prio != 5 \|\| memcmp (buf, "k ", 3) != 0)
201	{
202	printf ("mq_receive returned prio %u (2) buf \"%c%c%c\" (\"k \")\n",
203	prio, buf[0], buf[1], buf[2]);
204	result = 1;
205	}
206
207	if (mq_getattr (q3, &attr) != 0)
208	{
209	printf ("mq_getattr failed: %m\n");
210	result = 1;
211	}
212
213	if ((attr.mq_flags & O_NONBLOCK)
214	\|\| attr.mq_maxmsg != 2
215	\|\| attr.mq_msgsize != 2
216	\|\| attr.mq_curmsgs != 1)
217	{
218	printf ("mq_getattr returned unexpected { .mq_flags = %ld,\n"
219	".mq_maxmsg = %ld, .mq_msgsize = %ld, .mq_curmsgs = %ld }\n",
220	attr.mq_flags, attr.mq_maxmsg, attr.mq_msgsize, attr.mq_curmsgs);
221	result = 1;
222	}
223
224	rets = mq_receive (q3, buf, 2, NULL);
225	if (rets != 2)
226	{
227	if (rets == -1)
228	printf ("mq_receive failed with: %m\n");
229	else
230	printf ("mq_receive returned %zd != 2\n", rets);
231	result = 1;
232	}
233	else if (memcmp (buf, "jk ", 3) != 0)
234	{
235	printf ("mq_receive returned buf \"%c%c%c\" != \"jk \"\n",
236	buf[0], buf[1], buf[2]);
237	result = 1;
238	}
239
240	if (clock_gettime (CLOCK_REALTIME, &ts) == 0)
241	++ts.tv_sec;
242	else
243	{
244	ts.tv_sec = time (NULL) + 1;
245	ts.tv_nsec = 0;
246	}
247
248	if (mq_timedreceive (q2, buf, 2, NULL, &ts) != -1)
249	{
250	puts ("mq_timedreceive on empty queue unexpectedly succeeded");
251	result = 1;
252	}
253	else if (errno != ETIMEDOUT)
254	{
255	printf ("mq_timedreceive on empty queue did not fail with "
256	"ETIMEDOUT: %m\n");
257	result = 1;
258	}
259
260	if (mq_unlink (name) != 0)
261	{
262	printf ("mq_unlink failed: %m\n");
263	result = 1;
264	}
265
266	if (mq_close (q) != 0)
267	{
268	printf ("mq_close failed: %m\n");
269	result = 1;
270	}
271
272	if (mq_close (q2) != 0)
273	{
274	printf ("mq_close failed: %m\n");
275	result = 1;
276	}
277
278	if (mq_close (q3) != 0)
279	{
280	printf ("mq_close failed: %m\n");
281	result = 1;
282	}
283
284	return result;
285	}
286
287	#include "../test-skeleton.c"