1/* Copyright (C) 2005 Imendio AB
2 *
3 * This software is provided "as is"; redistribution and modification
4 * is permitted, provided that the following disclaimer is retained.
5 *
6 * This software is distributed in the hope that it will be useful,
7 * but WITHOUT ANY WARRANTY; without even the implied warranty of
8 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
9 * In no event shall the authors or contributors be liable for any
10 * direct, indirect, incidental, special, exemplary, or consequential
11 * damages (including, but not limited to, procurement of substitute
12 * goods or services; loss of use, data, or profits; or business
13 * interruption) however caused and on any theory of liability, whether
14 * in contract, strict liability, or tort (including negligence or
15 * otherwise) arising in any way out of the use of this software, even
16 * if advised of the possibility of such damage.
17 */
18#include <glib-object.h>
19#include <unistd.h>
20
21#define TEST_POINTER1   ((gpointer) 47)
22#define TEST_POINTER2   ((gpointer) 49)
23#define TEST_INT1       (-77)
24#define TEST_INT2       (78)
25
26/* --- GTest class --- */
27typedef struct {
28  GObject object;
29  gint value;
30  gpointer test_pointer1;
31  gpointer test_pointer2;
32} GTest;
33typedef struct {
34  GObjectClass parent_class;
35  void (*test_signal1) (GTest * test, gint an_int);
36  void (*test_signal2) (GTest * test, gint an_int);
37} GTestClass;
38
39#define G_TYPE_TEST                (my_test_get_type ())
40#define MY_TEST(test)              (G_TYPE_CHECK_INSTANCE_CAST ((test), G_TYPE_TEST, GTest))
41#define MY_IS_TEST(test)           (G_TYPE_CHECK_INSTANCE_TYPE ((test), G_TYPE_TEST))
42#define MY_TEST_CLASS(tclass)      (G_TYPE_CHECK_CLASS_CAST ((tclass), G_TYPE_TEST, GTestClass))
43#define MY_IS_TEST_CLASS(tclass)   (G_TYPE_CHECK_CLASS_TYPE ((tclass), G_TYPE_TEST))
44#define MY_TEST_GET_CLASS(test)    (G_TYPE_INSTANCE_GET_CLASS ((test), G_TYPE_TEST, GTestClass))
45
46G_DEFINE_TYPE (GTest, my_test, G_TYPE_OBJECT);
47
48/* --- variables --- */
49static volatile gboolean stopping = FALSE;
50static guint             test_signal1 = 0;
51static guint             test_signal2 = 0;
52static gboolean          seen_signal_handler = FALSE;
53static gboolean          seen_cleanup = FALSE;
54static gboolean          seen_test_int1 = FALSE;
55static gboolean          seen_test_int2 = FALSE;
56static gboolean          seen_thread1 = FALSE;
57static gboolean          seen_thread2 = FALSE;
58
59/* --- functions --- */
60static void
61my_test_init (GTest * test)
62{
63  g_print ("init %p\n", test);
64
65  test->value = 0;
66  test->test_pointer1 = TEST_POINTER1;
67  test->test_pointer2 = TEST_POINTER2;
68}
69
70enum {
71  ARG_0,
72  ARG_TEST_PROP
73};
74
75static void
76my_test_set_property (GObject      *object,
77                     guint         prop_id,
78                     const GValue *value,
79                     GParamSpec   *pspec)
80{
81  GTest *test = MY_TEST (object);
82  switch (prop_id)
83    {
84    case ARG_TEST_PROP:
85      test->value = g_value_get_int (value);
86      break;
87    default:
88      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
89      break;
90    }
91}
92
93static void
94my_test_get_property (GObject    *object,
95                     guint       prop_id,
96                     GValue     *value,
97                     GParamSpec *pspec)
98{
99  GTest *test = MY_TEST (object);
100  switch (prop_id)
101    {
102    case ARG_TEST_PROP:
103      g_value_set_int (value, test->value);
104      break;
105    default:
106      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
107      break;
108    }
109}
110
111static void
112my_test_test_signal2 (GTest *test,
113                      gint   an_int)
114{
115}
116
117static void
118my_test_emit_test_signal1 (GTest *test,
119                           gint   vint)
120{
121  g_signal_emit (G_OBJECT (test), test_signal1, 0, vint);
122}
123
124static void
125my_test_emit_test_signal2 (GTest *test,
126                           gint   vint)
127{
128  g_signal_emit (G_OBJECT (test), test_signal2, 0, vint);
129}
130
131static void
132my_test_class_init (GTestClass *klass)
133{
134  GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
135
136  gobject_class->set_property = my_test_set_property;
137  gobject_class->get_property = my_test_get_property;
138
139  test_signal1 = g_signal_new ("test-signal1", G_TYPE_FROM_CLASS (klass), G_SIGNAL_RUN_LAST,
140                               G_STRUCT_OFFSET (GTestClass, test_signal1), NULL, NULL,
141                               g_cclosure_marshal_VOID__INT, G_TYPE_NONE, 1, G_TYPE_INT);
142  test_signal2 = g_signal_new ("test-signal2", G_TYPE_FROM_CLASS (klass), G_SIGNAL_RUN_LAST,
143                               G_STRUCT_OFFSET (GTestClass, test_signal2), NULL, NULL,
144                               g_cclosure_marshal_VOID__INT, G_TYPE_NONE, 1, G_TYPE_INT);
145
146  g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_TEST_PROP,
147                                   g_param_spec_int ("test-prop", "Test Prop", "Test property",
148                                                     0, 1, 0, G_PARAM_READWRITE));
149  klass->test_signal2 = my_test_test_signal2;
150}
151
152static inline guint32
153quick_rand32 (void)
154{
155  static guint32 accu = 2147483563;
156  accu = 1664525 * accu + 1013904223;
157  return accu;
158}
159
160static void
161test_closure (GClosure *closure)
162{
163  /* try to produce high contention in closure->ref_count */
164  guint i = 0, n = quick_rand32() % 199;
165  for (i = 0; i < n; i++)
166    g_closure_ref (closure);
167  g_closure_sink (closure); /* NOP */
168  for (i = 0; i < n; i++)
169    g_closure_unref (closure);
170}
171
172static gpointer
173thread1_main (gpointer data)
174{
175  GClosure *closure = data;
176  while (!stopping)
177    {
178      static guint count = 0;
179      test_closure (closure);
180      if (++count % 10000 == 0)
181        {
182          g_printerr ("c");
183          g_thread_yield(); /* force context switch */
184          seen_thread1 = TRUE;
185        }
186    }
187  return NULL;
188}
189
190static gpointer
191thread2_main (gpointer data)
192{
193  GClosure *closure = data;
194  while (!stopping)
195    {
196      static guint count = 0;
197      test_closure (closure);
198      if (++count % 10000 == 0)
199        {
200          g_printerr ("C");
201          g_thread_yield(); /* force context switch */
202          seen_thread2 = TRUE;
203        }
204    }
205  return NULL;
206}
207
208static void
209test_signal_handler (GTest   *test,
210                     gint     vint,
211                     gpointer data)
212{
213  g_assert (data == TEST_POINTER2);
214  g_assert (test->test_pointer1 == TEST_POINTER1);
215  seen_signal_handler = TRUE;
216  seen_test_int1 |= vint == TEST_INT1;
217  seen_test_int2 |= vint == TEST_INT2;
218}
219
220static void
221destroy_data (gpointer  data,
222              GClosure *closure)
223{
224  seen_cleanup = data == TEST_POINTER2;
225  g_assert (closure->ref_count == 0);
226}
227
228static void
229test_emissions (GTest *test)
230{
231  my_test_emit_test_signal1 (test, TEST_INT1);
232  my_test_emit_test_signal2 (test, TEST_INT2);
233}
234
235int
236main (int    argc,
237      char **argv)
238{
239  GThread *thread1, *thread2;
240  GClosure *closure;
241  GTest *object;
242  guint i;
243
244  g_thread_init (NULL);
245  g_print ("START: %s\n", argv[0]);
246  g_log_set_always_fatal (G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL | g_log_set_always_fatal (G_LOG_FATAL_MASK));
247  g_type_init ();
248
249  object = g_object_new (G_TYPE_TEST, NULL);
250  closure = g_cclosure_new (G_CALLBACK (test_signal_handler), TEST_POINTER2, destroy_data);
251
252  g_signal_connect_closure (object, "test-signal1", closure, FALSE);
253  g_signal_connect_closure (object, "test-signal2", closure, FALSE);
254
255  stopping = FALSE;
256
257  thread1 = g_thread_create (thread1_main, closure, TRUE, NULL);
258  thread2 = g_thread_create (thread2_main, closure, TRUE, NULL);
259
260  for (i = 0; i < 1000000; i++)
261    {
262      static guint count = 0;
263      test_emissions (object);
264      if (++count % 10000 == 0)
265        {
266          g_printerr (".\n");
267          g_thread_yield(); /* force context switch */
268        }
269    }
270
271  stopping = TRUE;
272  g_print ("\nstopping\n");
273
274  /* wait for thread shutdown */
275  g_thread_join (thread1);
276  g_thread_join (thread2);
277
278  /* finalize object, destroy signals, run cleanup code */
279  g_object_unref (object);
280
281  g_print ("stopped\n");
282
283  g_assert (seen_thread1 != FALSE);
284  g_assert (seen_thread2 != FALSE);
285  g_assert (seen_test_int1 != FALSE);
286  g_assert (seen_test_int2 != FALSE);
287  g_assert (seen_signal_handler != FALSE);
288  g_assert (seen_cleanup != FALSE);
289
290  return 0;
291}
292