view release on metacpan or  search on metacpan

t/005_submit_route.t  view on Meta::CPAN

use strict;
use warnings;
use Test::Most tests => 25;

use lib 't/lib';
use App::Mimosa::Test;
use App::Mimosa::Util qw/clean_up_indices/;
use Test::DBIx::Class;

use File::Slurp qw/slurp/;
use HTTP::Request::Common;
use File::Spec::Functions;
#use Carp::Always;

fixtures_ok 'basic_ss';

{
    my $seq = slurp(catfile(qw/t data blastdb_test.nucleotide.seq/));
    my $response = request POST '/submit', [
                    program                => 'tblastx',
                    sequence_input_file    => '',
                    sequence               => $seq,
                    maxhits                => 100,
                    matrix                 => 'BLOSUM62',
                    evalue                 => 0.1,
                    mimosa_sequence_set_ids=> 1,
                    alphabet               => 'nucleotide',
    ];
    is($response->code, 200, '/submit returns 200');
    like($response->content,qr!/api/report/raw/\d+!, 'download raw report link');
    like($response->content,qr!/api/report/html/\d+!, 'download raw report link');
}

{
    my $seq = slurp(catfile(qw/t data blastdb_test.nucleotide.seq/));
    my $response = request POST '/submit', [
                    program                => 'blastn',
                    sequence_input_file    => '',
                    sequence               => $seq,
                    maxhits                => 100,
                    matrix                 => 'BLOSUM62',
                    evalue                 => 0.1,
                    mimosa_sequence_set_ids=> 1,
                    alphabet               => 'nucleotide',
    ];
    is($response->code, 200, '/submit returns 200');
    like($response->content,qr!/api/report/raw/\d+!, 'download raw report link');
    like($response->content,qr!/api/report/html/\d+!, 'download raw report link');
}
{
    my $seq = slurp(catfile(qw/t data blastdb_test.nucleotide.seq/));
    my $response = request POST '/submit', [
                    program                => 'blastn',
                    sequence               => $seq,
                    maxhits                => 100,
                    matrix                 => 'BLOSUM62',
                    evalue                 => 0.1,
                    mimosa_sequence_set_ids=> 1,
                    alphabet               => 'nucleotide',
                    alignment_view         => 8, # XML
    ];
    is($response->code, 200, '/submit returns 200');
    # TODO: verify the raw blast report is valid XML
}
{
    my $response = request POST '/submit', [
                    program                => 'blastn',
                    sequence               => "small",
                    maxhits                => 100,
                    matrix                 => 'BLOSUM62',
                    evalue                 => 0.1,