The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl
use Test::More tests => 3;
BEGIN {
    use_ok('SweetPea');
}

# testing inline url params at the 3rd-level e.g. /:param

my $s = sweet->routes({

    '/download/*/via/pdf' => sub {
        my $s = shift;
        ok(1, 'route mapped');
        is($s->param('*'), 'files.fosswire.com/2007/08/fwunixref.txt', 'random url w/wildcard');
        
        # prevent printing headers
        $s->debug('ran adv routing tests...');
        $s->output('debug', 'cli');
    }

})->test('/download/files.fosswire.com/2007/08/fwunixref.txt/via/pdf');