App-Mimosa
view release on metacpan - search on metacpan
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');
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 5.684 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )