The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use Test::More tests => 5, import => ['!pass'];
use Dancer::Test;

BEGIN {
    use FindBin;
    use lib "$FindBin::Bin/lib";
    use_ok 'MyApp';
}

response_content_is [GET => '/index'], 
    'Hello World', '/index returned Hello World';
    
response_content_is [GET => '/download/test.txt'], 
    'File Downloaded', '/download/test.txt returned File Downloaded';
    
response_content_is [GET => '/chainsaw'], 
    'Got Chainsaw', '/chainsaw returned Got Chainsaw';
    
response_content_is [GET => '/redirect'], 
    '', '/redirect returned Nothing, chain broken as expected';

1;