1use strict; 2use warnings; 3use Test::More; 4use Capture::Tiny 0.12 'capture_stderr'; 5BEGIN { use_ok('Dancer2::Core::Route') } 6 7like( 8 capture_stderr { 9 Dancer2::Core::Route->new( 10 regexp => '/:splat', 11 code => sub {1}, 12 method => 'get', 13 ); 14 }, 15 qr{^Named placeholder 'splat' is deprecated}, 16 'Find deprecation of :splat', 17); 18 19SKIP: { 20 skip 'Need perl >= 5.10', 1 unless $] >= 5.010; 21 like( 22 capture_stderr { 23 Dancer2::Core::Route->new( 24 regexp => '/:captures', 25 code => sub {1}, 26 method => 'get', 27 ); 28 }, 29 qr{^Named placeholder 'captures' is deprecated}, 30 'Find deprecation of :captures', 31 ); 32} 33 34done_testing; 35