view release on metacpan or  search on metacpan

t/09.spans_op.t  view on Meta::CPAN

        [ "$neg-$pos", -2, "$neg-$pos" ],
        [ "$neg-$pos", 2,  "$neg-$pos" ],

        [ "$neg-0", -2, "$neg-2" ],
        [ "$neg-0", 2,  "$neg--2" ],

        [ "0-$pos", -2, "-2-$pos" ],
        [ "0-$pos", 2,  "2-$pos" ],

        [ '0,2-3,6-8,12-15,20-24,30-35', -2, '-2-26,28-37' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', -1, '-1-9,11-16,19-25,29-36' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 0,  '0,2-3,6-8,12-15,20-24,30-35' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 1,  '7,13-14,21-23,31-34' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 2,  '22,32-33' ],
    );

    my $count = 1;
    for my $t (@inset_tests) {
        my $set      = AlignDB::IntSpan->new( $t->[0] );
        my $n        = $t->[1];
        my $expected = AlignDB::IntSpan->new( $t->[2] );
        my $result   = $set->inset($n);

        printf "#%-12s %-12s %d -> %s\n", 'inset', $set->runlist, $n, $result->runlist;