view release on metacpan or  search on metacpan

t/02.bio-perl.t  view on Meta::CPAN

# fix that
unshift @PATH, Alien::MUSCLE->bin_dir;

(my $version = Alien::MUSCLE->version) =~ s{^([0-9]+\.[0-9]+).*$}{$1};
is($factory->version, $version, 'correct version');
my $align = $factory->align("$input");
ok($align, 'aligned');
is($align->num_sequences, 7, 'correct');

my $s1_perid = int( $align->average_percentage_identity );
in_set($s1_perid, 42 .. 44);

done_testing;