perl-GStreamer r111 - in trunk: . t xs

[tsch svn gnome org]

Author: tsch
Date: Sun Feb 22 12:02:46 2009
New Revision: 111
URL: http://svn.gnome.org/viewvc/perl-GStreamer?rev=111&view=rev

Log:
Wrap gst_pad_is_blocking, gst_pad_peer_query, gst_pad_iterate_internal_links,
and gst_pad_iterate_internal_links_default.


Modified:
   trunk/ChangeLog
   trunk/t/GstPad.t
   trunk/xs/GstPad.xs

Modified: trunk/t/GstPad.t
==============================================================================
--- trunk/t/GstPad.t	(original)
+++ trunk/t/GstPad.t	Sun Feb 22 12:02:46 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests => 39;
+use Test::More tests => 43;
 
 # $Id$
 
@@ -101,3 +101,25 @@
 my $query = GStreamer::Query::Position -> new("time");
 ok(!$pad -> query($query));
 ok(!$pad -> query_default($query));
+
+SKIP: {
+  skip 'new 0.10.11 stuff', 1
+    unless GStreamer->CHECK_VERSION(0, 10, 11);
+
+  ok(defined $pad -> is_blocking());
+}
+
+SKIP: {
+  skip 'new 0.10.15 stuff', 1
+    unless GStreamer->CHECK_VERSION(0, 10, 15);
+
+  ok(defined $pad -> peer_query($query));
+}
+
+SKIP: {
+  skip 'new 0.10.21 stuff', 2
+    unless GStreamer->CHECK_VERSION(0, 10, 21);
+
+  is($pad -> iterate_internal_links(), undef);
+  is($pad -> iterate_internal_links_default(), undef);
+}

Modified: trunk/xs/GstPad.xs
==============================================================================
--- trunk/xs/GstPad.xs	(original)
+++ trunk/xs/GstPad.xs	Sun Feb 22 12:02:46 2009
@@ -241,3 +241,23 @@
 
 # FIXME?
 # gboolean gst_pad_dispatcher (GstPad *pad, GstPadDispatcherFunction dispatch, gpointer data);
+
+#if GST_CHECK_VERSION (0, 10, 11)
+
+gboolean gst_pad_is_blocking (GstPad *pad);
+
+#endif
+
+#if GST_CHECK_VERSION (0, 10, 15)
+
+gboolean gst_pad_peer_query (GstPad *pad, GstQuery *query);
+
+#endif
+
+#if GST_CHECK_VERSION (0, 10, 21)
+
+GstIterator * gst_pad_iterate_internal_links (GstPad *pad);
+
+GstIterator * gst_pad_iterate_internal_links_default (GstPad *pad);
+
+#endif