mirror of git://sourceware.org/git/glibc.git
				
				
				
			
		
			
				
	
	
		
			2399 lines
		
	
	
		
			49 KiB
		
	
	
	
		
			C
		
	
	
	
			
		
		
	
	
			2399 lines
		
	
	
		
			49 KiB
		
	
	
	
		
			C
		
	
	
	
| /* Copyright (C) 2002-2015 Free Software Foundation, Inc.
 | |
|    This file is part of the GNU C Library.
 | |
|    Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
 | |
| 
 | |
|    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/>.  */
 | |
| 
 | |
| /* NOTE: this tests functionality beyond POSIX.  POSIX does not allow
 | |
|    exit to be called more than once.  */
 | |
| 
 | |
| #include <errno.h>
 | |
| #include <fcntl.h>
 | |
| #include <limits.h>
 | |
| #include <pthread.h>
 | |
| #include <stddef.h>
 | |
| #include <stdio.h>
 | |
| #include <stdlib.h>
 | |
| #include <string.h>
 | |
| #include <termios.h>
 | |
| #include <unistd.h>
 | |
| #include <sys/mman.h>
 | |
| #include <sys/msg.h>
 | |
| #include <sys/poll.h>
 | |
| #include <sys/select.h>
 | |
| #include <sys/socket.h>
 | |
| #include <sys/uio.h>
 | |
| #include <sys/un.h>
 | |
| #include <sys/wait.h>
 | |
| 
 | |
| #include "pthreadP.h"
 | |
| 
 | |
| 
 | |
| /* Since STREAMS are not supported in the standard Linux kernel and
 | |
|    there we don't advertise STREAMS as supported is no need to test
 | |
|    the STREAMS related functions.  This affects
 | |
|      getmsg()              getpmsg()          putmsg()
 | |
|      putpmsg()
 | |
| 
 | |
|    lockf() and fcntl() are tested in tst-cancel16.
 | |
| 
 | |
|    pthread_join() is tested in tst-join5.
 | |
| 
 | |
|    pthread_testcancel()'s only purpose is to allow cancellation.  This
 | |
|    is tested in several places.
 | |
| 
 | |
|    sem_wait() and sem_timedwait() are checked in tst-cancel1[2345] tests.
 | |
| 
 | |
|    mq_send(), mq_timedsend(), mq_receive() and mq_timedreceive() are checked
 | |
|    in tst-mqueue8{,x} tests.
 | |
| 
 | |
|    aio_suspend() is tested in tst-cancel17.
 | |
| 
 | |
|    clock_nanosleep() is tested in tst-cancel18.
 | |
| */
 | |
| 
 | |
| /* Pipe descriptors.  */
 | |
| static int fds[2];
 | |
| 
 | |
| /* Temporary file descriptor, to be closed after each round.  */
 | |
| static int tempfd = -1;
 | |
| static int tempfd2 = -1;
 | |
| /* Name of temporary file to be removed after each round.  */
 | |
| static char *tempfname;
 | |
| /* Temporary message queue.  */
 | |
| static int tempmsg = -1;
 | |
| 
 | |
| /* Often used barrier for two threads.  */
 | |
| static pthread_barrier_t b2;
 | |
| 
 | |
| 
 | |
| #ifndef IPC_ADDVAL
 | |
| # define IPC_ADDVAL 0
 | |
| #endif
 | |
| 
 | |
| /* The WRITE_BUFFER_SIZE value needs to be chosen such that if we set
 | |
|    the socket send buffer size to '1', a write of this size on that
 | |
|    socket will block.
 | |
| 
 | |
|    The Linux kernel imposes a minimum send socket buffer size which
 | |
|    has changed over the years.  As of Linux 3.10 the value is:
 | |
| 
 | |
|      2 * (2048 + SKB_DATA_ALIGN(sizeof(struct sk_buff)))
 | |
| 
 | |
|    which is attempting to make sure that with standard MTUs,
 | |
|    TCP can always queue up at least 2 full sized packets.
 | |
| 
 | |
|    Furthermore, there is logic in the socket send paths that
 | |
|    will allow one more packet (of any size) to be queued up as
 | |
|    long as some socket buffer space remains.   Blocking only
 | |
|    occurs when we try to queue up a new packet and the send
 | |
|    buffer space has already been fully consumed.
 | |
| 
 | |
|    Therefore we must set this value to the largest possible value of
 | |
|    the formula above (and since it depends upon the size of "struct
 | |
|    sk_buff", it is dependent upon machine word size etc.) plus some
 | |
|    slack space.  */
 | |
