/* GStreamer

 *

 * unit test for videorate

 *

 * Copyright (C) 2006 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., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

#include <gst/gst_global.h>

#include <unistd.h>

#include <gstcheck.h>

#include <glib_global.h>

#define LOG_FILE "c:\\logs\\adder_logs.txt" 

#include "std_log_result.h" 

#define LOG_FILENAME_LINE __FILE__, __LINE__

void create_xml(int result)

{

    if(result)

        assert_failed = 1;

    testResultXml(xmlfile);

    close_log_file();

}

#include <gst/check/gstcheck.h>

#include "libgstreamer_wsd_solution.h" 

#if EMULATOR

GET_GLOBAL_VAR_FROM_TLS(buffers,gstcheck,GList*)

#define buffers (*GET_GSTREAMER_WSD_VAR_NAME(buffers,gstcheck,g)())

#else 

#endif

#if EMULATOR

static GET_GLOBAL_VAR_FROM_TLS(raised_critical,gstcheck,gboolean)

#define _gst_check_raised_critical (*GET_GSTREAMER_WSD_VAR_NAME(raised_critical,gstcheck,g)())

#else 

extern gboolean _gst_check_raised_critical ;

#endif

//gboolean _gst_check_raised_warning = FALSE;

#if EMULATOR

static GET_GLOBAL_VAR_FROM_TLS(raised_warning,gstcheck,gboolean)

#define _gst_check_raised_warning (*GET_GSTREAMER_WSD_VAR_NAME(raised_warning,gstcheck,g)())

#else 

extern gboolean _gst_check_raised_warning ;

#endif

//gboolean _gst_check_expecting_log = FALSE;

#if EMULATOR

static GET_GLOBAL_VAR_FROM_TLS(expecting_log,gstcheck,gboolean)

#define _gst_check_expecting_log (*GET_GSTREAMER_WSD_VAR_NAME(expecting_log,gstcheck,g)())

#else 

extern gboolean _gst_check_expecting_log ;

#endif

//gboolean _gst_check_expecting_log = FALSE;

#if EMULATOR

static GET_GLOBAL_VAR_FROM_TLS(threads_running,gstcheck,gboolean)

#define _gst_check_threads_running (*GET_GSTREAMER_WSD_VAR_NAME(threads_running,gstcheck,g)())

#else 

extern gboolean _gst_check_threads_running ;

#endif

/* For ease of programming we use globals to keep refs for our floating

 * src and sink pads we create; otherwise we always have to do get_pad,

 * get_peer, and then remove references in every test function */

static GstPad *mysrcpad, *mysinkpad;

#define VIDEO_CAPS_TEMPLATE_STRING     \

    "video/x-raw-yuv"

#define VIDEO_CAPS_STRING               \

    "video/x-raw-yuv, "                 \

    "width = (int) 320, "               \

    "height = (int) 240, "              \

    "framerate = (fraction) 25/1 , "    \

    "format = (fourcc) I420"

#define VIDEO_CAPS_NO_FRAMERATE_STRING  \

    "video/x-raw-yuv, "                 \

    "width = (int) 320, "               \

    "height = (int) 240, "              \

    "format = (fourcc) I420"

#define VIDEO_CAPS_NEWSIZE_STRING       \

    "video/x-raw-yuv, "                 \

    "width = (int) 240, "               \

    "height = (int) 120, "              \

    "framerate = (fraction) 25/1 , "	\

    "format = (fourcc) I420"

static GstStaticPadTemplate sinktemplate = GST_STATIC_PAD_TEMPLATE ("sink",

    GST_PAD_SINK,

    GST_PAD_ALWAYS,

    GST_STATIC_CAPS (VIDEO_CAPS_TEMPLATE_STRING)

    );

static GstStaticPadTemplate srctemplate = GST_STATIC_PAD_TEMPLATE ("src",

    GST_PAD_SRC,

    GST_PAD_ALWAYS,

    GST_STATIC_CAPS (VIDEO_CAPS_TEMPLATE_STRING)

    );

static void

assert_videorate_stats (GstElement * videorate, gchar * reason,

    guint64 xin, guint64 xout, guint64 xdropped, guint64 xduplicated)

