#!/usr/bin/perl -w
use strict;

use Test::More tests => 5;
require "t/util.pl";
BEGIN {
    use_ok('Audio::LADSPA::Network');
}
SKIP: {
    skip("No SDK installed",3) unless sdk_installed();
my $net = Audio::LADSPA::Network->new( buffer_size => 1024 );
my $sine = $net->add_plugin( id => 1047);
my $delay = $net->add_plugin( id => 1043);

eval {
    $sine->run(100000); # out of buffer range
};
ok ($@ =~ /^Cannot run for more than 1024 samples/,"Range checking");
eval {
    $sine->run(1024);
};
ok (!$@,"Range edge");

eval {
    $sine->run(0); # bwahaha!
};
ok(!$@,"Null run");


my %plugins = ( $sine => $sine );

delete $plugins{$sine};

my $buff = $sine->get_buffer(0);

my %buffer = ( $buff => $buff);

$sine->disconnect_all();

{
    my $net = Audio::LADSPA::Network->new();
}
}

END {
    ok(1,"End phase");
}