view release on metacpan or  search on metacpan

t/integration/blast.t  view on Meta::CPAN

        sequence               => 'ATGCTAGTCGTCGATAGTCGTAGTAGCTGA',
        program => '',
    },
);
$mech->content_like( qr/Error!/i);
is $mech->status, 400, 'input error if no program is selected' or diag $mech->content;

{


sub test_blast_hits() {
    $mech->get_ok('/');
    $mech->submit_form_ok({
        form_name => 'main_input_form',
        fields => {
            mimosa_sequence_set_ids => 1,
            filtered               => 'T',
            sequence               => $fasta,
            program                => "blastn",
        },
    });

t/integration/blast.t  view on Meta::CPAN

        $mech->get_ok($img->url, $img->url . " works");
    }

}
    test_blast_hits();
    # do it again to exercise cached codepaths
    test_blast_hits();

}

sub test_composite_blast_hits() {
    my $mech = Mech->new;
    $mech->get_ok('/');
    $mech->submit_form_ok({
        form_name => 'main_input_form',
        fields => {
            mimosa_sequence_set_ids => "1,2",
            filtered               => 'T',
            sequence               => $fasta,
            program                => "blastn",
        },