/* GStreamer simple seek unit test

 * Copyright (C) 2012 Collabora Ltd.

 *   Author: Tim-Philipp Müller <tim.muller@collabora.co.uk>

 * Copyright (C) Julien Isorce <jisorce@oblong.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.

 */

#ifdef HAVE_CONFIG_H

# include <config.h>

#endif

#include <gst/gst.h>

#include <gst/base/gstbaseparse.h>

#include <gst/base/gstbasesrc.h>

#include <gst/check/gstcheck.h>

#include <gst/check/gstconsistencychecker.h>

/* ========================================================================

 *  Dummy source, like a stripped down audio test source

 * ======================================================================== */

#define SAMPLERATE 44100

#define CHUNKS_PER_SEC 10

typedef struct

{

  GstBaseSrc parent;

  GstClockTime next_time;

} TimedTestSrc;

typedef struct

{

  GstBaseSrcClass parent_class;

} TimedTestSrcClass;

static GstStaticPadTemplate timed_test_src_src_template =

GST_STATIC_PAD_TEMPLATE ("src",

    GST_PAD_SRC,

    GST_PAD_ALWAYS,

    GST_STATIC_CAPS ("timed/audio"));

static GType timed_test_src_get_type (void);

G_DEFINE_TYPE (TimedTestSrc, timed_test_src, GST_TYPE_BASE_SRC);

static gboolean timed_test_src_is_seekable (GstBaseSrc * basesrc);

static gboolean timed_test_src_do_seek (GstBaseSrc * basesrc,

    GstSegment * segment);

static gboolean timed_test_src_start (GstBaseSrc * basesrc);

static gboolean timed_test_src_stop (GstBaseSrc * basesrc);

static GstFlowReturn timed_test_src_create (GstBaseSrc * basesrc,

    guint64 offset, guint length, GstBuffer ** buffer);

static void

timed_test_src_class_init (TimedTestSrcClass * klass)

{

  GstBaseSrcClass *gstbasesrc_class = (GstBaseSrcClass *) klass;

  gstbasesrc_class->is_seekable = timed_test_src_is_seekable;

  gstbasesrc_class->do_seek = timed_test_src_do_seek;

  gstbasesrc_class->start = timed_test_src_start;

  gstbasesrc_class->stop = timed_test_src_stop;

  gstbasesrc_class->create = timed_test_src_create;

  gst_element_class_add_static_pad_template (GST_ELEMENT_CLASS (klass),

      &timed_test_src_src_template);

}

static void

timed_test_src_init (TimedTestSrc * src)

{

  gst_base_src_set_format (GST_BASE_SRC (src), GST_FORMAT_TIME);

  gst_base_src_set_live (GST_BASE_SRC (src), FALSE);

}

static gboolean

timed_test_src_start (GstBaseSrc * basesrc)

{

  TimedTestSrc *src = (TimedTestSrc *) basesrc;

  src->next_time = 0;

  return TRUE;

}

static gboolean

timed_test_src_stop (GstBaseSrc * basesrc)

{

  return TRUE;

}

static gboolean

timed_test_src_do_seek (GstBaseSrc * basesrc, GstSegment * segment)

{

  TimedTestSrc *src = (TimedTestSrc *) basesrc;

  src->next_time = segment->position;

  return TRUE;

}

static gboolean

timed_test_src_is_seekable (GstBaseSrc * basesrc)

{

  return TRUE;

}

static GstFlowReturn

timed_test_src_create (GstBaseSrc * basesrc, guint64 offset, guint length,

    GstBuffer ** buf)

{

  TimedTestSrc *src = (TimedTestSrc *) basesrc;

  *buf = gst_buffer_new_and_alloc (SAMPLERATE / CHUNKS_PER_SEC);

  GST_BUFFER_TIMESTAMP (*buf) = src->next_time;

  GST_BUFFER_DURATION (*buf) = GST_SECOND / CHUNKS_PER_SEC;

  src->next_time += GST_BUFFER_DURATION (*buf);

  return GST_FLOW_OK;

}

