blob: 94b8daee490d86c6f34a079542b7a265b68f2312 [file] [log] [blame]
/* GStreamer
*
* Common code for GStreamer unittests
*
* Copyright (C) <2004> Thomas Vander Stichele <thomas at apestaart dot org>
* Copyright (C) <2008> Thijs Vermeir <thijsvermeir@gmail.com>
*
* 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.
*/
#ifndef __GST_CHECK_H__
#define __GST_CHECK_H__
#include <signal.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <gst/gst.h>
#include <gst/check/check-prelude.h>
#define CK_DLL_EXP GST_CHECK_API
#include <gst/check/internal-check.h>
G_BEGIN_DECLS
GST_CHECK_API GstDebugCategory *check_debug;
#define GST_CAT_DEFAULT check_debug
/* logging function for tests
* a test uses g_message() to log a debug line
* a gst unit test can be run with GST_TEST_DEBUG env var set to see the
* messages
*/
GST_CHECK_API gboolean _gst_check_threads_running;
GST_CHECK_API gboolean _gst_check_raised_critical;
GST_CHECK_API gboolean _gst_check_raised_warning;
GST_CHECK_API gboolean _gst_check_expecting_log;
GST_CHECK_API gboolean _gst_check_list_tests;
/* global variables used in test methods */
GST_CHECK_API GList * buffers;
GST_CHECK_API GMutex check_mutex;
GST_CHECK_API GCond check_cond;
typedef struct
{
const char *name;
int size;
int abi_size;
}
GstCheckABIStruct;
typedef struct _GstCheckLogFilter GstCheckLogFilter;
/**
* GstCheckLogFilterFunc:
* @log_domain: the log domain of the message
* @log_level: the log level of the message
* @message: the message that has occured
* @user_data: user data
*
* A function that is called for messages matching the filter added by
* @gst_check_add_log_filter.
*
* Returns: %TRUE if message should be discarded by GstCheck.
*
* Since: 1.12
*/
typedef gboolean (*GstCheckLogFilterFunc) (const gchar * log_domain,
GLogLevelFlags log_level, const gchar * message, gpointer user_data);
GST_CHECK_API
void gst_check_init (int *argc, char **argv[]);
GST_CHECK_API
GstCheckLogFilter * gst_check_add_log_filter (const gchar * log,
GLogLevelFlags log_level, GRegex * regex, GstCheckLogFilterFunc func,
gpointer user_data, GDestroyNotify destroy_data);
GST_CHECK_API
void gst_check_remove_log_filter (GstCheckLogFilter * filter);
GST_CHECK_API
void gst_check_clear_log_filter (void);
GST_CHECK_API
GstFlowReturn gst_check_chain_func (GstPad * pad, GstObject * parent, GstBuffer * buffer);
GST_CHECK_API
void gst_check_message_error (GstMessage * message, GstMessageType type,
GQuark domain, gint code);
GST_CHECK_API
GstElement *gst_check_setup_element (const gchar * factory);
GST_CHECK_API
void gst_check_teardown_element (GstElement * element);
GST_CHECK_API
GstPad *gst_check_setup_src_pad (GstElement * element,
GstStaticPadTemplate * tmpl);
GST_CHECK_API
GstPad *gst_check_setup_src_pad_from_template (GstElement * element,
GstPadTemplate * tmpl);
GST_CHECK_API
GstPad * gst_check_setup_src_pad_by_name (GstElement * element,
GstStaticPadTemplate * tmpl, const gchar *name);
GST_CHECK_API
GstPad * gst_check_setup_src_pad_by_name_from_template (GstElement * element,
GstPadTemplate * tmpl, const gchar *name);
GST_CHECK_API
GstPad *gst_check_setup_sink_pad (GstElement * element,
GstStaticPadTemplate * tmpl);
GST_CHECK_API
GstPad *gst_check_setup_sink_pad_from_template (GstElement * element,
GstPadTemplate * tmpl);
GST_CHECK_API
GstPad * gst_check_setup_sink_pad_by_name (GstElement * element,
GstStaticPadTemplate * tmpl, const gchar *name);
GST_CHECK_API
GstPad * gst_check_setup_sink_pad_by_name_from_template (GstElement * element,
GstPadTemplate * tmpl, const gchar *name);
GST_CHECK_API
void gst_check_teardown_pad_by_name (GstElement * element, const gchar *name);
GST_CHECK_API
void gst_check_teardown_src_pad (GstElement * element);
GST_CHECK_API
void gst_check_drop_buffers (void);
GST_CHECK_API
void gst_check_caps_equal (GstCaps * caps1, GstCaps * caps2);
GST_CHECK_API
void gst_check_buffer_data (GstBuffer * buffer, gconstpointer data, gsize size);
GST_CHECK_API
void gst_check_element_push_buffer_list (const gchar * element_name,
GList * buffer_in, GstCaps * caps_in, GList * buffer_out,
GstCaps * caps_out, GstFlowReturn last_flow_return);
GST_CHECK_API
void gst_check_element_push_buffer (const gchar * element_name,
GstBuffer * buffer_in, GstCaps * caps_in, GstBuffer * buffer_out,
GstCaps *caps_out);
GST_CHECK_API
void gst_check_teardown_sink_pad (GstElement * element);
GST_CHECK_API
void gst_check_abi_list (GstCheckABIStruct list[], gboolean have_abi_sizes);
GST_CHECK_API
gint gst_check_run_suite (Suite * suite, const gchar * name,
const gchar * fname);
GST_CHECK_API
void gst_check_setup_events (GstPad * srcpad, GstElement * element,
GstCaps * caps, GstFormat format);
GST_CHECK_API
void gst_check_setup_events_with_stream_id (GstPad * srcpad,
GstElement * element, GstCaps * caps, GstFormat format,
const gchar * stream_id);
GST_CHECK_API
void gst_check_objects_destroyed_on_unref (gpointer object_to_unref, gpointer first_object, ...)
G_GNUC_NULL_TERMINATED;
GST_CHECK_API
void gst_check_object_destroyed_on_unref (gpointer object_to_unref);
#define fail_unless_message_error(msg, domain, code) \
gst_check_message_error (msg, GST_MESSAGE_ERROR, \
GST_ ## domain ## _ERROR, GST_ ## domain ## _ERROR_ ## code)
#define assert_message_error(m, d, c) fail_unless_message_error(m, d, c)
#ifdef GST_CHECK_TEST_ENVIRONMENT_BEACON
#define GST_DO_CHECK_TEST_ENVIRONMENT \
G_STMT_START { \
if (g_getenv (GST_CHECK_TEST_ENVIRONMENT_BEACON) == NULL) \
fail ("Test environment not set up correctly! Expected environment " \
"variable '%s' to be set.", GST_CHECK_TEST_ENVIRONMENT_BEACON); \
} G_STMT_END
#else
#define GST_DO_CHECK_TEST_ENVIRONMENT /* nothing to check */
#endif
/**
* GST_START_TEST:
* @__testname: test function name
*
* wrapper for checks START_TEST
*/
/**
* GST_END_TEST:
*
* wrapper for checks END_TEST
*/
#define GST_START_TEST(__testname) \
static void __testname (int G_GNUC_UNUSED __i__) \
{\
GST_DEBUG ("test start"); \
GST_DO_CHECK_TEST_ENVIRONMENT; \
tcase_fn_start (""# __testname, __FILE__, __LINE__);
#define GST_END_TEST GST_LOG ("cleaning up tasks"); \
gst_task_cleanup_all (); \
END_TEST
/* additional fail macros */
/**
* fail_unless_equals_int:
* @a: a #gint value or expression
* @b: a #gint value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define fail_unless_equals_int(a, b) \
G_STMT_START { \
int first = a; \
int second = b; \
fail_unless(first == second, \
"'" #a "' (%d) is not equal to '" #b"' (%d)", first, second); \
} G_STMT_END;
/**
* assert_equals_int:
* @a: a #gint value or expression
* @b: a #gint value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define assert_equals_int(a, b) fail_unless_equals_int(a, b)
/**
* fail_unless_equals_int_hex:
* @a: a #gint value or expression
* @b: a #gint value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define fail_unless_equals_int_hex(a, b) \
G_STMT_START { \
int first = a; \
int second = b; \
fail_unless(first == second, \
"'" #a "' (0x%08x) is not equal to '" #b"' (0x%08x)", first, second);\
} G_STMT_END;
/**
* assert_equals_int_hex:
* @a: a #gint value or expression
* @b: a #gint value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define assert_equals_int_hex(a, b) fail_unless_equals_int_hex(a, b)
/**
* fail_unless_equals_int64:
* @a: a #gint64 value or expression
* @b: a #gint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define fail_unless_equals_int64(a, b) \
G_STMT_START { \
gint64 first = a; \
gint64 second = b; \
fail_unless(first == second, \
"'" #a "' (%" G_GINT64_FORMAT") is not equal to '" #b"' (%" \
G_GINT64_FORMAT")", first, second); \
} G_STMT_END;
/**
* assert_equals_int64:
* @a: a #gint64 value or expression
* @b: a #gint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define assert_equals_int64(a, b) fail_unless_equals_int64(a, b)
/**
* fail_unless_equals_int64_hex:
* @a: a #gint64 value or expression
* @b: a #gint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define fail_unless_equals_int64_hex(a, b) \
G_STMT_START { \
gint64 first = a; \
gint64 second = b; \
fail_unless(first == second, \
"'" #a "' (0x%016x) is not equal to '" #b"' (0x%016x)", first, second);\
} G_STMT_END;
/**
* assert_equals_int64_hex:
* @a: a #gint64 value or expression
* @b: a #gint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define assert_equals_int64_hex(a,b) fail_unless_equals_int64_hex(a,b)
/**
* fail_unless_equals_uint64:
* @a: a #guint64 value or expression
* @b: a #guint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define fail_unless_equals_uint64(a, b) \
G_STMT_START { \
guint64 first = a; \
guint64 second = b; \
fail_unless(first == second, \
"'" #a "' (%" G_GUINT64_FORMAT ") is not equal to '" #b"' (%" \
G_GUINT64_FORMAT ")", first, second); \
} G_STMT_END;
/**
* assert_equals_uint64:
* @a: a #guint64 value or expression
* @b: a #guint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to. This
* macro is for use in unit tests.
*/
#define assert_equals_uint64(a, b) fail_unless_equals_uint64(a, b)
/**
* fail_unless_equals_uint64_hex:
* @a: a #gint64 value or expression
* @b: a #gint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define fail_unless_equals_uint64_hex(a, b) \
G_STMT_START { \
guint64 first = a; \
guint64 second = b; \
fail_unless(first == second, \
"'" #a "' (0x%016x) is not equal to '" #b"' (0x%016x)", first, second);\
} G_STMT_END;
/**
* assert_equals_uint64_hex:
* @a: a #guint64 value or expression
* @b: a #guint64 value or expression
*
* This macro checks that @a and @b are equal and aborts if this is not the
* case, printing both expressions and the values they evaluated to in
* hexadecimal format. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define assert_equals_uint64_hex(a,b) fail_unless_equals_uint64_hex(a,b)
/**
* fail_unless_equals_string:
* @a: a string literal or expression
* @b: a string literal or expression
*
* This macro checks that @a and @b are equal (as per strcmp) and aborts if
* this is not the case, printing both expressions and the values they
* evaluated to. This macro is for use in unit tests.
*/
#define fail_unless_equals_string(a, b) \
G_STMT_START { \
const gchar * first = a; \
const gchar * second = b; \
fail_unless(g_strcmp0 (first, second) == 0, \
"'" #a "' (%s) is not equal to '" #b"' (%s)", first, second); \
} G_STMT_END;
/**
* assert_equals_string:
* @a: a string literal or expression
* @b: a string literal or expression
*
* This macro checks that @a and @b are equal (as per strcmp) and aborts if
* this is not the case, printing both expressions and the values they
* evaluated to. This macro is for use in unit tests.
*/
#define assert_equals_string(a, b) fail_unless_equals_string(a, b)
/**
* fail_unless_equals_float:
* @a: a #gdouble or #gfloat value or expression
* @b: a #gdouble or #gfloat value or expression
*
* This macro checks that @a and @b are (almost) equal and aborts if this
* is not the case, printing both expressions and the values they evaluated
* to. This macro is for use in unit tests.
*/
#define fail_unless_equals_float(a, b) \
G_STMT_START { \
double first = a; \
double second = b; \
/* This will only work for 'normal' values and values around 0, \
* which should be good enough for our purposes here */ \
fail_unless(fabs (first - second) < 0.0000001, \
"'" #a "' (%g) is not equal to '" #b "' (%g)", first, second);\
} G_STMT_END;
/**
* assert_equals_float:
* @a: a #gdouble or #gfloat value or expression
* @b: a #gdouble or #gfloat value or expression
*
* This macro checks that @a and @b are (almost) equal and aborts if this
* is not the case, printing both expressions and the values they evaluated
* to. This macro is for use in unit tests.
*/
#define assert_equals_float(a, b) fail_unless_equals_float(a, b)
/**
* fail_unless_equals_pointer:
* @a: a pointer value or expression
* @b: a pointer value or expression
*
* This macro checks that @a and @b are equal and aborts if this
* is not the case, printing both expressions and the values they
* evaluated to. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define fail_unless_equals_pointer(a, b) \
G_STMT_START { \
gpointer first = a; \
gpointer second = b; \
fail_unless(first == second, \
"'" #a "' (%p) is not equal to '" #b "' (%p)", first, second);\
} G_STMT_END;
/**
* assert_equals_pointer:
* @a: a pointer value or expression
* @b: a pointer value or expression
*
* This macro checks that @a and @b are equal and aborts if this
* is not the case, printing both expressions and the values they
* evaluated to. This macro is for use in unit tests.
*
* Since: 1.2
*/
#define assert_equals_pointer(a, b) fail_unless_equals_pointer(a, b)
/***
* thread test macros and variables
*/
GST_CHECK_API GList *thread_list;
GST_CHECK_API GMutex mutex;
GST_CHECK_API GCond start_cond; /* used to notify main thread of thread startups */
GST_CHECK_API GCond sync_cond; /* used to synchronize all threads and main thread */
#define MAIN_START_THREADS(count, function, data) \
MAIN_INIT(); \
MAIN_START_THREAD_FUNCTIONS(count, function, data); \
MAIN_SYNCHRONIZE();
#define MAIN_INIT() \
G_STMT_START { \
g_mutex_init (&mutex); \
g_cond_init (&start_cond); \
g_cond_init (&sync_cond); \
_gst_check_threads_running = TRUE; \
} G_STMT_END;
#define MAIN_START_THREAD_FUNCTIONS(count, function, data) \
G_STMT_START { \
int i; \
for (i = 0; i < count; ++i) { \
MAIN_START_THREAD_FUNCTION (i, function, data); \
} \
} G_STMT_END;
#define MAIN_START_THREAD_FUNCTION(i, function, data) \
G_STMT_START { \
GThread *thread = NULL; \
GST_DEBUG ("MAIN: creating thread %d", i); \
g_mutex_lock (&mutex); \
thread = g_thread_try_new ("gst-check", \
(GThreadFunc) function, data, NULL); \
/* wait for thread to signal us that it's ready */ \
GST_DEBUG ("MAIN: waiting for thread %d", i); \
g_cond_wait (&start_cond, &mutex); \
g_mutex_unlock (&mutex); \
\
thread_list = g_list_append (thread_list, thread); \
} G_STMT_END;
#define MAIN_SYNCHRONIZE() \
G_STMT_START { \
GST_DEBUG ("MAIN: synchronizing"); \
g_cond_broadcast (&sync_cond); \
GST_DEBUG ("MAIN: synchronized"); \
} G_STMT_END;
#define MAIN_STOP_THREADS() \
G_STMT_START { \
_gst_check_threads_running = FALSE; \
\
/* join all threads */ \
GST_DEBUG ("MAIN: joining"); \
g_list_foreach (thread_list, (GFunc) g_thread_join, NULL); \
g_list_free (thread_list); \
thread_list = NULL; \
g_mutex_clear (&mutex); \
g_cond_clear (&start_cond); \
g_cond_clear (&sync_cond); \
GST_DEBUG ("MAIN: joined"); \
} G_STMT_END;
#define THREAD_START() \
THREAD_STARTED(); \
THREAD_SYNCHRONIZE();
#define THREAD_STARTED() \
G_STMT_START { \
/* signal main thread that we started */ \
GST_DEBUG ("THREAD %p: started", g_thread_self ()); \
g_mutex_lock (&mutex); \
g_cond_signal (&start_cond); \
} G_STMT_END;
#define THREAD_SYNCHRONIZE() \
G_STMT_START { \
/* synchronize everyone */ \
GST_DEBUG ("THREAD %p: syncing", g_thread_self ()); \
fail_if (g_mutex_trylock (&mutex), \
"bug in unit test, mutex should be locked at this point");\
g_cond_wait (&sync_cond, &mutex); \
GST_DEBUG ("THREAD %p: synced", g_thread_self ()); \
g_mutex_unlock (&mutex); \
} G_STMT_END;
#define THREAD_SWITCH() \
G_STMT_START { \
/* a minimal sleep is a context switch */ \
g_usleep (1); \
} G_STMT_END;
#define THREAD_TEST_RUNNING() (!!_gst_check_threads_running)
/* additional assertions */
#define ASSERT_CRITICAL(code) \
G_STMT_START { \
_gst_check_expecting_log = TRUE; \
_gst_check_raised_critical = FALSE; \
code; \
if (!_gst_check_raised_critical) \
_ck_assert_failed (__FILE__, __LINE__, \
"Expected g_critical, got nothing", NULL); \
_gst_check_expecting_log = FALSE; \
} G_STMT_END
#define ASSERT_WARNING(code) \
G_STMT_START { \
_gst_check_expecting_log = TRUE; \
_gst_check_raised_warning = FALSE; \
code; \
if (!_gst_check_raised_warning) \
_ck_assert_failed (__FILE__, __LINE__, \
"Expected g_warning, got nothing", NULL); \
_gst_check_expecting_log = FALSE; \
} G_STMT_END
#define ASSERT_OBJECT_REFCOUNT(object, name, value) \
G_STMT_START { \
int rc; \
rc = GST_OBJECT_REFCOUNT_VALUE (object); \
fail_unless (rc == value, \
"%s (%p) refcount is %d instead of %d", \
name, object, rc, value); \
} G_STMT_END
#define ASSERT_OBJECT_REFCOUNT_BETWEEN(object, name, lower, upper) \
G_STMT_START { \
int rc = GST_OBJECT_REFCOUNT_VALUE (object); \
int lo = lower; \
int hi = upper; \
\
fail_unless (rc >= lo, \
"%s (%p) refcount %d is smaller than %d", \
name, object, rc, lo); \
fail_unless (rc <= hi, \
"%s (%p) refcount %d is bigger than %d", \
name, object, rc, hi); \
} G_STMT_END
#define ASSERT_CAPS_REFCOUNT(caps, name, value) \
ASSERT_MINI_OBJECT_REFCOUNT(caps, name, value)
#define ASSERT_BUFFER_REFCOUNT(buffer, name, value) \
ASSERT_MINI_OBJECT_REFCOUNT(buffer, name, value)
#define ASSERT_MINI_OBJECT_REFCOUNT(miniobj, name, value) \
G_STMT_START { \
int rc; \
rc = GST_MINI_OBJECT_REFCOUNT_VALUE (miniobj); \
fail_unless (rc == value, \
name " (%p) refcount is %d instead of %d", miniobj, rc, value); \
} G_STMT_END
#define ASSERT_SET_STATE(element, state, ret) \
fail_unless (gst_element_set_state (GST_ELEMENT(element), \
state) == ret, \
"could not change state to " #state);
#define GST_CHECK_MAIN(name) \
int main (int argc, char **argv) \
{ \
Suite *s; \
gst_check_init (&argc, &argv); \
s = name ## _suite (); \
return gst_check_run_suite (s, # name, __FILE__); \
}
/* Hack to allow run-time selection of unit tests to run via the
* GST_CHECKS environment variable (test function names globs, comma
* separated), or GST_CHECKS_IGNORE with the same semantics */
GST_CHECK_API
gboolean _gst_check_run_test_func (const gchar * func_name);
static inline void
__gst_tcase_add_test (TCase * tc, TFun tf, const char * fname, int signal,
int allowed_exit_value, int start, int end)
{
if (_gst_check_list_tests) {
g_print ("Test: %s\n", fname);
return;
}
if (_gst_check_run_test_func (fname)) {
_tcase_add_test (tc, tf, fname, signal, allowed_exit_value, start, end);
}
}
#define _tcase_add_test __gst_tcase_add_test
/* A special variant to add broken tests. These are normally skipped, but can be
* forced to run via GST_CHECKS */
#define tcase_skip_broken_test(chain,test_func) \
G_STMT_START { \
const char *env = g_getenv ("GST_CHECKS"); \
\
if (env != NULL && g_pattern_match_simple (env, G_STRINGIFY (test_func))) { \
tcase_add_test(chain,test_func); \
} else { \
g_printerr ("FIXME: skipping test %s because it's broken\n", G_STRINGIFY (test_func)); \
} \
} G_STMT_END
#define tcase_skip_broken_loop_test(chain,test_func,a,b) \
tcase_skip_broken_test (chain, test_func)
G_END_DECLS
#endif /* __GST_CHECK_H__ */