use NGS::Test::Common; # imports all required modules (NGS, Plack::Test, etc) my $app = NGS->to_app; my $test = Plack::Test->create($app); say '###################################'; say "this test may take some time ....."; say '###################################'; { # valid filename: my $filename = '874-12.vcf'; my @content = content_with_static_file($filename); # can return either array, or arrayref my $response = $test->request( POST '/vep', @content ); # print_response($response); SKIP: { skip('TODO: regex failing after $filename',1); like( $response->content, qr/$_/ ) for ( qq!Sample results for data src "$filename" \[5\]!, # \[5\] doesn't match - wtf?? ); } } done_testing;