/* ========================================================================

 *  Dummy parser

 * ======================================================================== */

typedef struct

{

  GstBaseParse parent;

  gboolean caps_set;

} DummyParser;

typedef struct

{

  GstBaseParseClass parent_class;

} DummyParserClass;

static GType dummy_parser_get_type (void);

G_DEFINE_TYPE (DummyParser, dummy_parser, GST_TYPE_BASE_PARSE);

static gboolean

dummy_parser_start (GstBaseParse * parse)

{

  return TRUE;

}

static gboolean

dummy_parser_stop (GstBaseParse * parse)

{

  return TRUE;

}

static GstFlowReturn

dummy_parser_handle_frame (GstBaseParse * parse,

    GstBaseParseFrame * frame, gint * skipsize)

{

  if (((DummyParser *) parse)->caps_set == FALSE) {

    GstCaps *caps;

    /* push caps */

    caps = gst_caps_new_empty_simple ("ANY");

    gst_pad_set_caps (GST_BASE_PARSE_SRC_PAD (parse), caps);

    gst_caps_unref (caps);

    ((DummyParser *) parse)->caps_set = TRUE;

  }

  GST_BUFFER_DURATION (frame->buffer) = GST_SECOND / 10;

  return gst_base_parse_finish_frame (parse, frame,

      gst_buffer_get_size (frame->buffer));

}

static gboolean

dummy_parser_set_sink_caps (GstBaseParse * parse, GstCaps * caps)

{

  gst_pad_set_caps (GST_BASE_PARSE_SRC_PAD (parse), caps);

  return TRUE;

}

static gboolean

dummy_parser_src_event (GstBaseParse * parse, GstEvent * event)

{

  switch (GST_EVENT_TYPE (event)) {

    default:

      GST_INFO ("src event %s", GST_EVENT_TYPE_NAME (event));

      break;

  }

  return GST_BASE_PARSE_CLASS (dummy_parser_parent_class)->src_event (parse,

      event);

}

static void

dummy_parser_class_init (DummyParserClass * klass)

{

  GstElementClass *element_class = GST_ELEMENT_CLASS (klass);

  GstBaseParseClass *baseparse_class = GST_BASE_PARSE_CLASS (klass);

  static GstStaticPadTemplate sink_templ = GST_STATIC_PAD_TEMPLATE ("sink",

      GST_PAD_SINK, GST_PAD_ALWAYS,

      GST_STATIC_CAPS_ANY);

  static GstStaticPadTemplate src_templ = GST_STATIC_PAD_TEMPLATE ("src",

      GST_PAD_SRC, GST_PAD_ALWAYS,

      GST_STATIC_CAPS_ANY);

  gst_element_class_add_static_pad_template (element_class, &sink_templ);

  gst_element_class_add_static_pad_template (element_class, &src_templ);

  gst_element_class_set_metadata (element_class,

      "DummyParser", "Parser/Video", "empty", "empty");

  baseparse_class->start = GST_DEBUG_FUNCPTR (dummy_parser_start);

  baseparse_class->stop = GST_DEBUG_FUNCPTR (dummy_parser_stop);

  baseparse_class->handle_frame = GST_DEBUG_FUNCPTR (dummy_parser_handle_frame);

  baseparse_class->set_sink_caps =

      GST_DEBUG_FUNCPTR (dummy_parser_set_sink_caps);

  baseparse_class->src_event = GST_DEBUG_FUNCPTR (dummy_parser_src_event);

}

static void

dummy_parser_init (DummyParser * parser)

{

  parser->caps_set = FALSE;

}

/* ======================================================================== */

GST_START_TEST (test_seek)

{

  GstMessage *msg;

  GstElement *bin, *src1, *sink;

  gboolean res;

  GstPad *srcpad;

  GstBus *bus;

  GST_INFO ("preparing test");

  /* build pipeline */

  bin = gst_pipeline_new ("pipeline");

  bus = gst_element_get_bus (bin);

  gst_bus_add_signal_watch_full (bus, G_PRIORITY_HIGH);

  src1 = g_object_new (timed_test_src_get_type (), "name", "testsrc", NULL);

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

  gst_bin_add_many (GST_BIN (bin), src1, sink, NULL);

  res = gst_element_link (src1, sink);

  fail_unless (res == TRUE, NULL);

  srcpad = gst_element_get_static_pad (src1, "src");

  gst_object_unref (srcpad);

  GST_INFO ("starting test");

  /* prepare playing */

  res = gst_element_set_state (bin, GST_STATE_PAUSED);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  /* wait for completion */

  res =

      gst_element_get_state (GST_ELEMENT (bin), NULL, NULL,

      GST_CLOCK_TIME_NONE);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  res = gst_element_send_event (bin,

      gst_event_new_seek (1.0, GST_FORMAT_TIME, GST_SEEK_FLAG_FLUSH,

          GST_SEEK_TYPE_SET, (GstClockTime) 0,

          GST_SEEK_TYPE_SET, (GstClockTime) 2 * GST_SECOND));

  fail_unless (res == TRUE, NULL);

  GST_INFO ("seeked");

  /* run pipeline */

  res = gst_element_set_state (bin, GST_STATE_PLAYING);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  msg = gst_bus_timed_pop_filtered (bus, GST_CLOCK_TIME_NONE,

      GST_MESSAGE_EOS | GST_MESSAGE_ERROR);

  fail_unless_equals_string (GST_MESSAGE_TYPE_NAME (msg), "eos");

  gst_message_unref (msg);

  res = gst_element_set_state (bin, GST_STATE_NULL);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  /* cleanup */

  gst_bus_remove_signal_watch (bus);

  gst_object_unref (bus);

  gst_object_unref (bin);

}

GST_END_TEST;

/* This test checks that the pipeline does not wait for nothing after

 * sending the non-flush seek event. */

GST_START_TEST (test_loopback_1)

