view release on metacpan or  search on metacpan

t/SearchIO/blastxml.t  view on Meta::CPAN

                [ 16, 8, 8, 0, 8, 0, 2, 0, 6]);

    while (my $iter = $result->next_iteration) {
        $iter_count++;
        my $di = shift @valid_iter_data;
        is($iter->number, $iter_count);
        is($iter->num_hits, shift @$di);
        is($iter->num_hits_new, shift @$di);
        is($iter->num_hits_old, shift @$di);
        is(scalar($iter->newhits_below_threshold), shift @$di);
        is(scalar($iter->newhits_not_below_threshold), shift @$di);
        is(scalar($iter->newhits_unclassified), shift @$di);
        is(scalar($iter->oldhits_below_threshold), shift @$di);
        is(scalar($iter->oldhits_newly_below_threshold), shift @$di);
        is(scalar($iter->oldhits_not_below_threshold), shift @$di);
        my $hit_count = 0;
        if ($iter_count == 1) {
            while( my $hit = $result->next_hit ) {
                my $d = shift @valid_hit_data;
                is($hit->name, shift @$d);
                is($hit->length, shift @$d);
                is($hit->accession, shift @$d);
                is($hit->ncbi_gi, shift @$d);
                float_is($hit->significance, shift @$d);
                is($hit->bits, shift @$d );

t/SearchIO/blastxml.t  view on Meta::CPAN

                [ 19, 11, 8, 0, 11, 0, 1, 0, 7]);

    while (my $iter = $result->next_iteration) {
        $iter_count++;
        my $di = shift @valid_iter_data;
        is($iter->number, $iter_count);
        is($iter->num_hits, shift @$di);
        is($iter->num_hits_new, shift @$di);
        is($iter->num_hits_old, shift @$di);
        is(scalar($iter->newhits_below_threshold), shift @$di);
        is(scalar($iter->newhits_not_below_threshold), shift @$di);
        is(scalar($iter->newhits_unclassified), shift @$di);
        is(scalar($iter->oldhits_below_threshold), shift @$di);
        is(scalar($iter->oldhits_newly_below_threshold), shift @$di);
        is(scalar($iter->oldhits_not_below_threshold), shift @$di);
        my $hit_count = 0;
        if ($iter_count == 1) {
            while( my $hit = $result->next_hit ) {
                my $d = shift @valid_hit_data;
                is($hit->name, shift @$d);
                is($hit->length, shift @$d);
                is($hit->accession, shift @$d);
                is($hit->ncbi_gi, shift @$d);
                float_is($hit->significance, shift @$d);
                is($hit->bits, shift @$d );