{

  guint64 in, out, dropped, duplicated;

  g_object_get (videorate, "in", &in, "out", &out, "drop", &dropped,

      "duplicate", &duplicated, NULL);

#define _assert_equals_uint64(a, b)                                     \

G_STMT_START {                                                          \

  guint64 first = a;                                                    \

  guint64 second = b;                                                   \

  fail_unless(first == second,                                          \

    "%s: '" #a "' (%" G_GUINT64_FORMAT ") is not equal to "		\

    "expected '" #a"' (%" G_GUINT64_FORMAT ")", reason, first, second); \

} G_STMT_END;

  _assert_equals_uint64 (in, xin);

  _assert_equals_uint64 (out, xout);

  _assert_equals_uint64 (dropped, xdropped);

  _assert_equals_uint64 (duplicated, xduplicated);

}

static GstElement *

setup_videorate (void)

 {

  GstElement *videorate;

  GST_DEBUG ("setup_videorate");

  videorate = gst_check_setup_element ("videorate");

  mysrcpad = gst_check_setup_src_pad (videorate, &srctemplate, NULL);

  mysinkpad = gst_check_setup_sink_pad (videorate, &sinktemplate, NULL);

  gst_pad_set_active (mysrcpad, TRUE);

  gst_pad_set_active (mysinkpad, TRUE);

  return videorate;

}

static void

cleanup_videorate (GstElement * videorate)

{

  GST_DEBUG ("cleanup_videorate");

  g_list_foreach (buffers, (GFunc) gst_mini_object_unref, NULL);

  g_list_free (buffers);

  buffers = NULL;

  gst_element_set_state (videorate, GST_STATE_NULL);

  gst_element_get_state (videorate, NULL, NULL, GST_CLOCK_TIME_NONE);

  gst_pad_set_active (mysrcpad, FALSE);

  gst_pad_set_active (mysinkpad, FALSE);

  gst_check_teardown_src_pad (videorate);

  gst_check_teardown_sink_pad (videorate);

  gst_check_teardown_element (videorate);

}

void test_one()

{

  GstElement *videorate;

  GstBuffer *inbuffer;

  GstCaps *caps;

  //gst_init(NULL,NULL);

  videorate = setup_videorate ();

  fail_unless (gst_element_set_state (videorate,

          GST_STATE_PLAYING) == GST_STATE_CHANGE_SUCCESS,

      "could not set to playing");

  inbuffer = gst_buffer_new_and_alloc (4);

  memset (GST_BUFFER_DATA (inbuffer), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (inbuffer, caps);

  GST_BUFFER_TIMESTAMP (inbuffer) = 0;

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (inbuffer, "inbuffer", 1);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, inbuffer) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (inbuffer, "inbuffer", 1);

  fail_unless_equals_int (g_list_length (buffers), 0);

  /* cleanup */

  cleanup_videorate (videorate);

  std_log(LOG_FILENAME_LINE, "Test Successful");

  create_xml(0);

}

//GST_END_TEST;

void test_more()

{

  GstElement *videorate;

  GstBuffer *first, *second, *third, *outbuffer;

  GList *l;

  GstCaps *caps;

  GRand *rand;

  videorate = setup_videorate ();

  fail_unless (gst_element_set_state (videorate,

          GST_STATE_PLAYING) == GST_STATE_CHANGE_SUCCESS,

      "could not set to playing");

  assert_videorate_stats (videorate, "creation", 0, 0, 0, 0);

  rand = g_rand_new ();

  /* first buffer */

  first = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (first) = 0;

  /* it shouldn't matter what the offsets are, videorate produces perfect

     streams */

  GST_BUFFER_OFFSET (first) = g_rand_int (rand);

  GST_BUFFER_OFFSET_END (first) = g_rand_int (rand);

  memset (GST_BUFFER_DATA (first), 1, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (first, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (first, "first", 1);

  gst_buffer_ref (first);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, first) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (first, "first", 2);

  fail_unless_equals_int (g_list_length (buffers), 0);

  assert_videorate_stats (videorate, "first buffer", 1, 0, 0, 0);

  /* second buffer; inbetween second and third output frame's timestamp */

  second = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (second) = GST_SECOND * 3 / 50;

  GST_BUFFER_OFFSET (first) = g_rand_int (rand);

  GST_BUFFER_OFFSET_END (first) = g_rand_int (rand);

  memset (GST_BUFFER_DATA (second), 2, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (second, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (second, "second", 1);

  gst_buffer_ref (second);

  /* pushing gives away one of my references ... */

  fail_unless (gst_pad_push (mysrcpad, second) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (second, "second", 2);

  /* ... and the first one is pushed out, with timestamp 0 */

  fail_unless_equals_int (g_list_length (buffers), 1);

  assert_videorate_stats (videorate, "second buffer", 2, 1, 0, 0);

  ASSERT_BUFFER_REFCOUNT (first, "first", 2);

  outbuffer = buffers->data;

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (outbuffer), 0);

  /* third buffer */

  third = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (third) = GST_SECOND * 12 / 50;

  GST_BUFFER_OFFSET (first) = g_rand_int (rand);

  GST_BUFFER_OFFSET_END (first) = g_rand_int (rand);

  memset (GST_BUFFER_DATA (third), 3, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (third, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (third, "third", 1);

  gst_buffer_ref (third);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, third) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (third, "third", 2);

  /* submitting the third buffer has triggered flushing of three more frames */

  assert_videorate_stats (videorate, "third buffer", 3, 4, 0, 2);

  /* check timestamp and source correctness */

  l = buffers;

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (l->data), 0);

  fail_unless_equals_int (GST_BUFFER_DATA (l->data)[0], 1);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET (l->data), 0);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET_END (l->data), 1);

  l = g_list_next (l);

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (l->data), GST_SECOND / 25);

  fail_unless_equals_int (GST_BUFFER_DATA (l->data)[0], 2);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET (l->data), 1);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET_END (l->data), 2);

  l = g_list_next (l);

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (l->data),

      GST_SECOND * 2 / 25);

  fail_unless_equals_int (GST_BUFFER_DATA (l->data)[0], 2);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET (l->data), 2);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET_END (l->data), 3);

  l = g_list_next (l);

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (l->data),

      GST_SECOND * 3 / 25);

  fail_unless_equals_int (GST_BUFFER_DATA (l->data)[0], 2);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET (l->data), 3);

  fail_unless_equals_uint64 (GST_BUFFER_OFFSET_END (l->data), 4);

  fail_unless_equals_int (g_list_length (buffers), 4);

  /* one held by us, three held by each output frame taken from the second */

  ASSERT_BUFFER_REFCOUNT (second, "second", 4);

  /* now send EOS */

  fail_unless (gst_pad_push_event (mysrcpad, gst_event_new_eos ()));

  /* submitting eos should flush out two more frames for tick 8 and 10 */

  /* FIXME: right now it only flushes out one, so out is 5 instead of 6 ! */

  assert_videorate_stats (videorate, "eos", 3, 5, 0, 2);

  fail_unless_equals_int (g_list_length (buffers), 5);

  /* cleanup */

  g_rand_free (rand);

  gst_buffer_unref (first);

  gst_buffer_unref (second);

  gst_buffer_unref (third);

  cleanup_videorate (videorate);

  std_log(LOG_FILENAME_LINE, "Test Successful");

  create_xml(0);

}

