l4/pkg/uclibc/lib/contrib/uclibc/test/nptl/tst-key3.c

   1 /* Copyright (C) 2002 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, write to the Free
  17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  18    02111-1307 USA.  */
  19
  20 #include <pthread.h>
  21 #include <stdio.h>
  22 #include <unistd.h>
  23
  24 #define N 2
  25
  26
  27 static int cnt0;
  28 static void
  29 f0 (void *p)
  30 {
  31   ++cnt0;
  32 }
  33
  34
  35 static int cnt1;
  36 static void
  37 f1 (void *p)
  38 {
  39   ++cnt1;
  40 }
  41
  42
  43 static void (*fcts[N]) (void *) =
  44 {
  45   f0,
  46   f1
  47 };
  48
  49
  50 static pthread_barrier_t b;
  51
  52
  53 static void *
  54 tf (void *arg)
  55 {
  56   pthread_key_t *key = (pthread_key_t *) arg;
  57
  58   if (pthread_setspecific (*key, (void *) -1l) != 0)
  59     {
  60       write (2, "setspecific failed\n", 19);
  61       _exit (1);
  62     }
  63
  64   pthread_barrier_wait (&b);
  65
  66   const struct timespec t = { .tv_sec = 1000, .tv_nsec = 0 };
  67   while (1)
  68     nanosleep (&t, NULL);
  69
  70   /* NOTREACHED */
  71   return NULL;
  72 }
  73
  74
  75 int
  76 do_test (void)
  77 {
  78   pthread_key_t keys[N];
  79
  80   int i;
  81   for (i = 0; i < N; ++i)
  82     if (pthread_key_create (&keys[i], fcts[i]) != 0)
  83       {
  84         write (2, "key_create failed\n", 18);
  85         _exit (1);
  86       }
  87
  88   if (pthread_barrier_init (&b, NULL, 2) != 0)
  89     {
  90       write (2, "barrier_init failed\n", 20);
  91       _exit (1);
  92     }
  93
  94   pthread_t th;
  95   if (pthread_create (&th, NULL, tf, &keys[1]) != 0)
  96     {
  97       write (2, "create failed\n", 14);
  98       _exit (1);
  99     }
 100
 101   pthread_barrier_wait (&b);
 102
 103   if (pthread_cancel (th) != 0)
 104     {
 105       write (2, "cancel failed\n", 14);
 106       _exit (1);
 107     }
 108
 109   void *status;
 110   if (pthread_join (th, &status) != 0)
 111     {
 112       write (2, "join failed\n", 12);
 113       _exit (1);
 114     }
 115
 116   if (status != PTHREAD_CANCELED)
 117     {
 118       write (2, "thread not canceled\n", 20);
 119       _exit (1);
 120     }
 121
 122   /* Note that the TSD destructors not necessarily have to have
 123      finished by the time pthread_join returns.  At least according to
 124      POSIX.  We implement the stronger requirement that they indeed
 125      have run and therefore these tests succeed.  */
 126   if (cnt0 != 0)
 127     {
 128       write (2, "cnt0 != 0\n", 10);
 129       _exit (1);
 130     }
 131
 132   if (cnt1 != 1)
 133     {
 134       write (2, "cnt1 != 1\n", 10);
 135       _exit (1);
 136     }
 137
 138   for (i = 0; i < N; ++i)
 139     if (pthread_key_delete (keys[i]) != 0)
 140       {
 141         write (2, "key_delete failed\n", 18);
 142         _exit (1);
 143       }
 144
 145   if (pthread_barrier_destroy (&b) != 0)
 146     {
 147       write (2, "barrier_destroy failed\n", 23);
 148       _exit (1);
 149     }
 150
 151   return 0;
 152 }
 153
 154
 155 #define TEST_FUNCTION do_test ()
 156 #include "../test-skeleton.c"