use strict;
use warnings;
use Test::More;
use Capture::Tiny 0.12 'capture_stderr';
BEGIN { use_ok('Dancer2::Core::Route') }
like(
capture_stderr {
Dancer2::Core::Route->new(
regexp => '/:splat',
code => sub {1},
method => 'get',
);
},
qr{^Named placeholder 'splat' is deprecated},
'Find deprecation of :splat',
);
SKIP: {
skip 'Need perl >= 5.10', 1 unless $] >= 5.010;
like(
capture_stderr {
Dancer2::Core::Route->new(
regexp => '/:captures',
code => sub {1},
method => 'get',
);
},
qr{^Named placeholder 'captures' is deprecated},
'Find deprecation of :captures',
);
}
done_testing;