perl-GStreamer r100 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Sat Dec 20 12:11:18 2008
New Revision: 100
URL: http://svn.gnome.org/viewvc/perl-GStreamer?rev=100&view=rev

Log:
Don't assume an 'alsa' plugin is present.


Modified:
   trunk/ChangeLog
   trunk/t/GstRegistry.t

Modified: trunk/t/GstRegistry.t
==============================================================================
--- trunk/t/GstRegistry.t	(original)
+++ trunk/t/GstRegistry.t	Sat Dec 20 12:11:18 2008
@@ -43,7 +43,14 @@
 isa_ok($features[0], "GStreamer::PluginFeature");
 
 isa_ok(($registry -> get_feature_list("GStreamer::ElementFactory"))[0], "GStreamer::PluginFeature");
-isa_ok(($registry -> get_feature_list_by_plugin("alsa"))[0], "GStreamer::PluginFeature");
+
+my $plugin_feature = ($registry -> get_feature_list_by_plugin("alsa"))[0];
+SKIP: {
+  skip 'no alsa plugin found', 1
+    unless defined $plugin_feature;
+
+  isa_ok($plugin_feature, "GStreamer::PluginFeature");
+}
 
 isa_ok($registry -> find_plugin("volume"), "GStreamer::Plugin");
 isa_ok($registry -> find_feature("volume", "GStreamer::ElementFactory"), "GStreamer::PluginFeature");