AlignDB-IntSpanXS

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

keyword|||
leave_scope|||
lex_end|||
lex_start|||
linklist|||
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p
mXPUSHi|5.009002||p
mXPUSHn|5.009002||p
mXPUSHp|5.009002||p
mXPUSHu|5.009002||p
mad_free|||

t/11.islands.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 35;
use Scalar::Util qw(looks_like_number);

BEGIN {
    use_ok('AlignDB::IntSpanXS');
}

# find_islands
{
    my @find_tests = (
        [ "1-5",     1, "1-5" ],
        [ "1-5,7",   1, "1-5" ],

t/11.islands.t  view on Meta::CPAN

        [ "1-8",           "7-8",  "1-8" ],
        [ "1-5,7-8",       "7-8",  "7-8" ],
        [ "1-5,8-9",       "7-8",  "8-9" ],
        [ "1-5,8-9,11-15", "9-11", "8-9,11-15" ],
    );

    my $count = 1;
    for my $t (@find_tests) {
        my $set = AlignDB::IntSpanXS->new( $t->[0] );
        my $n_set
            = looks_like_number( $t->[1] )
            ? $t->[1]
            : AlignDB::IntSpanXS->new( $t->[1] );
        my $expected = $t->[2];
        my $result   = $set->find_islands($n_set);

        printf "#%-12s %-12s %-12s -> %s\n", 'find_islands', $set->runlist,
            $n_set, $result->runlist;
        my $test_name = "find_islands|$count";
        is( $result->runlist, $expected, $test_name );
        $count++;

t/11.islands.t  view on Meta::CPAN

        [ "1-5,7-8",   "-5--3", "1-5" ],
        [ "1-5,8-9",   "6-7",   "1-5,8-9" ],
        [ "1-5,10-15", "6-7",   "1-5" ],
    );

    my $count = 1;
    for my $t (@nearest_tests) {
        my $set = AlignDB::IntSpanXS->new( $t->[0] );
        my $n_set
            = looks_like_number( $t->[1] )
            ? $t->[1]
            : AlignDB::IntSpanXS->new( $t->[1] );
        my $expected = $t->[2];
        my $result   = $set->nearest_island($n_set);

        printf "#%-12s %-12s %-12s -> %s\n", 'nearest_island', $set->runlist,
            $n_set, $result->runlist;
        my $test_name = "nearest_island|$count";
        is( $result->runlist, $expected, $test_name );
        $count++;