{

  GstMessage *msg;

  GstElement *bin, *source, *parser, *sink;

  gboolean res;

  GstPad *sinkpad;

  GstBus *bus;

  guint seek_flags;

  GST_INFO

      ("construct the test pipeline fakesrc ! testparse ! fakesink sync=1");

  bin = gst_pipeline_new ("pipeline");

  bus = gst_element_get_bus (bin);

  gst_bus_add_signal_watch_full (bus, G_PRIORITY_HIGH);

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

  parser = g_object_new (dummy_parser_get_type (), "name", "testparse", NULL);

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

  gst_bin_add_many (GST_BIN (bin), source, parser, sink, NULL);

  res = gst_element_link (source, parser);

  fail_unless (res == TRUE, NULL);

  res = gst_element_link (parser, sink);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("configure elements");

  g_object_set (G_OBJECT (source),

      "format", GST_FORMAT_BYTES,

      "can-activate-pull", TRUE,

      "can-activate-push", FALSE,

      "is-live", FALSE,

      "sizemax", 65536, "sizetype", 2 /* FAKE_SRC_SIZETYPE_FIXED */ ,

      "num-buffers", 35, NULL);

  /* Sync true is required for this test. */

  g_object_set (G_OBJECT (sink), "sync", TRUE, NULL);

  GST_INFO ("set paused state");

  res = gst_element_set_state (bin, GST_STATE_PAUSED);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  GST_INFO ("wait for completion");

  res =

      gst_element_get_state (GST_ELEMENT (bin), NULL, NULL,

      GST_CLOCK_TIME_NONE);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  GST_INFO ("paused state reached");

  fail_unless (GST_BASE_SRC (source)->random_access);

  sinkpad = gst_element_get_static_pad (parser, "sink");

  fail_unless (GST_PAD_MODE (sinkpad) == GST_PAD_MODE_PULL);

  gst_object_unref (sinkpad);

  GST_INFO ("flush seek");

  seek_flags =

      GST_SEEK_FLAG_FLUSH | GST_SEEK_FLAG_ACCURATE | GST_SEEK_FLAG_SEGMENT;

  res = gst_element_seek (bin, 1.0, GST_FORMAT_TIME, seek_flags,

      GST_SEEK_TYPE_SET, (GstClockTime) 0,

      GST_SEEK_TYPE_SET, (GstClockTime) 2 * GST_SECOND);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("set playing state");

  res = gst_element_set_state (bin, GST_STATE_PLAYING);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  msg = gst_bus_timed_pop_filtered (bus, GST_CLOCK_TIME_NONE,

      GST_MESSAGE_SEGMENT_DONE | GST_MESSAGE_ERROR);

  fail_unless_equals_string (GST_MESSAGE_TYPE_NAME (msg), "segment-done");

  gst_message_unref (msg);

  GST_INFO ("warm-up sequence done");

  seek_flags &= ~GST_SEEK_FLAG_FLUSH;

  fail_if (seek_flags & GST_SEEK_FLAG_FLUSH, NULL);

  GST_INFO ("non-flush seek");

  res =

      gst_element_seek (bin, 1.0, GST_FORMAT_TIME, seek_flags,

      GST_SEEK_TYPE_SET, (GstClockTime) 0, GST_SEEK_TYPE_SET,

      (GstClockTime) 3 * GST_SECOND);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("wait for segment done message");

  msg = gst_bus_timed_pop_filtered (bus, (GstClockTime) 2 * GST_SECOND,

      GST_MESSAGE_SEGMENT_DONE | GST_MESSAGE_ERROR);

  /* Make sure the pipeline is not waiting for nothing because the base time is

   *  screwed up. */

  fail_unless (msg, "no message within the timed window");

  fail_unless_equals_string (GST_MESSAGE_TYPE_NAME (msg), "segment-done");

  gst_message_unref (msg);

  res = gst_element_set_state (bin, GST_STATE_NULL);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  /* cleanup */

  gst_bus_remove_signal_watch (bus);

  gst_object_unref (bus);

  gst_object_unref (bin);

}

GST_END_TEST;

/* This test checks that the pipeline does not play the media instantly

 * after sending the non-flush seek event. */

GST_START_TEST (test_loopback_2)

