Commit | Line | Data |
286ae4d0 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use Test::Requires { |
5 | 'Test::Output' => '0.01', # skip all if not installed |
6 | }; |
7 | |
8 | { |
9 | package R; |
10 | use Moose::Role; |
11 | |
12 | sub method { } |
13 | } |
14 | |
15 | { |
16 | package C; |
17 | use Moose; |
18 | |
19 | ::stderr_is{ |
20 | has attr => ( |
21 | is => 'ro', |
22 | traits => [ |
23 | R => { ignored => 1 }, |
24 | ], |
25 | ); |
26 | } q{}, 'no warning with foreign parameterized attribute traits'; |
27 | |
28 | ::stderr_is{ |
29 | has alias_attr => ( |
30 | is => 'ro', |
31 | traits => [ |
32 | R => { -alias => { method => 'new_name' } }, |
33 | ], |
34 | ); |
35 | } q{}, 'no warning with -alias parameterized attribute traits'; |
36 | |
37 | ::stderr_is{ |
38 | has excludes_attr => ( |
39 | is => 'ro', |
40 | traits => [ |
41 | R => { -excludes => ['method'] }, |
42 | ], |
43 | ); |
6325cab2 |
44 | } q{}, 'no warning with -excludes parameterized attribute traits'; |
286ae4d0 |
45 | } |
46 | |
47 | done_testing; |