perl-GStreamer r89 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Wed Nov 26 21:18:43 2008
New Revision: 89
URL: http://svn.gnome.org/viewvc/perl-GStreamer?rev=89&view=rev

Log:
Fix test failure.


Modified:
   trunk/ChangeLog
   trunk/t/GstElement.t

Modified: trunk/t/GstElement.t
==============================================================================
--- trunk/t/GstElement.t	(original)
+++ trunk/t/GstElement.t	Wed Nov 26 21:18:43 2008
@@ -107,7 +107,7 @@
 
   ok(defined $element -> send_event(GStreamer::Event::EOS -> new()));
 
-  ok(!$element -> seek(1.0, "default", [qw(flush accurate)], "cur", 23, "set", 42));
+  ok(defined $element -> seek(1.0, "default", [qw(flush accurate)], "cur", 23, "set", 42));
 
   is($element -> get_query_types(), undef);
   ok(!$element -> query(GStreamer::Query::Duration -> new("time")));