#!/usr/bin/perl -w
use strict;
use Test::More tests => 6;
use Audio::LADSPA;
use strict;
require "t/util.pl";
SKIP: {
skip("No SDK installed",6) unless sdk_installed();
my $plug = Audio::LADSPA->plugin( id => 1043);
ok($plug->isa("Audio::LADSPA::Plugin"),"loaded delay_5s/1043");
my $object= $plug->new(44100);
ok(ref($object) and $object->isa("Audio::LADSPA::Plugin"),"object instantiation");
my $objectref2 = $object;
is("$object", "$objectref2","Object copies have same stringification");
is($object->get_uniqid,$objectref2->get_uniqid,"Object copies have same uniqids");
$objectref2 = $plug->new(44100);
ok("$object" ne "$objectref2","Different objects have different stringification");
ok($object->get_uniqid ne $objectref2->get_uniqid,"Session ids differ for different objects");
}