[perl-GStreamer] Fix a test failure in t/GstElement.t

[Torsten Schönfeld <tsch src gnome org>]

commit 8fdeb35d588ff786597dfab25652de3f2f03d64c
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat May 14 12:31:47 2011 +0200

    Fix a test failure in t/GstElement.t
    
    https://bugzilla.gnome.org/show_bug.cgi?id=649615
    https://rt.cpan.org/Public/Bug/Display.html?id=66736

 t/GstElement.t |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/t/GstElement.t b/t/GstElement.t
index 6cfb632..394fc5e 100644
--- a/t/GstElement.t
+++ b/t/GstElement.t
@@ -28,6 +28,9 @@ SKIP: {
   $element = GStreamer::ElementFactory -> make("alsasrc", "src");
   isa_ok($element, "GStreamer::Element");
 
+  my @types = $element -> get_query_types();
+  ok(grep { $_ eq 'seeking' } @types);
+
   ok(defined $element -> requires_clock());
   ok(defined $element -> provides_clock());
 
@@ -114,7 +117,6 @@ SKIP: {
 
   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")));
 
   ok(!$element -> post_message(GStreamer::Message::EOS -> new($element)));