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 --- */
27 typedef struct {
28 GObject object;
29 gint value;
30 gpointer test_pointer1;
31 gpointer test_pointer2;
32 } GTest;
33 typedef 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
46 G_DEFINE_TYPE (GTest, my_test, G_TYPE_OBJECT);
47
48 /* --- variables --- */
49 static volatile gboolean stopping = FALSE;
50 static guint test_signal1 = 0;
51 static guint test_signal2 = 0;
52 static gboolean seen_signal_handler = FALSE;
53 static gboolean seen_cleanup = FALSE;
54 static gboolean seen_test_int1 = FALSE;
55 static gboolean seen_test_int2 = FALSE;
56 static gboolean seen_thread1 = FALSE;
57 static gboolean seen_thread2 = FALSE;
58
59 /* --- functions --- */
60 static void
my_test_init(GTest * test)61 my_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
70 enum {
71 ARG_0,
72 ARG_TEST_PROP
73 };
74
75 static void
my_test_set_property(GObject * object,guint prop_id,const GValue * value,GParamSpec * pspec)76 my_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
93 static void
my_test_get_property(GObject * object,guint prop_id,GValue * value,GParamSpec * pspec)94 my_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
111 static void
my_test_test_signal2(GTest * test,gint an_int)112 my_test_test_signal2 (GTest *test,
113 gint an_int)
114 {
115 }
116
117 static void
my_test_emit_test_signal1(GTest * test,gint vint)118 my_test_emit_test_signal1 (GTest *test,
119 gint vint)
120 {
121 g_signal_emit (G_OBJECT (test), test_signal1, 0, vint);
122 }
123
124 static void
my_test_emit_test_signal2(GTest * test,gint vint)125 my_test_emit_test_signal2 (GTest *test,
126 gint vint)
127 {
128 g_signal_emit (G_OBJECT (test), test_signal2, 0, vint);
129 }
130
131 static void
my_test_class_init(GTestClass * klass)132 my_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
152 static inline guint32
quick_rand32(void)153 quick_rand32 (void)
154 {
155 static guint32 accu = 2147483563;
156 accu = 1664525 * accu + 1013904223;
157 return accu;
158 }
159
160 static void
test_closure(GClosure * closure)161 test_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
172 static gpointer
thread1_main(gpointer data)173 thread1_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
190 static gpointer
thread2_main(gpointer data)191 thread2_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
208 static void
test_signal_handler(GTest * test,gint vint,gpointer data)209 test_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
220 static void
destroy_data(gpointer data,GClosure * closure)221 destroy_data (gpointer data,
222 GClosure *closure)
223 {
224 seen_cleanup = data == TEST_POINTER2;
225 g_assert (closure->ref_count == 0);
226 }
227
228 static void
test_emissions(GTest * test)229 test_emissions (GTest *test)
230 {
231 my_test_emit_test_signal1 (test, TEST_INT1);
232 my_test_emit_test_signal2 (test, TEST_INT2);
233 }
234
235 int
main(int argc,char ** argv)236 main (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