#!/usr/bin/perl -w

use Test::More tests => 44;

use strict;
BEGIN {
    $|++;
    use_ok('Audio::LADSPA::Buffer');
}

my $buffer;
ok($buffer = Audio::LADSPA::Buffer->new(10),"size 10 buffer");

$buffer->set_list(0,1,2,3,4,5,6,7,8,9);

my @vals = $buffer->get_list();
my $i = 0;
for (@vals) {
    is($_,$i++,"precondition $i");
}

$buffer *= 10;

ok(1,"is_mult smoke");

@vals = $buffer->get_list();
$i = 0;
for (@vals) {
    is($_,$i++ * 10,"is_mult $i");
}

$buffer->set_list(0,1,2,3,4,5,6,7,8,9);
my $copy = $buffer->undef_copy();

is($copy->filled,0,"undef_copy");

@vals = $buffer->get_list();
$i = 0;
for (@vals) {
    is($_,$i++,"integrity of original after undef_copy $i");
}


$i=0;
my $result = $buffer * 10;
for ($result->get_list) {
    is($_,$i++ * 10,"mult $i");
}