view release on metacpan or  search on metacpan

t/025_sequence_api.t  view on Meta::CPAN

sub basic_test {
    my $url = shift;
    my $seq = 'AATTATTTTATTTGGTTTATTGTAGTCCTTAAGACAGTTAGGATACCTGAGTTATGTATC';

    my $r = request $url;
    is($r->code, 200, "200 GET $url" );
    ok($r->content !~ m/Bio::BLAST::Database::Seq/);
    like($r->content, qr/^>LE_HBa0001A15_T7_30 Chromat_file:Le-HBa001_A15-T7\.ab1 SGN_GSS_ID:30 \(vector and quality trimmed\)/, 'got the correct desc line back');
    like($r->content, qr/$seq/, 'looks like the same FASTA');

    is(length($r->content),596, 'got non-zero content length') or diag $r->content;
}
{
    basic_test('/api/sequence/id/1/LE_HBa0001A15_T7_30.txt');
    basic_test('/api/sequence/id/1/LE_HBa0001A15_T7_30.fasta');
    basic_test('/api/sequence/id/1/LE_HBa0001A15_T7_30');

    # TODO
    # basic_test('/api/sequence/1/LE_HBa0001A15_T7_30.json');