perl-GStreamer r107 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Sat Feb 21 15:38:37 2009
New Revision: 107
URL: http://svn.gnome.org/viewvc/perl-GStreamer?rev=107&view=rev

Log:
Make the GstIndexEntry tests more robust and correct.


Modified:
   trunk/ChangeLog
   trunk/t/GstIndex.t

Modified: trunk/t/GstIndex.t
==============================================================================
--- trunk/t/GstIndex.t	(original)
+++ trunk/t/GstIndex.t	Sat Feb 21 15:38:37 2009
@@ -23,9 +23,10 @@
 
 my $object = GStreamer::ElementFactory -> make("alsasink", "sink");
 SKIP: {
-  skip 'failed to create an alsasink', 5
+  skip 'index entry tests: failed to create an alsasink', 10
     unless defined $object;
 
+  # Called by get_writer_id()
   $index -> set_resolver(sub {
     my ($index, $element, $data) = @_;
 
@@ -37,22 +38,29 @@
   }, "blub");
 
   my $id = $index -> get_writer_id($object);
-  is($id, 1);
+  skip 'index entry tests: failed to obtain a writer id', 7
+    unless defined $id;
 
-  # Seems to be unimplemented.
-  my $entry = $index -> add_object(25, "urgs", $object);
-  is($entry, undef);
-}
-
-my $entry = $index -> add_format(23, "bytes");
-isa_ok($entry, "GStreamer::IndexEntry");
-
-$entry = $index -> add_association(24, "key-unit", bytes => 12, bytes => 13);
-isa_ok($entry, "GStreamer::IndexEntry");
-is($entry -> assoc_map("bytes"), 12);
+  my $entry = $index -> add_format($id, "bytes");
+  isa_ok($entry, "GStreamer::IndexEntry");
 
-$entry = $index -> add_id(26, "sgru");
-isa_ok($entry, "GStreamer::IndexEntry");
-
-$entry = $index -> get_assoc_entry(24, "exact", "key-unit", bytes => 12);
-is($entry, undef);
+  $entry = $index -> add_association($id, "key-unit", bytes => 12, time => 13);
+  isa_ok($entry, "GStreamer::IndexEntry");
+  is($entry -> assoc_map("bytes"), 12);
+  is($entry -> assoc_map("time"), 13);
+
+  $entry = $index -> add_object($id, "urgs", $object);
+  TODO: {
+    local $TODO = 'add_object always returns undef';
+    isa_ok($entry, "GStreamer::IndexEntry");
+  }
+
+  $entry = $index -> add_id($id, "sgru");
+  isa_ok($entry, "GStreamer::IndexEntry");
+
+  $entry = $index -> get_assoc_entry($id, "exact", "key-unit", bytes => 12);
+  TODO: {
+    local $TODO = 'get_assoc_entry always returns undef';
+    isa_ok($entry, "GStreamer::IndexEntry");
+  }
+}