#!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');