# tests myseq.vcf file upload

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

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

my $filename = '874-12.vcf';
my @content = content_with_static_file($filename); # can return either array, or arrayref

say '###################################';
say "this test may take some time .....";
say '###################################';

my $response = $test->request( POST '/vep', @content ); # print_response($response);
is( $response->code, 200, '[POST /vep] success' );

like( $response->content, qr(@_) ) for (
    "Sample results for data src \"$filename\" [5]",
    'Processed 5 vep input rows',
    '5 accepted/filtered rows',
    '8 total source file rows',
    'sample match failures [0]',
    'VEP results [23]',
    'non-CDS [0]',
);

done_testing;