The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;
require "t/util.pl";
use Test::More tests => 2;
use Audio::LADSPA;

use strict;
SKIP: {
    skip("No SDK installed",2) unless sdk_installed();

my $plug = Audio::LADSPA->plugin( id => 1043);

ok($plug->isa("Audio::LADSPA::Plugin"),"loaded delay_5s/1043");

my @ports = $plug->ports;

ok(@ports == 4,"number of ports");

}