/* GStreamer

 * Copyright (C) 2005 Wim Taymans <wim@fluendo.com>

 *

 * gstghostpad.c: Unit test for GstGhostPad

 *

 * 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 <gst/check/gstcheck.h>

#include <glib_global.h>

#include <glib.h>

#include <glib/gstdio.h>

#include "libgstreamer_wsd_solution.h" 

#include <libgstreamer_wsd_macros.h>

#ifndef EMULATOR

#define assert_failed *(get_assert_failed())

#define fp_std_log *(get_fp_std_log())

#define xmlfile *(get_xmlfile())

#endif

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

#include "std_log_result.h"

#define LOG_FILENAME_LINE __FILE__, __LINE__

#if EMULATOR

GET_GLOBAL_VAR_FROM_TLS(buffers,gstcheck,GList*)

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

#else 

extern GList *buffers = NULL;

#endif

void create_xml(int result)

{

    if(result)

        assert_failed = 1;

    testResultXml(xmlfile);

    close_log_file();

}

/* test if removing a bin also cleans up the ghostpads

 */

void test_remove1()

{

  GstElement *b1, *b2, *src, *sink;

  GstPad *srcpad, *sinkpad;

  GstPadLinkReturn ret;

	xmlfile = "gstghostpad_test_remove1";

	std_log(LOG_FILENAME_LINE, "Test Started test_remove1");

  b1 = gst_element_factory_make ("pipeline", NULL);

  b2 = gst_element_factory_make ("bin", NULL);

  src = gst_element_factory_make ("fakesrc", NULL);

  sink = gst_element_factory_make ("fakesink", NULL);

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  ASSERT_OBJECT_REFCOUNT (b2, "bin", 1);

  fail_unless (gst_bin_add (GST_BIN (b2), sink));

  fail_unless (gst_bin_add (GST_BIN (b1), src));

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  ASSERT_OBJECT_REFCOUNT (b2, "bin", 1);

  fail_unless (gst_bin_add (GST_BIN (b1), b2));

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  ASSERT_OBJECT_REFCOUNT (b2, "bin", 1);

  sinkpad = gst_element_get_pad (sink, "sink");

  gst_element_add_pad (b2, gst_ghost_pad_new ("sink", sinkpad));

  gst_object_unref (sinkpad);

  srcpad = gst_element_get_pad (src, "src");

  /* get the ghostpad */

  sinkpad = gst_element_get_pad (b2, "sink");

  ret = gst_pad_link (srcpad, sinkpad);

  fail_unless (ret == GST_PAD_LINK_OK);

  gst_object_unref (srcpad);

  gst_object_unref (sinkpad);

  /* now remove the bin with the ghostpad, b2 is disposed now. */

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  ASSERT_OBJECT_REFCOUNT (b2, "bin", 1);

  gst_bin_remove (GST_BIN (b1), b2);

  srcpad = gst_element_get_pad (src, "src");

  /* pad cannot be linked now */

  fail_if (gst_pad_is_linked (srcpad));

  gst_object_unref (srcpad);

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  gst_object_unref (b1);

  std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

/* test if removing a bin also cleans up the ghostpads

 */

void test_remove2()

{

  GstElement *b1, *b2, *src, *sink;

  GstPad *srcpad, *sinkpad;

  GstPadLinkReturn ret;

	xmlfile = "gstghostpad_testremove2";

  std_log(LOG_FILENAME_LINE, "Test Started test_remove2");  

  b1 = gst_element_factory_make ("pipeline", NULL);

  b2 = gst_element_factory_make ("bin", NULL);

  src = gst_element_factory_make ("fakesrc", NULL);

  sink = gst_element_factory_make ("fakesink", NULL);

  ASSERT_OBJECT_REFCOUNT (src, "src", 1);

  fail_unless (gst_bin_add (GST_BIN (b2), sink));

  fail_unless (gst_bin_add (GST_BIN (b1), src));

  fail_unless (gst_bin_add (GST_BIN (b1), b2));

  ASSERT_OBJECT_REFCOUNT (src, "src", 1);

  sinkpad = gst_element_get_pad (sink, "sink");

  gst_element_add_pad (b2, gst_ghost_pad_new ("sink", sinkpad));

  gst_object_unref (sinkpad);

  srcpad = gst_element_get_pad (src, "src");

  ASSERT_OBJECT_REFCOUNT (srcpad, "srcpad", 2); /* since we got one */

  /* get the ghostpad */

  sinkpad = gst_element_get_pad (b2, "sink");

  ASSERT_OBJECT_REFCOUNT (sinkpad, "sinkpad", 2);       /* since we got one */

  GST_DEBUG ("linking srcpad and sinkpad");

  ret = gst_pad_link (srcpad, sinkpad);

  GST_DEBUG ("linked srcpad and sinkpad");

  fail_unless (ret == GST_PAD_LINK_OK);

  /* the linking causes a proxypad to be created for srcpad,

   * to which sinkpad gets linked.  This proxypad has a ref to srcpad */

  ASSERT_OBJECT_REFCOUNT (srcpad, "srcpad", 3);

  ASSERT_OBJECT_REFCOUNT (sinkpad, "sinkpad", 2);

  gst_object_unref (srcpad);

  gst_object_unref (sinkpad);

  /* now remove the sink from the bin */

  gst_bin_remove (GST_BIN (b2), sink);

  srcpad = gst_element_get_pad (src, "src");

  /* pad is still linked to ghostpad */

  fail_if (!gst_pad_is_linked (srcpad));

  ASSERT_OBJECT_REFCOUNT (src, "src", 1);

  ASSERT_OBJECT_REFCOUNT (srcpad, "srcpad", 3);

  gst_object_unref (srcpad);

  ASSERT_OBJECT_REFCOUNT (sinkpad, "sinkpad", 1);

  /* cleanup */

  /* now unlink the pads */

  gst_pad_unlink (srcpad, sinkpad);

  ASSERT_OBJECT_REFCOUNT (srcpad, "srcpad", 1); /* proxy has dropped ref */

  ASSERT_OBJECT_REFCOUNT (sinkpad, "sinkpad", 1);

  ASSERT_OBJECT_REFCOUNT (src, "src", 1);

  ASSERT_OBJECT_REFCOUNT (b2, "bin", 1);

  /* remove b2 from b1 */

  gst_bin_remove (GST_BIN (b1), b2);

  /* flush the message, dropping the b1 refcount to 1 */

  gst_element_set_state (b1, GST_STATE_READY);

  gst_element_set_state (b1, GST_STATE_NULL);

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  gst_object_unref (b1);

	std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

/* test if a ghost pad without a target can be linked and

 * unlinked. An untargeted ghostpad has a default ANY caps unless there 

 * is a padtemplate that says something else.

 */

void test_ghost_pads_notarget()

{

  GstElement *b1, *b2, *sink;

  GstPad *srcpad, *sinkpad, *peer;

  GstPadLinkReturn ret;

  gboolean bret;

  GstBus *bus;

  GstCaps *caps;

	xmlfile = "gstghostpad_test_ghost_pads_notarget";

  std_log(LOG_FILENAME_LINE, "Test Started test_ghost_pads_notarget");  

  b1 = gst_element_factory_make ("pipeline", NULL);

  /* make sure all messages are discarded */

  bus = gst_pipeline_get_bus (GST_PIPELINE (b1));

  gst_bus_set_flushing (bus, TRUE);

  gst_object_unref (bus);

  b2 = gst_element_factory_make ("bin", NULL);

  sink = gst_element_factory_make ("fakesink", NULL);

  fail_unless (gst_bin_add (GST_BIN (b1), sink));

  fail_unless (gst_bin_add (GST_BIN (b1), b2));

  srcpad = gst_ghost_pad_new_no_target ("src", GST_PAD_SRC);

  fail_unless (srcpad != NULL);

  sinkpad = gst_element_get_pad (sink, "sink");

  fail_unless (sinkpad != NULL);

  ret = gst_pad_link (srcpad, sinkpad);

  fail_unless (ret == GST_PAD_LINK_OK);

  /* check if the peers are ok */

  peer = gst_pad_get_peer (srcpad);

  fail_unless (peer == sinkpad);

  gst_object_unref (peer);

  peer = gst_pad_get_peer (sinkpad);

  fail_unless (peer == srcpad);

  gst_object_unref (peer);

  /* check caps, untargetted pad should return ANY or the padtemplate caps 

   * when it was created from a template */

  caps = gst_pad_get_caps (srcpad);

  fail_unless (gst_caps_is_any (caps));

  gst_caps_unref (caps);

  /* unlink */

  bret = gst_pad_unlink (srcpad, sinkpad);

  fail_unless (bret == TRUE);

  /* cleanup */

  gst_object_unref (srcpad);

  gst_object_unref (sinkpad);

  gst_object_unref (b1);

	std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

/* test if linking fails over different bins using a pipeline

 * like this:

 *

 * fakesrc num_buffers=10 ! ( fakesink )

 *

 */

void test_link()

{

  GstElement *b1, *b2, *src, *sink;

  GstPad *srcpad, *sinkpad, *gpad;

  GstPadLinkReturn ret;

	xmlfile = "gstghostpad_test_link";

  std_log(LOG_FILENAME_LINE, "Test Started test_link");  

  b1 = gst_element_factory_make ("pipeline", NULL);

  b2 = gst_element_factory_make ("bin", NULL);

  src = gst_element_factory_make ("fakesrc", NULL);

  sink = gst_element_factory_make ("fakesink", NULL);

  fail_unless (gst_bin_add (GST_BIN (b2), sink));

  fail_unless (gst_bin_add (GST_BIN (b1), src));

  fail_unless (gst_bin_add (GST_BIN (b1), b2));

  srcpad = gst_element_get_pad (src, "src");

  fail_unless (srcpad != NULL);

  sinkpad = gst_element_get_pad (sink, "sink");

  fail_unless (sinkpad != NULL);

  /* linking in different hierarchies should fail */

  ret = gst_pad_link (srcpad, sinkpad);

  fail_unless (ret == GST_PAD_LINK_WRONG_HIERARCHY);

  /* now setup a ghostpad */

  gpad = gst_ghost_pad_new ("sink", sinkpad);

  gst_object_unref (sinkpad);

  /* need to ref as _add_pad takes ownership */

  gst_object_ref (gpad);

  gst_element_add_pad (b2, gpad);

  /* our new sinkpad */

  sinkpad = gpad;

  /* and linking should work now */

  ret = gst_pad_link (srcpad, sinkpad);

  fail_unless (ret == GST_PAD_LINK_OK);

  /* flush the message, dropping the b1 refcount to 1 */

  gst_element_set_state (b1, GST_STATE_READY);

  gst_element_set_state (b1, GST_STATE_NULL);

  ASSERT_OBJECT_REFCOUNT (b1, "pipeline", 1);

  gst_object_unref (srcpad);

  gst_object_unref (sinkpad);

  gst_object_unref (b1);

  std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

/* test if ghostpads are created automagically when using

 * gst_element_link_pads.

 *

 * fakesrc num_buffers=10 ! ( identity ) ! fakesink

 */

void test_ghost_pads()

{

  GstElement *b1, *b2, *src, *i1, *sink;

  GstPad *gsink, *gsrc, *gisrc, *gisink, *isink, *isrc, *fsrc, *fsink;

  GstStateChangeReturn ret;

	xmlfile = "gstghostpad_test_ghost_pads";

	std_log(LOG_FILENAME_LINE, "Test Started test_ghost_pads");  

  b1 = gst_element_factory_make ("pipeline", NULL);

  b2 = gst_element_factory_make ("bin", NULL);

  src = gst_element_factory_make ("fakesrc", NULL);

  g_object_set (src, "num-buffers", (int) 10, NULL);

  i1 = gst_element_factory_make ("identity", NULL);

  sink = gst_element_factory_make ("fakesink", NULL);

  fail_unless (gst_bin_add (GST_BIN (b2), i1));

  fail_unless (gst_bin_add (GST_BIN (b1), src));

  fail_unless (gst_bin_add (GST_BIN (b1), b2));

  fail_unless (gst_bin_add (GST_BIN (b1), sink));

  fail_unless (gst_element_link_pads (src, NULL, i1, NULL));

  fail_unless (gst_element_link_pads (i1, NULL, sink, NULL));

  GST_OBJECT_LOCK (b2);

  fail_unless (b2->numsinkpads == 1);

  fail_unless (GST_IS_GHOST_PAD (b2->sinkpads->data));

  fail_unless (b2->numsrcpads == 1);

  fail_unless (GST_IS_GHOST_PAD (b2->srcpads->data));

  GST_OBJECT_UNLOCK (b2);

  fsrc = gst_element_get_pad (src, "src");

  fail_unless (fsrc != NULL);

  gsink = GST_PAD (gst_object_ref (b2->sinkpads->data));

  fail_unless (gsink != NULL);

  gsrc = GST_PAD (gst_object_ref (b2->srcpads->data));

  fail_unless (gsrc != NULL);

  fsink = gst_element_get_pad (sink, "sink");

  fail_unless (fsink != NULL);

  isink = gst_element_get_pad (i1, "sink");

  fail_unless (isink != NULL);

  isrc = gst_element_get_pad (i1, "src");

  fail_unless (isrc != NULL);

  gisrc = gst_pad_get_peer (isink);

  fail_unless (gisrc != NULL);

  gisink = gst_pad_get_peer (isrc);

  fail_unless (gisink != NULL);

  /* all objects above have one refcount owned by us as well */

  ASSERT_OBJECT_REFCOUNT (fsrc, "fsrc", 3);     /* parent and gisrc */

  ASSERT_OBJECT_REFCOUNT (gsink, "gsink", 2);   /* parent */

  ASSERT_OBJECT_REFCOUNT (gsrc, "gsrc", 2);     /* parent */

  ASSERT_OBJECT_REFCOUNT (fsink, "fsink", 3);   /* parent and gisink */

  ASSERT_OBJECT_REFCOUNT (gisrc, "gisrc", 2);   /* parent */

  ASSERT_OBJECT_REFCOUNT (isink, "isink", 3);   /* parent and gsink */

  ASSERT_OBJECT_REFCOUNT (gisink, "gisink", 2); /* parent */

  ASSERT_OBJECT_REFCOUNT (isrc, "isrc", 3);     /* parent and gsrc */

  ret = gst_element_set_state (b1, GST_STATE_PLAYING);

  ret = gst_element_get_state (b1, NULL, NULL, GST_CLOCK_TIME_NONE);

  fail_unless (ret == GST_STATE_CHANGE_SUCCESS);

  ret = gst_element_set_state (b1, GST_STATE_NULL);

  ret = gst_element_get_state (b1, NULL, NULL, GST_CLOCK_TIME_NONE);

  fail_unless (ret == GST_STATE_CHANGE_SUCCESS);

  gst_object_unref (b1);

  /* unreffing the bin will unref all elements, which will unlink and unparent

   * all pads */

  /* wait for thread to settle down */

  while (GST_OBJECT_REFCOUNT_VALUE (fsrc) > 2)

    THREAD_SWITCH ();

  ASSERT_OBJECT_REFCOUNT (fsrc, "fsrc", 1);

  ASSERT_OBJECT_REFCOUNT (gsink, "gsink", 1);

  ASSERT_OBJECT_REFCOUNT (gsrc, "gsink", 1);

  ASSERT_OBJECT_REFCOUNT (fsink, "fsink", 1);

  ASSERT_OBJECT_REFCOUNT (gisrc, "gisrc", 2);   /* gsink */

  ASSERT_OBJECT_REFCOUNT (gisink, "gisink", 2); /* gsrc */

  gst_object_unref (gsink);

  ASSERT_OBJECT_REFCOUNT (isink, "isink", 1);

  ASSERT_OBJECT_REFCOUNT (gisrc, "gisrc", 1);

  ASSERT_OBJECT_REFCOUNT (fsrc, "fsrc", 1);

  gst_object_unref (gisrc);

  ASSERT_OBJECT_REFCOUNT (fsrc, "fsrc", 1);

  gst_object_unref (gsrc);

  ASSERT_OBJECT_REFCOUNT (isrc, "isrc", 1);

  ASSERT_OBJECT_REFCOUNT (gisink, "gisink", 1);

  ASSERT_OBJECT_REFCOUNT (fsink, "fsink", 1);

  gst_object_unref (gisink);

  ASSERT_OBJECT_REFCOUNT (fsink, "fsink", 1);

  gst_object_unref (fsrc);

  gst_object_unref (isrc);

  gst_object_unref (isink);

  gst_object_unref (fsink);

  std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

void test_ghost_pads_bin()

{

  GstBin *pipeline;

  GstBin *srcbin;

  GstBin *sinkbin;

  GstElement *src;

  GstElement *sink;

  GstPad *srcpad, *srcghost, *target;

  GstPad *sinkpad, *sinkghost;

	xmlfile = "gstghostpad_test_ghost_pads_bin";

  std_log(LOG_FILENAME_LINE, "Test Started test_ghost_pads_bin");  

  pipeline = GST_BIN (gst_pipeline_new ("pipe"));

  ASSERT_OBJECT_REFCOUNT (pipeline, "pipeline", 1);

  srcbin = GST_BIN (gst_bin_new ("srcbin"));

  gst_bin_add (pipeline, GST_ELEMENT (srcbin));

  ASSERT_OBJECT_REFCOUNT (pipeline, "pipeline", 1);

  sinkbin = GST_BIN (gst_bin_new ("sinkbin"));

  gst_bin_add (pipeline, GST_ELEMENT (sinkbin));

  ASSERT_OBJECT_REFCOUNT (pipeline, "pipeline", 1);

  src = gst_element_factory_make ("fakesrc", "src");

  gst_bin_add (srcbin, src);

  srcpad = gst_element_get_pad (src, "src");

  srcghost = gst_ghost_pad_new ("src", srcpad);

  gst_object_unref (srcpad);

  gst_element_add_pad (GST_ELEMENT (srcbin), srcghost);

  sink = gst_element_factory_make ("fakesink", "sink");

  gst_bin_add (sinkbin, sink);

  sinkpad = gst_element_get_pad (sink, "sink");

  sinkghost = gst_ghost_pad_new ("sink", sinkpad);

  gst_object_unref (sinkpad);

  gst_element_add_pad (GST_ELEMENT (sinkbin), sinkghost);

  gst_element_link (GST_ELEMENT (srcbin), GST_ELEMENT (sinkbin));

  fail_unless (GST_PAD_PEER (srcghost) != NULL);

  fail_unless (GST_PAD_PEER (sinkghost) != NULL);

  target = gst_ghost_pad_get_target (GST_GHOST_PAD (srcghost));

  fail_unless (GST_PAD_PEER (target) != NULL);

  gst_object_unref (target);

  target = gst_ghost_pad_get_target (GST_GHOST_PAD (sinkghost));

  fail_unless (GST_PAD_PEER (target) != NULL);

  gst_object_unref (target);

  ASSERT_OBJECT_REFCOUNT (pipeline, "pipeline", 1);

  gst_object_unref (pipeline);

  std_log(LOG_FILENAME_LINE, "Test Successful");

	create_xml(0);

}

typedef struct

{

  GMutex *mutex;

  GCond *cond;

} BlockData;

static void

block_callback (GstPad * pad, gboolean blocked, gpointer user_data)

{

  BlockData *block_data = (BlockData *) user_data;

  g_mutex_lock (block_data->mutex);

  GST_DEBUG ("blocked\n");

  g_cond_signal (block_data->cond);

  g_mutex_unlock (block_data->mutex);

}

void test_ghost_pads_block()

{

  GstBin *pipeline;

  GstBin *srcbin;

  GstElement *src;

  GstPad *srcpad;

  GstPad *srcghost;

  BlockData block_data;

	xmlfile = "gstghostpad_test_ghost_pads_block";

  std_log(LOG_FILENAME_LINE, "Test Started test_ghost_pads_block");  

  pipeline = GST_BIN (gst_pipeline_new ("pipeline"));

  srcbin = GST_BIN (gst_bin_new ("srcbin"));

  gst_bin_add (pipeline, GST_ELEMENT (srcbin));

  src = gst_element_factory_make ("fakesrc", "src");

  gst_bin_add (srcbin, src);

  srcpad = gst_element_get_pad (src, "src");

  srcghost = gst_ghost_pad_new ("src", srcpad);

  gst_element_add_pad (GST_ELEMENT (srcbin), srcghost);

  gst_object_unref (srcpad);

  block_data.mutex = g_mutex_new ();

  block_data.cond = g_cond_new ();

  g_mutex_lock (block_data.mutex);

  gst_pad_set_blocked_async (srcghost, TRUE, block_callback, &block_data);

  gst_element_set_state (GST_ELEMENT (pipeline), GST_STATE_PLAYING);

  /* and wait now */