Initial revision
[kopensolaris-gnu/glibc.git] / nptl / tst-cancel1.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 <stdlib.h>
23 #include <string.h>
24
25
26 static pthread_mutex_t m1 = PTHREAD_MUTEX_INITIALIZER;
27 static pthread_mutex_t m2 = PTHREAD_MUTEX_INITIALIZER;
28
29 static int cntr;
30
31
32 static void
33 cleanup (void *arg)
34 {
35   if (arg != (void *) 42l)
36     cntr = 42;
37   else
38     cntr = 1;
39 }
40
41
42 static void *
43 tf (void *arg)
44 {
45   int err;
46
47   pthread_cleanup_push (cleanup, (void *) 42l);
48
49   err = pthread_setcanceltype (PTHREAD_CANCEL_ASYNCHRONOUS, NULL);
50   if (err != 0)
51     {
52       printf ("setcanceltype failed: %s\n", strerror (err));
53       exit (1);
54     }
55
56   err = pthread_mutex_unlock (&m2);
57   if (err != 0)
58     {
59       printf ("child: mutex_unlock failed: %s\n", strerror (err));
60       exit (1);
61     }
62
63   err = pthread_mutex_lock (&m1);
64   if (err != 0)
65     {
66       printf ("child: 1st mutex_lock failed: %s\n", strerror (err));
67       exit (1);
68     }
69
70   /* We should never come here.  */
71
72   pthread_cleanup_pop (0);
73
74   return NULL;
75 }
76
77
78 static int
79 do_test (void)
80 {
81   int err;
82   pthread_t th;
83   int result = 0;
84   void *retval;
85
86   /* Get the mutexes.  */
87   err = pthread_mutex_lock (&m1);
88   if (err != 0)
89     {
90       printf ("parent: 1st mutex_lock failed: %s\n", strerror (err));
91       return 1;
92     }
93   err = pthread_mutex_lock (&m2);
94   if (err != 0)
95     {
96       printf ("parent: 2nd mutex_lock failed: %s\n", strerror (err));
97       return 1;
98     }
99
100   err = pthread_create (&th, NULL, tf, NULL);
101   if (err != 0)
102     {
103       printf ("create failed: %s\n", strerror (err));
104       return 1;
105     }
106
107   err = pthread_mutex_lock (&m2);
108   if (err != 0)
109     {
110       printf ("parent: 3rd mutex_lock failed: %s\n", strerror (err));
111       return 1;
112     }
113
114   err = pthread_cancel (th);
115   if (err != 0)
116     {
117       printf ("cancel failed: %s\n", strerror (err));
118       return 1;
119     }
120
121   err = pthread_join (th, &retval);
122   if (err != 0)
123     {
124       printf ("join failed: %s\n", strerror (err));
125       return 1;
126     }
127
128   if (retval != PTHREAD_CANCELED)
129     {
130       printf ("wrong return value: %p\n", retval);
131       result = 1;
132     }
133
134   if (cntr == 42)
135     {
136       puts ("cleanup handler called with wrong argument");
137       result = 1;
138     }
139   else if (cntr != 1)
140     {
141       puts ("cleanup handling not called");
142       result = 1;
143     }
144
145   return result;
146 }
147
148
149 #define TEST_FUNCTION do_test ()
150 #include "../test-skeleton.c"