• Files
• Commits
• Log
• Graph
• Stats

# 2 exons, 2 different samples:

use NGS::Test::Common; # imports all required modules (NGS, Plack::Test, etc)

my $app = NGS->to_app;
my $test = Plack::Test->create($app);

# test data ====================================================================
my @test_data = (
    [
        'N-Ras exon 3.1',
        '233:T/A',
        'Accepted',
        51.1, 66,
        0, 66,
        51.1, 66,
    ],
    [
        'RUNX exon 4.1',
        '102:C/T',
        'Accepted',
        13.2, 66,
        13.2, 66,
        0, 66,
    ],
);
# ==============================================================================

my $content = create_content(\@test_data); # can return either array, or arrayref
my $response = $test->request( POST '/vep', @$content ); # print_response($response);
is( $response->code, 200, '[POST /vep] success' );

like( $response->content, qr(N-Ras exon 3.1 \[233:T/A\]) );
like( $response->content, qr(RUNX exon 4.1 \[102:C/T\]) );
like( $response->content, qr(Processed 2 vep input rows) );
like( $response->content, qr(Sample results for data src "data.txt" \[2\]) );
like( $response->content, qr(Sample match failures \[0\]) );
like( $response->content, qr(VEP results \[9\]) );
like( $response->content, qr(Non-CDS VEP results \[0\]) );

done_testing;