#-*-Perl-*-
## Bioperl Test Harness Script for Modules
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
use ExtUtils::MakeMaker;
use Bio::Root::IO;
use FindBin '$Bin';
use constant TEST_COUNT => 6;
BEGIN {
# to handle systems with no installed Test module
# we include the t dir (where a copy of Test.pm is located)
# as a fallback
eval { require Test; };
if( $@ ) {
use lib '../t';
}
use Test;
plan test => TEST_COUNT;
}
use lib "$Bin/../blib/lib","$Bin/../blib/arch";
use Bio::Graphics::Browser2::Realign;
my $aligner = Bio::Graphics::Browser2::Realign->new('gattttgttccc','gattttacccc');
ok($aligner);
my $score = $aligner->score;
my $align = $aligner->alignment;
ok($align);
ok($score,6);
ok($align->[0],0);
ok($align->[7],undef);
ok($align->[9],7);