{

  GstMessage *msg;

  GstElement *bin, *source, *parser, *sink;

  gboolean res;

  GstPad *sinkpad;

  GstBus *bus;

  guint seek_flags;

  gint64 position = GST_CLOCK_TIME_NONE;

  gint64 playback_duration = GST_CLOCK_TIME_NONE;

  gint64 start_absolute_time = GST_CLOCK_TIME_NONE;

  GST_INFO

      ("construct the test pipeline fakesrc ! testparse ! fakesink sync=1");

  bin = gst_pipeline_new ("pipeline");

  bus = gst_element_get_bus (bin);

  gst_bus_add_signal_watch_full (bus, G_PRIORITY_HIGH);

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

  parser = g_object_new (dummy_parser_get_type (), "name", "testparse", NULL);

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

  gst_bin_add_many (GST_BIN (bin), source, parser, sink, NULL);

  res = gst_element_link (source, parser);

  fail_unless (res == TRUE, NULL);

  res = gst_element_link (parser, sink);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("configure elements");

  g_object_set (G_OBJECT (source),

      "format", GST_FORMAT_BYTES,

      "can-activate-pull", TRUE,

      "can-activate-push", FALSE,

      "is-live", FALSE,

      "sizemax", 65536, "sizetype", 2 /* FAKE_SRC_SIZETYPE_FIXED */ ,

      NULL);

  /* Sync true is required for this test. */

  g_object_set (G_OBJECT (sink), "sync", TRUE, NULL);

  GST_INFO ("set paused state");

  res = gst_element_set_state (bin, GST_STATE_PAUSED);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  GST_INFO ("wait for completion");

  res =

      gst_element_get_state (GST_ELEMENT (bin), NULL, NULL,

      GST_CLOCK_TIME_NONE);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  GST_INFO ("paused state reached");

  fail_unless (GST_BASE_SRC (source)->random_access);

  sinkpad = gst_element_get_static_pad (parser, "sink");

  fail_unless (GST_PAD_MODE (sinkpad) == GST_PAD_MODE_PULL);

  gst_object_unref (sinkpad);

  GST_INFO ("flush seek");

  seek_flags =

      GST_SEEK_FLAG_FLUSH | GST_SEEK_FLAG_ACCURATE | GST_SEEK_FLAG_SEGMENT;

  res = gst_element_seek (bin, 1.0, GST_FORMAT_TIME, seek_flags,

      GST_SEEK_TYPE_SET, (GstClockTime) 0,

      GST_SEEK_TYPE_SET, (GstClockTime) 2 * GST_SECOND);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("set playing state");

  res = gst_element_set_state (bin, GST_STATE_PLAYING);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  msg = gst_bus_timed_pop_filtered (bus, GST_CLOCK_TIME_NONE,

      GST_MESSAGE_SEGMENT_DONE | GST_MESSAGE_ERROR);

  fail_unless_equals_string (GST_MESSAGE_TYPE_NAME (msg), "segment-done");

  gst_message_unref (msg);

  GST_INFO ("warm-up sequence done");

  seek_flags &= ~GST_SEEK_FLAG_FLUSH;

  fail_if (seek_flags & GST_SEEK_FLAG_FLUSH, NULL);

  GST_INFO ("non-flush seek");

  start_absolute_time = gst_clock_get_time (GST_ELEMENT_CLOCK (bin));

  res =

      gst_element_seek (bin, 1.0, GST_FORMAT_TIME, seek_flags,

      GST_SEEK_TYPE_SET, (GstClockTime) 0, GST_SEEK_TYPE_SET,

      (GstClockTime) 2 * GST_SECOND);

  fail_unless (res == TRUE, NULL);

  GST_INFO ("wait for segment done message");

  msg = gst_bus_timed_pop_filtered (bus, (GstClockTime) 2 * GST_SECOND,

      GST_MESSAGE_SEGMENT_DONE | GST_MESSAGE_ERROR);

  fail_unless (msg, "no message within the timed window");

  fail_unless_equals_string (GST_MESSAGE_TYPE_NAME (msg), "segment-done");

  gst_message_parse_segment_done (msg, NULL, &position);

  gst_message_unref (msg);

  GST_INFO ("final position: %" G_GINT64_FORMAT, position);

  fail_unless (position == 2 * GST_SECOND);

  playback_duration =

      GST_CLOCK_DIFF (start_absolute_time,

      gst_clock_get_time (GST_ELEMENT_CLOCK (bin)));

  GST_INFO ("test duration: %" G_GINT64_FORMAT, playback_duration);

  fail_unless (playback_duration > GST_SECOND,

      "playback duration should be near 2 seconds");

  res = gst_element_set_state (bin, GST_STATE_NULL);

  fail_unless (res != GST_STATE_CHANGE_FAILURE, NULL);

  /* cleanup */

  gst_bus_remove_signal_watch (bus);

  gst_object_unref (bus);

  gst_object_unref (bin);

}

GST_END_TEST;

static Suite *

pipelines_seek_suite (void)

{

  Suite *s = suite_create ("pipelines-seek");

  TCase *tc_chain = tcase_create ("general");

  suite_add_tcase (s, tc_chain);

  tcase_add_test (tc_chain, test_seek);

  tcase_add_test (tc_chain, test_loopback_1);

  tcase_add_test (tc_chain, test_loopback_2);

  return s;

}

GST_CHECK_MAIN (pipelines_seek);