#!/usr/bin/perl
use strict;
use warnings;
use ExtUtils::PkgConfig;
use File::Spec;
use Test::More tests => 13;
# $Id$
use Glib qw(TRUE FALSE);
use GStreamer -init;
my $plugin = GStreamer::Plugin::load_by_name("alsa");
SKIP: {
skip 'failed to load alsa plugin', 13
unless defined $plugin;
isa_ok($plugin, "GStreamer::Plugin");
is($plugin -> get_name(), "alsa");
ok(defined $plugin -> get_description());
ok(defined $plugin -> get_filename());
ok(defined $plugin -> get_version());
ok(defined $plugin -> get_license());
ok(defined $plugin -> get_source());
ok(defined $plugin -> get_package());
ok(defined $plugin -> get_origin());
ok($plugin -> is_loaded());
ok($plugin -> name_filter("alsa"));
SKIP: {
my $dir = ExtUtils::PkgConfig -> variable("gstreamer-0.10", "pluginsdir");
my $so = File::Spec -> catfile($dir, "libgstalsa.so");
skip "alsa plugin tests", 1
unless (-f $so && -r $so);
$plugin = GStreamer::Plugin::load_file($so);
isa_ok($plugin, "GStreamer::Plugin");
}
$plugin = GStreamer::Plugin::load_by_name("alsa");
isa_ok($plugin, "GStreamer::Plugin");
}