nptl/tst-mutex5.c

   1 /* Copyright (C) 2002-2014 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3    Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <errno.h>
  20 #include <pthread.h>
  21 #include <stdio.h>
  22 #include <time.h>
  23 #include <unistd.h>
  24 #include <sys/time.h>
  25 #include <config.h>
  26
  27
  28 #ifndef TYPE
  29 # define TYPE PTHREAD_MUTEX_NORMAL
  30 #endif
  31
  32
  33 static int
  34 do_test (void)
  35 {
  36   pthread_mutex_t m;
  37   struct timespec ts;
  38   struct timeval tv;
  39   struct timeval tv2;
  40   int err;
  41   pthread_mutexattr_t a;
  42
  43   if (pthread_mutexattr_init (&a) != 0)
  44     {
  45       puts ("mutexattr_init failed");
  46       return 1;
  47     }
  48
  49   if (pthread_mutexattr_settype (&a, TYPE) != 0)
  50     {
  51       puts ("mutexattr_settype failed");
  52       return 1;
  53     }
  54
  55 #ifdef ENABLE_PI
  56   if (pthread_mutexattr_setprotocol (&a, PTHREAD_PRIO_INHERIT) != 0)
  57     {
  58       puts ("pthread_mutexattr_setprotocol failed");
  59       return 1;
  60     }
  61 #endif
  62
  63   err = pthread_mutex_init (&m, &a);
  64   if (err != 0)
  65     {
  66 #ifdef ENABLE_PI
  67       if (err == ENOTSUP)
  68         {
  69           puts ("PI mutexes unsupported");
  70           return 0;
  71         }
  72 #endif
  73       puts ("mutex_init failed");
  74       return 1;
  75     }
  76
  77   if (pthread_mutexattr_destroy (&a) != 0)
  78     {
  79       puts ("mutexattr_destroy failed");
  80       return 1;
  81     }
  82
  83   if (pthread_mutex_lock (&m) != 0)
  84     {
  85       puts ("mutex_lock failed");
  86       return 1;
  87     }
  88
  89   /* Elided locks do not time out.  */
  90 #ifdef ENABLE_LOCK_ELISION
  91   if (pthread_mutex_trylock (&m) == 0)
  92     {
  93       puts ("mutex_trylock succeeded");
  94       return 1;
  95     }
  96
  97   gettimeofday (&tv, NULL);
  98   TIMEVAL_TO_TIMESPEC (&tv, &ts);
  99
 100   ts.tv_sec += 2;       /* Wait 2 seconds.  */
 101
 102   err = pthread_mutex_timedlock (&m, &ts);
 103   if (err == 0)
 104     {
 105       puts ("timedlock succeeded");
 106       return 1;
 107     }
 108   else if (err != ETIMEDOUT)
 109     {
 110       printf ("timedlock error != ETIMEDOUT: %d\n", err);
 111       return 1;
 112     }
 113   else
 114     {
 115       int clk_tck = sysconf (_SC_CLK_TCK);
 116
 117       gettimeofday (&tv2, NULL);
 118
 119       tv2.tv_sec -= tv.tv_sec;
 120       tv2.tv_usec -= tv.tv_usec;
 121       if (tv2.tv_usec < 0)
 122         {
 123           tv2.tv_usec += 1000000;
 124           tv2.tv_sec -= 1;
 125         }
 126
 127       /* Be a bit tolerant, add one CLK_TCK.  */
 128       tv2.tv_usec += 1000000 / clk_tck;
 129       if (tv2.tv_usec >= 1000000)
 130         {
 131           tv2.tv_usec -= 1000000;
 132           ++tv2.tv_sec;
 133         }
 134
 135       if (tv2.tv_sec < 2)
 136         {
 137           printf ("premature timeout: %ld.%06ld difference\n",
 138                   tv2.tv_sec, tv2.tv_usec);
 139           return 1;
 140         }
 141     }
 142
 143   (void) gettimeofday (&tv, NULL);
 144   TIMEVAL_TO_TIMESPEC (&tv, &ts);
 145
 146   ts.tv_sec += 2;       /* Wait 2 seconds.  */
 147   /* The following makes the ts value invalid.  */
 148   ts.tv_nsec += 1000000000;
 149
 150   err = pthread_mutex_timedlock (&m, &ts);
 151   if (err == 0)
 152     {
 153       puts ("2nd timedlock succeeded");
 154       return 1;
 155     }
 156   else if (err != EINVAL)
 157     {
 158       printf ("2nd timedlock error != EINVAL: %d\n", err);
 159       return 1;
 160     }
 161
 162   if (pthread_mutex_unlock (&m) != 0)
 163     {
 164       puts ("mutex_unlock failed");
 165       return 1;
 166     }
 167
 168   (void) gettimeofday (&tv, NULL);
 169   TIMEVAL_TO_TIMESPEC (&tv, &ts);
 170
 171   ts.tv_sec += 2;       /* Wait 2 seconds.  */
 172   if (pthread_mutex_timedlock (&m, &ts) != 0)
 173     {
 174       puts ("3rd timedlock failed");
 175     }
 176
 177   (void) gettimeofday (&tv2, NULL);
 178
 179   /* Check that timedlock didn't delay.  We use a limit of 0.1 secs.  */
 180   timersub (&tv2, &tv, &tv2);
 181   if (tv2.tv_sec > 0 || tv2.tv_usec > 100000)
 182     {
 183       puts ("3rd timedlock didn't return right away");
 184       return 1;
 185     }
 186 #endif
 187
 188   if (pthread_mutex_unlock (&m) != 0)
 189     {
 190       puts ("final mutex_unlock failed");
 191       return 1;
 192     }
 193
 194   if (pthread_mutex_destroy (&m) != 0)
 195     {
 196       puts ("mutex_destroy failed");
 197       return 1;
 198     }
 199
 200   return 0;
 201 }
 202
 203 #define TIMEOUT 4
 204 #define TEST_FUNCTION do_test ()
 205 #include "../test-skeleton.c"