/* GStreamer * * unit test for GstObject * * Copyright (C) <2004> Thomas Vander Stichele * * 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 /* 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 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; static void notify_name (GObject * object, GParamSpec * pspec, gint * out_count) { *out_count += 1; } /* GstFakeObject name tests */ GST_START_TEST (test_fake_object_initial_name) { GstObject *object; gchar *name; 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 'fakeobject'", name); g_free (name); gst_object_unref (object); } GST_END_TEST; GST_START_TEST (test_fake_object_reset_name) { GstObject *object; gchar *name; gint count = 0; object = g_object_new (gst_fake_object_get_type (), NULL); g_signal_connect (object, "notify::name", G_CALLBACK (notify_name), &count); /* give a random name by setting with NULL; * GstFakeObject class -> fakeobject%d */ fail_unless (gst_object_set_name (object, NULL), "Could not set name"); 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 'fakeobject'", name); g_free (name); fail_unless (count == 1, "Name change was not notified"); gst_object_unref (object); } GST_END_TEST; GST_START_TEST (test_fake_object_set_name_via_property) { GstObject *object; gchar *name; gint count = 0; object = g_object_new (gst_fake_object_get_type (), NULL); g_signal_connect (object, "notify::name", G_CALLBACK (notify_name), &count); /* also test the property code path */ g_object_set (object, "name", "fake", NULL); 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'"); g_free (name); fail_if (count > 1, "Name change was notified multiple time"); fail_unless (count == 1, "Name change was not notified"); gst_object_unref (object); } GST_END_TEST; GST_START_TEST (test_fake_object_get_name_returns_copy) { GstObject *object; gchar *name1, *name2; object = g_object_new (gst_fake_object_get_type (), NULL); /* change the gotten name to see that it's a copy and not the original */ name1 = gst_object_get_name (object); name1[0] = 'm'; name2 = gst_object_get_name (object); fail_if (strncmp (name2, "fakeobject", 10) != 0, "Copy of object name affected actual object name"); g_free (name1); g_free (name2); gst_object_unref (object); } GST_END_TEST; GST_START_TEST (test_fake_object_set_name_when_parented) { GstObject *object, *parent; object = g_object_new (gst_fake_object_get_type (), NULL); /* add a parent and ensure name cannot be changed */ parent = g_object_new (gst_fake_object_get_type (), NULL); gst_object_set_parent (object, parent); fail_if (gst_object_set_name (object, "broken"), "Could set name on parented object"); gst_object_unparent (object); gst_object_unref (parent); } 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) gst_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 */ result = FALSE; 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_initial_name); tcase_add_test (tc_chain, test_fake_object_reset_name); tcase_add_test (tc_chain, test_fake_object_set_name_via_property); tcase_add_test (tc_chain, test_fake_object_get_name_returns_copy); tcase_add_test (tc_chain, test_fake_object_set_name_when_parented); #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);