#!perl -T
use Algorithm::NeedlemanWunsch;
use Test::More tests => 4;
sub kronecker {
    my ($a, $b) = @_;
    return ($a eq $b) ? 1 : 0;
}
my $lcs = Algorithm::NeedlemanWunsch->new(\&kronecker, 0);
my @same_a = qw(a b c);
my @same_b = qw(a b c);
my $score = $lcs->align(\@same_a, \@same_b);
is($score, 3);
$score = $lcs->align(\@same_a, \@same_a);
is($score, 3);
my @alignment;
sub check_align {
    my ($i, $j) = @_;
    unshift @alignment, [$i, $j];
}
sub check_select_align {
    my $arg = shift;
    die "alignment not an option" unless exists($arg->{align});
    unshift @alignment, $arg->{align};
    return 'align';
}
@alignment = ();
$lcs->align(\@same_a, \@same_b, { align => \&check_align });
is_deeply(\@alignment, [ [0, 0], [1, 1], [2, 2] ]);
@alignment = ();
$lcs->align(\@same_a, \@same_b, { select_align => \&check_select_align });
is_deeply(\@alignment, [ [0, 0], [1, 1], [2, 2] ]);