| 
 | |
| #define WRITE_BUFFER_SIZE 16384
 | |
| 
 | |
| /* Cleanup handling test.  */
 | |
| static int cl_called;
 | |
| 
 | |
| static void
 | |
| cl (void *arg)
 | |
| {
 | |
|   ++cl_called;
 | |
| }
 | |
| 
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_read  (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   ssize_t s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char buf[100];
 | |
|   s = read (fd, buf, sizeof (buf));
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: read returns with %zd\n", __FUNCTION__, s);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_readv  (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   ssize_t s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char buf[100];
 | |
|   struct iovec iov[1] = { [0] = { .iov_base = buf, .iov_len = sizeof (buf) } };
 | |
|   s = readv (fd, iov, 1);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: readv returns with %zd\n", __FUNCTION__, s);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_write  (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[1];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   ssize_t s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char buf[WRITE_BUFFER_SIZE];
 | |
|   memset (buf, '\0', sizeof (buf));
 | |
|   s = write (fd, buf, sizeof (buf));
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: write returns with %zd\n", __FUNCTION__, s);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_writev  (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[1];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   ssize_t s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char buf[WRITE_BUFFER_SIZE];
 | |
|   memset (buf, '\0', sizeof (buf));
 | |
|   struct iovec iov[1] = { [0] = { .iov_base = buf, .iov_len = sizeof (buf) } };
 | |
|   s = writev (fd, iov, 1);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: writev returns with %zd\n", __FUNCTION__, s);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sleep (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   sleep (arg == NULL ? 1000000 : 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sleep returns\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_usleep (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   usleep (arg == NULL ? (useconds_t) ULONG_MAX : 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: usleep returns\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_nanosleep (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   struct timespec ts = { .tv_sec = arg == NULL ? 10000000 : 0, .tv_nsec = 0 };
 | |
|   TEMP_FAILURE_RETRY (nanosleep (&ts, &ts));
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: nanosleep returns\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_select (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   fd_set rfs;
 | |
|   FD_ZERO (&rfs);
 | |
|   FD_SET (fd, &rfs);
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = select (fd + 1, &rfs, NULL, NULL, NULL);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: select returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_pselect (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   fd_set rfs;
 | |
|   FD_ZERO (&rfs);
 | |
|   FD_SET (fd, &rfs);
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = pselect (fd + 1, &rfs, NULL, NULL, NULL, NULL);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: pselect returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_poll (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   struct pollfd rfs[1] = { [0] = { .fd = fd, .events = POLLIN } };
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = poll (rfs, 1, -1);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: poll returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_ppoll (void *arg)
 | |
| {
 | |
|   int fd;
 | |
|   int r;
 | |
| 
 | |
|   if (arg == NULL)
 | |
|     fd = fds[0];
 | |
|   else
 | |
|     {
 | |
|       char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|       tempfd = fd = mkstemp (fname);
 | |
|       if (fd == -1)
 | |
| 	printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       unlink (fname);
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   struct pollfd rfs[1] = { [0] = { .fd = fd, .events = POLLIN } };
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = ppoll (rfs, 1, NULL, NULL);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: ppoll returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_wait (void *arg)
 | |
| {
 | |
|   pid_t pid = fork ();
 | |
|   if (pid == -1)
 | |
|     {
 | |
|       puts ("fork failed");
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (pid == 0)
 | |
|     {
 | |
|       /* Make the program disappear after a while.  */
 | |
|       if (arg == NULL)
 | |
| 	sleep (10);
 | |
|       exit (0);
 | |
|     }
 | |
| 
 | |
|   int r;
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       struct timespec  ts = { .tv_sec = 0, .tv_nsec = 100000000 };
 | |
|       while (nanosleep (&ts, &ts) != 0)
 | |
| 	continue;
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = wait (NULL);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: wait returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_waitpid (void *arg)
 | |
| {
 | |
| 
 | |
|   pid_t pid = fork ();
 | |
|   if (pid == -1)
 | |
|     {
 | |
|       puts ("fork failed");
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (pid == 0)
 | |
|     {
 | |
|       /* Make the program disappear after a while.  */
 | |
|       if (arg == NULL)
 | |
| 	sleep (10);
 | |
|       exit (0);
 | |
|     }
 | |
| 
 | |
|   int r;
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       struct timespec  ts = { .tv_sec = 0, .tv_nsec = 100000000 };
 | |
|       while (nanosleep (&ts, &ts) != 0)
 | |
| 	continue;
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int s;
 | |
|  pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   s = waitpid (-1, NULL, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: waitpid returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_waitid (void *arg)
 | |
| {
 | |
|   pid_t pid = fork ();
 | |
|   if (pid == -1)
 | |
|     {
 | |
|       puts ("fork failed");
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (pid == 0)
 | |
|     {
 | |
|       /* Make the program disappear after a while.  */
 | |
|       if (arg == NULL)
 | |
| 	sleep (10);
 | |
|       exit (0);
 | |
|     }
 | |
| 
 | |
|   int r;
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       struct timespec  ts = { .tv_sec = 0, .tv_nsec = 100000000 };
 | |
|       while (nanosleep (&ts, &ts) != 0)
 | |
| 	continue;
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int s;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
| #ifndef WEXITED
 | |
| # define WEXITED 0
 | |
| #endif
 | |
|   siginfo_t si;
 | |
|   s = waitid (P_PID, pid, &si, WEXITED);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: waitid returns with %d (%s)\n", __FUNCTION__, s,
 | |
| 	  strerror (errno));
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sigpause (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
| #ifdef SIGCANCEL
 | |
|   /* Just for fun block the cancellation signal.  We need to use
 | |
|      __xpg_sigpause since otherwise we will get the BSD version.  */
 | |
|   __xpg_sigpause (SIGCANCEL);
 | |
| #else
 | |
|   pause ();
 | |
| #endif
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sigpause returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sigsuspend (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   /* Just for fun block all signals.  */
 | |
|   sigset_t mask;
 | |
|   sigfillset (&mask);
 | |
|   sigsuspend (&mask);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sigsuspend returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sigwait (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   /* Block SIGUSR1.  */
 | |
|   sigset_t mask;
 | |
|   sigemptyset (&mask);
 | |
|   sigaddset (&mask, SIGUSR1);
 | |
|   if (pthread_sigmask (SIG_BLOCK, &mask, NULL) != 0)
 | |
|     {
 | |
|       printf ("%s: pthread_sigmask failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int sig;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   /* Wait for SIGUSR1.  */
 | |
|   sigwait (&mask, &sig);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sigwait returned with signal %d\n", __FUNCTION__, sig);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sigwaitinfo (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   /* Block SIGUSR1.  */
 | |
|   sigset_t mask;
 | |
|   sigemptyset (&mask);
 | |
|   sigaddset (&mask, SIGUSR1);
 | |
|   if (pthread_sigmask (SIG_BLOCK, &mask, NULL) != 0)
 | |
|     {
 | |
|       printf ("%s: pthread_sigmask failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   siginfo_t info;
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   /* Wait for SIGUSR1.  */
 | |
|   sigwaitinfo (&mask, &info);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sigwaitinfo returned with signal %d\n", __FUNCTION__,
 | |
| 	  info.si_signo);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sigtimedwait (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   /* Block SIGUSR1.  */
 | |
|   sigset_t mask;
 | |
|   sigemptyset (&mask);
 | |
|   sigaddset (&mask, SIGUSR1);
 | |
|   if (pthread_sigmask (SIG_BLOCK, &mask, NULL) != 0)
 | |
|     {
 | |
|       printf ("%s: pthread_sigmask failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   /* Wait for SIGUSR1.  */
 | |
|   siginfo_t info;
 | |
|   struct timespec ts = { .tv_sec = 60, .tv_nsec = 0 };
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   sigtimedwait (&mask, &info, &ts);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sigtimedwait returned with signal %d\n", __FUNCTION__,
 | |
| 	  info.si_signo);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_pause (void *arg)
 | |
| {
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   pause ();
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: pause returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_accept (void *arg)
 | |
| {
 | |
|   struct sockaddr_un sun;
 | |
|   /* To test a non-blocking accept call we make the call file by using
 | |
|      a datagrame socket.  */
 | |
|   int pf = arg == NULL ? SOCK_STREAM : SOCK_DGRAM;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, pf, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-1-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
| 
 | |
|   unlink (sun.sun_path);
 | |
| 
 | |
|   listen (tempfd, 5);
 | |
| 
 | |
|   socklen_t len = sizeof (sun);
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   accept (tempfd, (struct sockaddr *) &sun, &len);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: accept returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_send (void *arg)
 | |
| {
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-2-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
| 
 | |
|   listen (tempfd, 5);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (connect (tempfd2, (struct sockaddr *) &sun, sizeof (sun)) != 0)
 | |
|     {
 | |
|       printf ("%s: connect failed\n", __FUNCTION__);
 | |
|       exit(1);
 | |
|     }
 | |
| 
 | |
|   unlink (sun.sun_path);
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   /* Very large block, so that the send call blocks.  */
 | |
|   char mem[700000];
 | |
| 
 | |
|   send (tempfd2, mem, arg == NULL ? sizeof (mem) : 1, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: send returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_recv (void *arg)
 | |
| {
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-3-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
| 
 | |
|   listen (tempfd, 5);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (connect (tempfd2, (struct sockaddr *) &sun, sizeof (sun)) != 0)
 | |
|     {
 | |
|       printf ("%s: connect failed\n", __FUNCTION__);
 | |
|       exit(1);
 | |
|     }
 | |
| 
 | |
|   unlink (sun.sun_path);
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[70];
 | |
| 
 | |
|   recv (tempfd2, mem, arg == NULL ? sizeof (mem) : 0, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: recv returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_recvfrom (void *arg)
 | |
| {
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-4-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
| 
 | |
|   tempfname = strdup (sun.sun_path);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[70];
 | |
|   socklen_t len = sizeof (sun);
 | |
| 
 | |
|   recvfrom (tempfd2, mem, arg == NULL ? sizeof (mem) : 0, 0,
 | |
| 	    (struct sockaddr *) &sun, &len);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: recvfrom returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_recvmsg (void *arg)
 | |
| {
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-5-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
| 
 | |
|   tempfname = strdup (sun.sun_path);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[70];
 | |
|   struct iovec iov[1];
 | |
|   iov[0].iov_base = mem;
 | |
|   iov[0].iov_len = arg == NULL ? sizeof (mem) : 0;
 | |
| 
 | |
|   struct msghdr m;
 | |
|   m.msg_name = &sun;
 | |
|   m.msg_namelen = sizeof (sun);
 | |
|   m.msg_iov = iov;
 | |
|   m.msg_iovlen = 1;
 | |
|   m.msg_control = NULL;
 | |
|   m.msg_controllen = 0;
 | |
| 
 | |
|   recvmsg (tempfd2, &m, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: recvmsg returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_open (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which open()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   open ("Makefile", O_RDONLY);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: open returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_close (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which close()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   char fname[] = "/tmp/tst-cancel-fd-XXXXXX";
 | |
|   tempfd = mkstemp (fname);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
|   unlink (fname);
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   close (tempfd);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: close returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_pread (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which pread()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   tempfd = open ("Makefile", O_RDONLY);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: cannot open Makefile\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[10];
 | |
|   pread (tempfd, mem, sizeof (mem), 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: pread returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_pwrite (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which pwrite()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   char fname[] = "/tmp/tst-cancel4-fd-XXXXXX";
 | |
|   tempfd = mkstemp (fname);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: mkstemp failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
|   unlink (fname);
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[10];
 | |
|   pwrite (tempfd, mem, sizeof (mem), 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: pwrite returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_fsync (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which fsync()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   tempfd = open ("Makefile", O_RDONLY);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: cannot open Makefile\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   fsync (tempfd);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: fsync returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_fdatasync (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which fdatasync()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   tempfd = open ("Makefile", O_RDONLY);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: cannot open Makefile\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   fdatasync (tempfd);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: fdatasync returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_msync (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which msync()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   tempfd = open ("Makefile", O_RDONLY);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: cannot open Makefile\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
|   void *p = mmap (NULL, 10, PROT_READ, MAP_SHARED, tempfd, 0);
 | |
|   if (p == MAP_FAILED)
 | |
|     {
 | |
|       printf ("%s: mmap failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   msync (p, 10, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: msync returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sendto (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which sendto()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-6-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
|   tempfname = strdup (sun.sun_path);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[1];
 | |
| 
 | |
|   sendto (tempfd2, mem, arg == NULL ? sizeof (mem) : 1, 0,
 | |
| 	  (struct sockaddr *) &sun,
 | |
| 	  offsetof (struct sockaddr_un, sun_path) + strlen (sun.sun_path) + 1);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sendto returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_sendmsg (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which sendmsg()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-7-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
|   tempfname = strdup (sun.sun_path);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_DGRAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   char mem[1];
 | |
|   struct iovec iov[1];
 | |
|   iov[0].iov_base = mem;
 | |
|   iov[0].iov_len = 1;
 | |
| 
 | |
|   struct msghdr m;
 | |
|   m.msg_name = &sun;
 | |
|   m.msg_namelen = (offsetof (struct sockaddr_un, sun_path)
 | |
| 		   + strlen (sun.sun_path) + 1);
 | |
|   m.msg_iov = iov;
 | |
|   m.msg_iovlen = 1;
 | |
|   m.msg_control = NULL;
 | |
|   m.msg_controllen = 0;
 | |
| 
 | |
|   sendmsg (tempfd2, &m, 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: sendmsg returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_creat (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which sendmsg()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   creat ("tmp/tst-cancel-4-should-not-exist", 0666);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: creat returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_connect (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which connect()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   struct sockaddr_un sun;
 | |
| 
 | |
|   tempfd = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd == -1)
 | |
|     {
 | |
|       printf ("%s: first socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int tries = 0;
 | |
|   do
 | |
|     {
 | |
|       if (++tries > 10)
 | |
| 	{
 | |
| 	  printf ("%s: too many unsuccessful bind calls\n", __FUNCTION__);
 | |
| 	}
 | |
| 
 | |
|       strcpy (sun.sun_path, "/tmp/tst-cancel4-socket-2-XXXXXX");
 | |
|       if (mktemp (sun.sun_path) == NULL)
 | |
| 	{
 | |
| 	  printf ("%s: cannot generate temp file name\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       sun.sun_family = AF_UNIX;
 | |
|     }
 | |
|   while (bind (tempfd, (struct sockaddr *) &sun,
 | |
| 	       offsetof (struct sockaddr_un, sun_path)
 | |
| 	       + strlen (sun.sun_path) + 1) != 0);
 | |
|   tempfname = strdup (sun.sun_path);
 | |
| 
 | |
|   listen (tempfd, 5);
 | |
| 
 | |
|   tempfd2 = socket (AF_UNIX, SOCK_STREAM, 0);
 | |
|   if (tempfd2 == -1)
 | |
|     {
 | |
|       printf ("%s: second socket call failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   connect (tempfd2, (struct sockaddr *) &sun, sizeof (sun));
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: connect returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_tcdrain (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which tcdrain()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   /* Regardless of stderr being a terminal, the tcdrain call should be
 | |
|      canceled.  */
 | |
|   tcdrain (STDERR_FILENO);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: tcdrain returned\n", __FUNCTION__);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_msgrcv (void *arg)
 | |
| {
 | |
|   tempmsg = msgget (IPC_PRIVATE, 0666 | IPC_CREAT);
 | |
|   if (tempmsg == -1)
 | |
|     {
 | |
|       printf ("%s: msgget failed: %s\n", __FUNCTION__, strerror (errno));
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   if (arg != NULL)
 | |
|     {
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
| 	  exit (1);
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   ssize_t s;
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   struct
 | |
|   {
 | |
|     long int type;
 | |
|     char mem[10];
 | |
|   } m;
 | |
|   int randnr;
 | |
|   /* We need a positive random number.  */
 | |
|   do
 | |
|     randnr = random () % 64000;
 | |
|   while (randnr <= 0);
 | |
|   do
 | |
|     {
 | |
|       errno = 0;
 | |
|       s = msgrcv (tempmsg, (struct msgbuf *) &m, 10, randnr, 0);
 | |
|     }
 | |
|   while (errno == EIDRM || errno == EINTR);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: msgrcv returned %zd with errno = %m\n", __FUNCTION__, s);
 | |
| 
 | |
|   msgctl (tempmsg, IPC_RMID, NULL);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static void *
 | |
| tf_msgsnd (void *arg)
 | |
| {
 | |
|   if (arg == NULL)
 | |
|     // XXX If somebody can provide a portable test case in which msgsnd()
 | |
|     // blocks we can enable this test to run in both rounds.
 | |
|     abort ();
 | |
| 
 | |
|   tempmsg = msgget (IPC_PRIVATE, 0666 | IPC_CREAT);
 | |
|   if (tempmsg == -1)
 | |
|     {
 | |
|       printf ("%s: msgget failed: %s\n", __FUNCTION__, strerror (errno));
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   int r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   r = pthread_barrier_wait (&b2);
 | |
|   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
|     {
 | |
|       printf ("%s: 2nd barrier_wait failed\n", __FUNCTION__);
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   pthread_cleanup_push (cl, NULL);
 | |
| 
 | |
|   struct
 | |
|   {
 | |
|     long int type;
 | |
|     char mem[1];
 | |
|   } m;
 | |
|   /* We need a positive random number.  */
 | |
|   do
 | |
|     m.type = random () % 64000;
 | |
|   while (m.type <= 0);
 | |
|   msgsnd (tempmsg, (struct msgbuf *) &m, sizeof (m.mem), 0);
 | |
| 
 | |
|   pthread_cleanup_pop (0);
 | |
| 
 | |
|   printf ("%s: msgsnd returned\n", __FUNCTION__);
 | |
| 
 | |
|   msgctl (tempmsg, IPC_RMID, NULL);
 | |
| 
 | |
|   exit (1);
 | |
| }
 | |
| 
 | |
| 
 | |
| static struct
 | |
| {
 | |
|   const char *name;
 | |
|   void *(*tf) (void *);
 | |
|   int nb;
 | |
|   int only_early;
 | |
| } tests[] =
 | |
| {
 | |
| #define ADD_TEST(name, nbar, early) { #name, tf_##name, nbar, early }
 | |
|   ADD_TEST (read, 2, 0),
 | |
|   ADD_TEST (readv, 2, 0),
 | |
|   ADD_TEST (select, 2, 0),
 | |
|   ADD_TEST (pselect, 2, 0),
 | |
|   ADD_TEST (poll, 2, 0),
 | |
|   ADD_TEST (ppoll, 2, 0),
 | |
|   ADD_TEST (write, 2, 0),
 | |
|   ADD_TEST (writev, 2, 0),
 | |
|   ADD_TEST (sleep, 2, 0),
 | |
|   ADD_TEST (usleep, 2, 0),
 | |
|   ADD_TEST (nanosleep, 2, 0),
 | |
|   ADD_TEST (wait, 2, 0),
 | |
|   ADD_TEST (waitid, 2, 0),
 | |
|   ADD_TEST (waitpid, 2, 0),
 | |
|   ADD_TEST (sigpause, 2, 0),
 | |
|   ADD_TEST (sigsuspend, 2, 0),
 | |
|   ADD_TEST (sigwait, 2, 0),
 | |
|   ADD_TEST (sigwaitinfo, 2, 0),
 | |
|   ADD_TEST (sigtimedwait, 2, 0),
 | |
|   ADD_TEST (pause, 2, 0),
 | |
|   ADD_TEST (accept, 2, 0),
 | |
|   ADD_TEST (send, 2, 0),
 | |
|   ADD_TEST (recv, 2, 0),
 | |
|   ADD_TEST (recvfrom, 2, 0),
 | |
|   ADD_TEST (recvmsg, 2, 0),
 | |
|   ADD_TEST (open, 2, 1),
 | |
|   ADD_TEST (close, 2, 1),
 | |
|   ADD_TEST (pread, 2, 1),
 | |
|   ADD_TEST (pwrite, 2, 1),
 | |
|   ADD_TEST (fsync, 2, 1),
 | |
|   ADD_TEST (fdatasync, 2, 1),
 | |
|   ADD_TEST (msync, 2, 1),
 | |
|   ADD_TEST (sendto, 2, 1),
 | |
|   ADD_TEST (sendmsg, 2, 1),
 | |
|   ADD_TEST (creat, 2, 1),
 | |
|   ADD_TEST (connect, 2, 1),
 | |
|   ADD_TEST (tcdrain, 2, 1),
 | |
|   ADD_TEST (msgrcv, 2, 0),
 | |
|   ADD_TEST (msgsnd, 2, 1),
 | |
| };
 | |
| #define ntest_tf (sizeof (tests) / sizeof (tests[0]))
 | |
| 
 | |
| 
 | |
| static int
 | |
| do_test (void)
 | |
| {
 | |
|   int val;
 | |
|   socklen_t len;
 | |
| 
 | |
|   if (socketpair (AF_UNIX, SOCK_STREAM, PF_UNIX, fds) != 0)
 | |
|     {
 | |
|       perror ("socketpair");
 | |
|       exit (1);
 | |
|     }
 | |
| 
 | |
|   val = 1;
 | |
|   len = sizeof(val);
 | |
|   setsockopt (fds[1], SOL_SOCKET, SO_SNDBUF, &val, sizeof(val));
 | |
|   if (getsockopt (fds[1], SOL_SOCKET, SO_SNDBUF, &val, &len) < 0)
 | |
|     {
 | |
|       perror ("getsockopt");
 | |
|       exit (1);
 | |
|     }
 | |
|   if (val >= WRITE_BUFFER_SIZE)
 | |
|     {
 | |
|       puts ("minimum write buffer size too large");
 | |
|       exit (1);
 | |
|     }
 | |
|   setsockopt (fds[1], SOL_SOCKET, SO_SNDBUF, &val, sizeof(val));
 | |
| 
 | |
|   int result = 0;
 | |
|   size_t cnt;
 | |
|   for (cnt = 0; cnt < ntest_tf; ++cnt)
 | |
|     {
 | |
|       if (tests[cnt].only_early)
 | |
| 	continue;
 | |
| 
 | |
|       if (pthread_barrier_init (&b2, NULL, tests[cnt].nb) != 0)
 | |
| 	{
 | |
| 	  puts ("b2 init failed");
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       /* Reset the counter for the cleanup handler.  */
 | |
|       cl_called = 0;
 | |
| 
 | |
|       pthread_t th;
 | |
|       if (pthread_create (&th, NULL, tests[cnt].tf, NULL) != 0)
 | |
| 	{
 | |
| 	  printf ("create for '%s' test failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       int r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       struct timespec  ts = { .tv_sec = 0, .tv_nsec = 100000000 };
 | |
|       while (nanosleep (&ts, &ts) != 0)
 | |
| 	continue;
 | |
| 
 | |
|       if (pthread_cancel (th) != 0)
 | |
| 	{
 | |
| 	  printf ("cancel for '%s' failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       void *status;
 | |
|       if (pthread_join (th, &status) != 0)
 | |
| 	{
 | |
| 	  printf ("join for '%s' failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
|       if (status != PTHREAD_CANCELED)
 | |
| 	{
 | |
| 	  printf ("thread for '%s' not canceled\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       if (pthread_barrier_destroy (&b2) != 0)
 | |
| 	{
 | |
| 	  puts ("barrier_destroy failed");
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       if (cl_called == 0)
 | |
| 	{
 | |
| 	  printf ("cleanup handler not called for '%s'\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
|       if (cl_called > 1)
 | |
| 	{
 | |
| 	  printf ("cleanup handler called more than once for '%s'\n",
 | |
| 		  tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       printf ("in-time cancel test of '%s' successful\n", tests[cnt].name);
 | |
| 
 | |
|       if (tempfd != -1)
 | |
| 	{
 | |
| 	  close (tempfd);
 | |
| 	  tempfd = -1;
 | |
| 	}
 | |
|       if (tempfd2 != -1)
 | |
| 	{
 | |
| 	  close (tempfd2);
 | |
| 	  tempfd2 = -1;
 | |
| 	}
 | |
|       if (tempfname != NULL)
 | |
| 	{
 | |
| 	  unlink (tempfname);
 | |
| 	  free (tempfname);
 | |
| 	  tempfname = NULL;
 | |
| 	}
 | |
|       if (tempmsg != -1)
 | |
| 	{
 | |
| 	  msgctl (tempmsg, IPC_RMID, NULL);
 | |
| 	  tempmsg = -1;
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   for (cnt = 0; cnt < ntest_tf; ++cnt)
 | |
|     {
 | |
|       if (pthread_barrier_init (&b2, NULL, tests[cnt].nb) != 0)
 | |
| 	{
 | |
| 	  puts ("b2 init failed");
 | |
| 	  exit (1);
 | |
| 	}
 | |
| 
 | |
|       /* Reset the counter for the cleanup handler.  */
 | |
|       cl_called = 0;
 | |
| 
 | |
|       pthread_t th;
 | |
|       if (pthread_create (&th, NULL, tests[cnt].tf, (void *) 1l) != 0)
 | |
| 	{
 | |
| 	  printf ("create for '%s' test failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       int r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       if (pthread_cancel (th) != 0)
 | |
| 	{
 | |
| 	  printf ("cancel for '%s' failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       r = pthread_barrier_wait (&b2);
 | |
|       if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 | |
| 	{
 | |
| 	  printf ("%s: barrier_wait failed\n", __FUNCTION__);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       void *status;
 | |
|       if (pthread_join (th, &status) != 0)
 | |
| 	{
 | |
| 	  printf ("join for '%s' failed\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
|       if (status != PTHREAD_CANCELED)
 | |
| 	{
 | |
| 	  printf ("thread for '%s' not canceled\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       if (pthread_barrier_destroy (&b2) != 0)
 | |
| 	{
 | |
| 	  puts ("barrier_destroy failed");
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       if (cl_called == 0)
 | |
| 	{
 | |
| 	  printf ("cleanup handler not called for '%s'\n", tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
|       if (cl_called > 1)
 | |
| 	{
 | |
| 	  printf ("cleanup handler called more than once for '%s'\n",
 | |
| 		  tests[cnt].name);
 | |
| 	  result = 1;
 | |
| 	  continue;
 | |
| 	}
 | |
| 
 | |
|       printf ("early cancel test of '%s' successful\n", tests[cnt].name);
 | |
| 
 | |
|       if (tempfd != -1)
 | |
| 	{
 | |
| 	  close (tempfd);
 | |
| 	  tempfd = -1;
 | |
| 	}
 | |
|       if (tempfd2 != -1)
 | |
| 	{
 | |
| 	  close (tempfd2);
 | |
| 	  tempfd2 = -1;
 | |
| 	}
 | |
|       if (tempfname != NULL)
 | |
| 	{
 | |
| 	  unlink (tempfname);
 | |
| 	  free (tempfname);
 | |
| 	  tempfname = NULL;
 | |
| 	}
 | |
|       if (tempmsg != -1)
 | |
| 	{
 | |
| 	  msgctl (tempmsg, IPC_RMID, NULL);
 | |
| 	  tempmsg = -1;
 | |
| 	}
 | |
|     }
 | |
| 
 | |
|   return result;
 | |
| }
 | |
| 
 | |
| #define TIMEOUT 60
 | |
| #define TEST_FUNCTION do_test ()
 | |
| #include "../test-skeleton.c"
 |