view release on metacpan or  search on metacpan

t/010_submit_invalid.t  view on Meta::CPAN

use Test::Most tests => 3;
use Modern::Perl;

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

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

fixtures_ok 'basic_ss';

{
    my $seq = <<SEQ;
> guano pie
ATIUSADHJKSHDJHSDFKJSDHFKJSDHFKJSDHFKJSDHFKJSDH
SEQ
    my $f = sub {
        return request POST '/submit', [
                    program                 => 'blastn',
                    sequence                => $seq,
                    maxhits                 => 100,
                    alphabet                => 'nucleotide',
                    matrix                  => 'BLOSUM62',
                    evalue                  => 0.1,
                    mimosa_sequence_set_ids => 1,
       ];
    };
    my $res = $f->();
    is($res->code,400,'/submit with illegal chars') or diag $res->content;
    like($res->content,qr/Sequence ATI.* contains illegal characters/, 'illegal character error');
}