//GST_END_TEST;

/* frames at 1, 0, 2 -> second one should be ignored */

void test_wrong_order_from_zero()

{

  GstElement *videorate;

  GstBuffer *first, *second, *third, *outbuffer;

  GstCaps *caps;

  videorate = setup_videorate ();

  fail_unless (gst_element_set_state (videorate,

          GST_STATE_PLAYING) == GST_STATE_CHANGE_SUCCESS,

      "could not set to playing");

  assert_videorate_stats (videorate, "start", 0, 0, 0, 0);

  /* first buffer */

  first = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (first) = GST_SECOND;

  memset (GST_BUFFER_DATA (first), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (first, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (first, "first", 1);

  gst_buffer_ref (first);

  GST_DEBUG ("pushing first buffer");

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, first) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (first, "first", 2);

  fail_unless_equals_int (g_list_length (buffers), 0);

  assert_videorate_stats (videorate, "first", 1, 0, 0, 0);

  /* second buffer */

  second = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (second) = 0;

  memset (GST_BUFFER_DATA (second), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (second, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (second, "second", 1);

  gst_buffer_ref (second);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, second) == GST_FLOW_OK);

  /* ... and it is now dropped because it is too old */

  ASSERT_BUFFER_REFCOUNT (second, "second", 1);

  fail_unless_equals_int (g_list_length (buffers), 0);

  /* ... and the first one is still there */

  assert_videorate_stats (videorate, "second", 2, 0, 1, 0);

  ASSERT_BUFFER_REFCOUNT (first, "first", 2);

  /* third buffer */

  third = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (third) = 2 * GST_SECOND;

  memset (GST_BUFFER_DATA (third), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (third, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (third, "third", 1);

  gst_buffer_ref (third);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, third) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (third, "third", 2);

  /* and now the first one should be pushed once and dupped 24 + 13 times, to

   * reach the half point between 1 s (first) and 2 s (third) */

  fail_unless_equals_int (g_list_length (buffers), 38);

  ASSERT_BUFFER_REFCOUNT (first, "first", 39);

  ASSERT_BUFFER_REFCOUNT (second, "second", 1);

  ASSERT_BUFFER_REFCOUNT (third, "third", 2);

  assert_videorate_stats (videorate, "third", 3, 38, 1, 37);

  /* verify last buffer */

  outbuffer = g_list_last (buffers)->data;

  fail_unless (GST_IS_BUFFER (outbuffer));

  fail_unless_equals_uint64 (GST_BUFFER_TIMESTAMP (outbuffer),

      GST_SECOND * 37 / 25);

  /* cleanup */

  gst_buffer_unref (first);

  gst_buffer_unref (second);

  gst_buffer_unref (third);

  cleanup_videorate (videorate);

  std_log(LOG_FILENAME_LINE, "Test Successful");

  create_xml(0);

}

//GST_END_TEST;

/* send frames with 0, 1, 2, 0 seconds */

void test_wrong_order()

{

  GstElement *videorate;

  GstBuffer *first, *second, *third, *fourth, *outbuffer;

  GstCaps *caps;

  videorate = setup_videorate ();

  fail_unless (gst_element_set_state (videorate,

          GST_STATE_PLAYING) == GST_STATE_CHANGE_SUCCESS,

      "could not set to playing");

  assert_videorate_stats (videorate, "start", 0, 0, 0, 0);

  /* first buffer */

  first = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (first) = 0;

  memset (GST_BUFFER_DATA (first), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (first, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (first, "first", 1);

  gst_buffer_ref (first);

  GST_DEBUG ("pushing first buffer");

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, first) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (first, "first", 2);

  fail_unless_equals_int (g_list_length (buffers), 0);

  assert_videorate_stats (videorate, "first", 1, 0, 0, 0);

  /* second buffer */

  second = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (second) = GST_SECOND;

  memset (GST_BUFFER_DATA (second), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (second, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (second, "second", 1);

  gst_buffer_ref (second);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, second) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (second, "second", 2);

  /* and it created 13 output buffers as copies of the first frame */

  fail_unless_equals_int (g_list_length (buffers), 13);

  assert_videorate_stats (videorate, "second", 2, 13, 0, 12);

  ASSERT_BUFFER_REFCOUNT (first, "first", 14);

  /* third buffer */

  third = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (third) = 2 * GST_SECOND;

  memset (GST_BUFFER_DATA (third), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (third, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (third, "third", 1);

  gst_buffer_ref (third);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, third) == GST_FLOW_OK);

  /* ... and it is now stuck inside videorate */

  ASSERT_BUFFER_REFCOUNT (third, "third", 2);

  /* submitting a frame with 2 seconds triggers output of 25 more frames */

  fail_unless_equals_int (g_list_length (buffers), 38);

  ASSERT_BUFFER_REFCOUNT (first, "first", 14);

  ASSERT_BUFFER_REFCOUNT (second, "second", 26);

  /* three frames submitted; two of them output as is, and 36 duplicated */

  assert_videorate_stats (videorate, "third", 3, 38, 0, 36);

  /* fourth buffer */

  fourth = gst_buffer_new_and_alloc (4);

  GST_BUFFER_TIMESTAMP (fourth) = 0;

  memset (GST_BUFFER_DATA (fourth), 0, 4);

  caps = gst_caps_from_string (VIDEO_CAPS_STRING);

  gst_buffer_set_caps (fourth, caps);

  gst_caps_unref (caps);

  ASSERT_BUFFER_REFCOUNT (fourth, "fourth", 1);

  gst_buffer_ref (fourth);

  /* pushing gives away my reference ... */

  fail_unless (gst_pad_push (mysrcpad, fourth) == GST_FLOW_OK);

  /* ... and it is dropped */

  ASSERT_BUFFER_REFCOUNT (fourth, "fourth", 1);

  fail_unless_equals_int (g_list_length (buffers), 38);

  ASSERT_BUFFER_REFCOUNT (first, "first", 14);

  ASSERT_BUFFER_REFCOUNT (second, "second", 26);

  assert_videorate_stats (videorate, "fourth", 4, 38, 1, 36);