| /* GStreamer |
| * |
| * unit test for GstObject |
| * |
| * Copyright (C) <2004> Thomas Vander Stichele <thomas at apestaart dot org> |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Library General Public |
| * License as published by the Free Software Foundation; either |
| * version 2 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Library General Public License for more details. |
| * |
| * You should have received a copy of the GNU Library General Public |
| * License along with this library; if not, write to the |
| * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, |
| * Boston, MA 02110-1301, USA. |
| */ |
| |
| #ifdef HAVE_CONFIG_H |
| #include "config.h" |
| #endif |
| |
| #include <gst/check/gstcheck.h> |
| |
| /* |
| Create a fake subclass |
| */ |
| typedef struct _GstFakeObjectClass GstFakeObjectClass; |
| typedef struct _GstFakeObject GstFakeObject; |
| |
| struct _GstFakeObject |
| { |
| GstObject object; |
| }; |
| |
| struct _GstFakeObjectClass |
| { |
| GstObjectClass parent_class; |
| }; |
| |
| //static GstObjectClass *parent_class = NULL; |
| //static guint gst_fake_object_signals[LAST_SIGNAL] = { 0 }; |
| |
| static GType |
| gst_fake_object_get_type (void) |
| { |
| static volatile gsize fake_object_type = 0; |
| |
| if (g_once_init_enter (&fake_object_type)) { |
| GType type; |
| static const GTypeInfo fake_object_info = { |
| sizeof (GstFakeObjectClass), |
| NULL, //gst_fake_object_base_class_init, |
| NULL, //gst_fake_object_base_class_finalize, |
| NULL, //(GClassInitFunc) gst_fake_object_class_init, |
| NULL, |
| NULL, |
| sizeof (GstFakeObject), |
| 0, |
| NULL, //(GInstanceInitFunc) gst_fake_object_init, |
| NULL |
| }; |
| |
| type = g_type_register_static (GST_TYPE_OBJECT, |
| "GstFakeObject", &fake_object_info, 0); |
| g_once_init_leave (&fake_object_type, type); |
| } |
| return fake_object_type; |
| } |
| |
| /* g_object_new on GstFakeObject should succeed */ |
| GST_START_TEST (test_fake_object_new) |
| { |
| GstObject *object; |
| |
| object = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object == NULL, "Failed to create instance of GstFakeObject"); |
| fail_unless (GST_IS_OBJECT (object), |
| "GstFakeObject instance is not a GstObject"); |
| gst_object_unref (object); |
| } |
| |
| GST_END_TEST; |
| |
| /* GstFakeObject name tests */ |
| GST_START_TEST (test_fake_object_name) |
| { |
| GstObject *object; |
| gchar *name; |
| gchar *name2; |
| |
| object = g_object_new (gst_fake_object_get_type (), NULL); |
| |
| name = gst_object_get_name (object); |
| fail_if (name == NULL, "Newly created object has no name"); |
| fail_if (strncmp (name, "fakeobject", 10) != 0, |
| "Random name %s does not start with Gst", name); |
| g_free (name); |
| |
| /* give a random name by setting with NULL; |
| * GstFakeObject class -> fakeobject%d */ |
| gst_object_set_name (object, NULL); |
| name = gst_object_get_name (object); |
| fail_if (name == NULL, "Random name was not assigned"); |
| fail_if (strncmp (name, "fakeobject", 10) != 0, |
| "Random name %s does not start with Gst", name); |
| g_free (name); |
| |
| gst_object_set_name (object, "fake"); |
| name = gst_object_get_name (object); |
| fail_if (name == NULL, "Failed to get name of GstFakeObject"); |
| fail_if (strcmp (name, "fake") != 0, "Name of GstFakeObject is not 'fake'"); |
| |
| /* change the gotten name to see that it's a copy and not the original */ |
| name[0] = 'm'; |
| name2 = gst_object_get_name (object); |
| fail_if (strcmp (name2, "fake") != 0, |
| "Copy of object name affected actual object name"); |
| g_free (name); |
| g_free (name2); |
| |
| gst_object_unref (object); |
| } |
| |
| GST_END_TEST; |
| |
| /* thread function for threaded name change test */ |
| static gpointer |
| thread_name_object (GstObject * object) |
| { |
| gchar *thread_id = g_strdup_printf ("%p", g_thread_self ()); |
| |
| THREAD_START (); |
| |
| /* give main thread a head start */ |
| g_usleep (100000); |
| |
| /* write our name repeatedly */ |
| g_message ("THREAD %s: starting loop", thread_id); |
| while (THREAD_TEST_RUNNING ()) { |
| gst_object_set_name (object, thread_id); |
| /* a minimal sleep invokes a thread switch */ |
| THREAD_SWITCH (); |
| } |
| |
| /* thread is done, so let's return */ |
| g_message ("THREAD %s: set name", thread_id); |
| g_free (thread_id); |
| |
| return NULL; |
| } |
| |
| #if 0 |
| GST_START_TEST (test_fake_object_name_threaded_wrong) |
| { |
| GstObject *object; |
| gchar *name; |
| gint i; |
| gboolean expected_failure = FALSE; |
| |
| g_message ("\nTEST: set/get without lock"); |
| |
| object = g_object_new (gst_fake_object_get_type (), NULL); |
| gst_object_set_name (object, "main"); |
| |
| MAIN_START_THREADS (5, thread_name_object, object); |
| |
| /* start looping and set/get name repeatedly */ |
| for (i = 0; i < 1000; ++i) { |
| gst_object_set_name (object, "main"); |
| THREAD_SWITCH (); |
| name = gst_object_get_name (object); |
| if (strcmp (name, "main") != 0) { |
| g_message ("MAIN: expected failure during run %d", i); |
| expected_failure = TRUE; |
| g_free (name); |
| break; |
| } |
| g_free (name); |
| } |
| MAIN_STOP_THREADS (); |
| |
| gst_object_unref (object); |
| |
| fail_unless (expected_failure, "name did not get changed"); |
| } |
| |
| GST_END_TEST; |
| #endif |
| |
| /* |
| * main thread sets and gets name directly on struct inside the object lock |
| * succeed because lock is held during set/get, and threads are locked out |
| */ |
| GST_START_TEST (test_fake_object_name_threaded_right) |
| { |
| GstObject *object; |
| gchar *name; |
| gint i; |
| |
| g_message ("\nTEST: set/get inside lock"); |
| |
| object = g_object_new (gst_fake_object_get_type (), NULL); |
| gst_object_set_name (object, "main"); |
| |
| MAIN_START_THREADS (5, thread_name_object, object); |
| |
| /* start looping and set/get name repeatedly */ |
| for (i = 0; i < 1000; ++i) { |
| GST_OBJECT_LOCK (object); |
| g_free (GST_OBJECT_NAME (object)); |
| GST_OBJECT_NAME (object) = g_strdup ("main"); |
| THREAD_SWITCH (); |
| name = g_strdup (GST_OBJECT_NAME (object)); |
| GST_OBJECT_UNLOCK (object); |
| |
| fail_unless (strcmp (name, "main") == 0, |
| "Name got changed while lock held during run %d", i); |
| g_free (name); |
| } |
| MAIN_STOP_THREADS (); |
| gst_object_unref (object); |
| } |
| |
| GST_END_TEST; |
| /* |
| * main thread creates lots of objects |
| * child threads sets default names on objects |
| * then main thread checks uniqueness of object names |
| */ |
| |
| static GList *object_list = NULL; |
| static gint num_objects = 1000; |
| static gint num_threads = 5; |
| |
| /* thread function for threaded default name change test */ |
| static gpointer |
| thread_name_object_default (int *i) |
| { |
| int j; |
| |
| THREAD_START (); |
| |
| for (j = *i; j < num_objects; j += num_threads) { |
| GstObject *o = GST_OBJECT (g_list_nth_data (object_list, j)); |
| |
| /* g_message ("THREAD %p: setting default name on object %d", |
| g_thread_self (), j); */ |
| gst_object_set_name (o, NULL); |
| THREAD_SWITCH (); |
| } |
| |
| /* thread is done, so let's return */ |
| g_message ("THREAD %p: set name", g_thread_self ()); |
| g_free (i); |
| |
| return NULL; |
| } |
| |
| static gint |
| gst_object_name_compare (GstObject * o, GstObject * p) |
| { |
| gint result; |
| |
| GST_OBJECT_LOCK (o); |
| GST_OBJECT_LOCK (p); |
| |
| if (o->name == NULL && p->name == NULL) { |
| result = 0; |
| } else if (o->name == NULL) { |
| result = -1; |
| } else if (p->name == NULL) { |
| result = 1; |
| } else { |
| result = strcmp (o->name, p->name); |
| } |
| |
| GST_OBJECT_UNLOCK (p); |
| GST_OBJECT_UNLOCK (o); |
| |
| return result; |
| } |
| |
| GST_START_TEST (test_fake_object_name_threaded_unique) |
| { |
| GstObject *object; |
| gint i; |
| gint *ip; |
| gchar *name1, *name2; |
| GList *l; |
| |
| g_message ("\nTEST: uniqueness of default names"); |
| |
| for (i = 0; i < num_objects; ++i) { |
| object = g_object_new (gst_fake_object_get_type (), NULL); |
| object_list = g_list_append (object_list, object); |
| } |
| |
| MAIN_INIT (); |
| |
| mark_point (); |
| for (i = 0; i < num_threads; ++i) { |
| ip = g_new (gint, 1); |
| *ip = i; |
| MAIN_START_THREAD_FUNCTION (i, thread_name_object_default, ip); |
| } |
| |
| mark_point (); |
| MAIN_SYNCHRONIZE (); |
| mark_point (); |
| MAIN_STOP_THREADS (); |
| |
| /* sort GList based on object name */ |
| /* FIXME: sort and test */ |
| object_list = |
| g_list_sort (object_list, (GCompareFunc) gst_object_name_compare); |
| |
| name1 = gst_object_get_name (GST_OBJECT (object_list->data)); |
| for (l = object_list->next; l->next; l = l->next) { |
| g_message ("object with name %s", name1); |
| name2 = gst_object_get_name (GST_OBJECT (l->data)); |
| fail_if (strcmp (name1, name2) == 0, "Two objects with name %s", name2); |
| g_free (name1); |
| name1 = name2; |
| } |
| g_free (name1); |
| |
| /* free stuff */ |
| g_list_foreach (object_list, (GFunc) g_object_unref, NULL); |
| } |
| |
| GST_END_TEST; |
| |
| /* parentage test on GstFakeObject */ |
| GST_START_TEST (test_fake_object_parentage) |
| { |
| GstObject *object1, *object2; |
| GstObject *parent; |
| gboolean result; |
| |
| /* create new object */ |
| object1 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object1 == NULL, "Failed to create instance of GstFakeObject"); |
| fail_unless (GST_IS_OBJECT (object1), |
| "GstFakeObject instance is not a GstObject"); |
| fail_unless (g_object_is_floating (object1), |
| "GstFakeObject instance is not floating"); |
| |
| /* check the parent */ |
| parent = gst_object_get_parent (object1); |
| fail_if (parent != NULL, "GstFakeObject has parent"); |
| /* try to set a NULL parent, this should give a warning */ |
| ASSERT_CRITICAL (result = gst_object_set_parent (object1, NULL)); |
| fail_if (result, "GstFakeObject accepted NULL parent"); |
| /* try to set itself as parent, we expect a warning here */ |
| ASSERT_CRITICAL (result = gst_object_set_parent (object1, object1)); |
| fail_if (result, "GstFakeObject accepted itself as parent"); |
| |
| /* _has_parent always returns FALSE if there is no parent */ |
| fail_if (gst_object_has_as_parent (object1, NULL)); |
| fail_if (gst_object_has_as_parent (NULL, object1)); |
| fail_if (gst_object_has_as_parent (object1, object1)); |
| |
| /* should still be floating */ |
| fail_unless (g_object_is_floating (object1), |
| "GstFakeObject instance is not floating"); |
| |
| /* create another object */ |
| object2 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object2 == NULL, |
| "Failed to create another instance of GstFakeObject"); |
| fail_unless (GST_IS_OBJECT (object2), |
| "second GstFakeObject instance is not a GstObject"); |
| fail_unless (g_object_is_floating (object1), |
| "GstFakeObject instance is not floating"); |
| |
| result = gst_object_has_as_parent (object1, object2); |
| fail_if (result, "GstFakeObject has a parent"); |
| |
| /* try to set other object as parent */ |
| result = gst_object_set_parent (object1, object2); |
| fail_unless (result, "GstFakeObject could not accept other object as parent"); |
| |
| /* should not be floating anymore */ |
| fail_if (g_object_is_floating (object1), |
| "GstFakeObject instance is still floating"); |
| /* parent should still be floating */ |
| fail_unless (g_object_is_floating (object2), |
| "GstFakeObject instance is not floating"); |
| |
| /* check the parent */ |
| fail_unless (gst_object_has_as_parent (object1, object2)); |
| |
| /* any other combination is invalid */ |
| fail_if (gst_object_has_as_parent (object2, object1)); |
| fail_if (gst_object_has_as_parent (object1, NULL)); |
| fail_if (gst_object_has_as_parent (object2, NULL)); |
| fail_if (gst_object_has_as_parent (NULL, object1)); |
| fail_if (gst_object_has_as_parent (NULL, object2)); |
| fail_if (gst_object_has_as_parent (object1, object1)); |
| fail_if (gst_object_has_as_parent (object2, object2)); |
| |
| /* try to set other object as parent again */ |
| result = gst_object_set_parent (object1, object2); |
| fail_if (result, "GstFakeObject could set parent twice"); |
| |
| /* ref before unparenting */ |
| gst_object_ref (object1); |
| /* clear parent of object */ |
| gst_object_unparent (object1); |
| |
| /* check the parent */ |
| parent = gst_object_get_parent (object1); |
| fail_if (parent != NULL, "GstFakeObject has parent"); |
| |
| /* object should not be floating */ |
| fail_if (g_object_is_floating (object1), |
| "GstFakeObject instance is floating again"); |
| |
| gst_object_unref (object1); |
| gst_object_unref (object2); |
| } |
| |
| GST_END_TEST; |
| |
| /* parentage test dispose on GstFakeObject, since our testcase |
| * does not handle the parent relation completely, the parent does |
| * not hold a ref to the child, we cannot dispose the parent to |
| * dipose the child as well. This test needs to be run with DEBUG |
| * info to check if the finalize methods are called correctly. */ |
| GST_START_TEST (test_fake_object_parentage_dispose) |
| { |
| GstObject *object1, *object2; |
| gboolean result; |
| |
| object1 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object1 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| object2 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object2 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| /* try to set other object as parent */ |
| result = gst_object_set_parent (object1, object2); |
| fail_unless (result, "GstFakeObject could not accept other object as parent"); |
| |
| /* clear parent of object */ |
| gst_object_unparent (object1); |
| |
| /* now dispose parent */ |
| gst_object_unref (object2); |
| } |
| |
| GST_END_TEST; |
| |
| GST_START_TEST (test_fake_object_has_as_ancestor) |
| { |
| GstObject *object1, *object2, *object3, *object4; |
| gboolean result; |
| |
| object1 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object1 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| object2 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object2 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| object3 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object3 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| object4 = g_object_new (gst_fake_object_get_type (), NULL); |
| fail_if (object4 == NULL, "Failed to create instance of GstFakeObject"); |
| |
| /* try to set other object as parent */ |
| result = gst_object_set_parent (object1, object3); |
| fail_unless (result, "GstFakeObject could not accept other object as parent"); |
| result = gst_object_set_parent (object2, object3); |
| fail_unless (result, "GstFakeObject could not accept other object as parent"); |
| result = gst_object_set_parent (object3, object4); |
| fail_unless (result, "GstFakeObject could not accept other object as parent"); |
| |
| /* Hierarchy: |
| * object4 |
| * `- object3 |
| * |- object2 |
| * `- object1 |
| */ |
| |
| /* An object isn't its own parent, but it is its own ancestor */ |
| fail_if (gst_object_has_as_parent (object1, object1)); |
| fail_unless (gst_object_has_as_ancestor (object1, object1)); |
| |
| fail_if (gst_object_has_as_parent (object4, object4)); |
| fail_unless (gst_object_has_as_ancestor (object4, object4)); |
| |
| /* direct parents */ |
| fail_unless (gst_object_has_as_parent (object1, object3)); |
| fail_unless (gst_object_has_as_ancestor (object1, object3)); |
| |
| fail_unless (gst_object_has_as_parent (object2, object3)); |
| fail_unless (gst_object_has_as_ancestor (object2, object3)); |
| |
| fail_unless (gst_object_has_as_parent (object3, object4)); |
| fail_unless (gst_object_has_as_ancestor (object3, object4)); |
| |
| /* grandparents */ |
| fail_if (gst_object_has_as_parent (object1, object4)); |
| fail_unless (gst_object_has_as_ancestor (object1, object4)); |
| |
| fail_if (gst_object_has_as_parent (object2, object4)); |
| fail_unless (gst_object_has_as_ancestor (object2, object4)); |
| |
| /* not ancestors */ |
| fail_if (gst_object_has_as_parent (object1, object2)); |
| fail_if (gst_object_has_as_ancestor (object1, object2)); |
| |
| fail_if (gst_object_has_as_parent (object3, object1)); |
| fail_if (gst_object_has_as_ancestor (object3, object1)); |
| |
| fail_if (gst_object_has_as_parent (object4, object1)); |
| fail_if (gst_object_has_as_ancestor (object4, object1)); |
| |
| fail_if (gst_object_has_as_parent (object4, object3)); |
| fail_if (gst_object_has_as_ancestor (object4, object3)); |
| |
| /* unparent everything */ |
| gst_object_unparent (object3); |
| gst_object_unparent (object2); |
| gst_object_unparent (object1); |
| |
| /* now dispose objects */ |
| gst_object_unref (object4); |
| } |
| |
| GST_END_TEST; |
| |
| /* test: try renaming a parented object, make sure it fails */ |
| |
| static Suite * |
| gst_object_suite (void) |
| { |
| Suite *s = suite_create ("GstObject"); |
| TCase *tc_chain = tcase_create ("general"); |
| |
| /* turn off timeout */ |
| tcase_set_timeout (tc_chain, 60); |
| |
| suite_add_tcase (s, tc_chain); |
| tcase_add_test (tc_chain, test_fake_object_new); |
| tcase_add_test (tc_chain, test_fake_object_name); |
| #if 0 |
| tcase_add_test (tc_chain, test_fake_object_name_threaded_wrong); |
| #endif |
| tcase_add_test (tc_chain, test_fake_object_name_threaded_right); |
| tcase_add_test (tc_chain, test_fake_object_name_threaded_unique); |
| tcase_add_test (tc_chain, test_fake_object_parentage); |
| tcase_add_test (tc_chain, test_fake_object_parentage_dispose); |
| |
| tcase_add_test (tc_chain, test_fake_object_has_as_ancestor); |
| //tcase_add_checked_fixture (tc_chain, setup, teardown); |
| |
| return s; |
| } |
| |
| GST_CHECK_MAIN (gst_object); |