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