Commit | Line | Data |
1d17c7c1 |
1 | use Test::More tests => 4; |
2 | |
3 | ok(eval { |
4 | package Local::Test::Role1; |
5 | use Moo::Role; |
6 | has [qw/ attr1 attr2 /] => (is => 'ro'); |
7 | 1; |
8 | }, 'has \@attrs works in roles') |
9 | or diag "EVAL FAILED: $@"; |
10 | |
11 | ok eval { |
12 | package Local::Test::Class1; |
13 | use Moo; |
14 | with 'Local::Test::Role1'; |
15 | has [qw/ attr3 attr4 /] => (is => 'ro'); |
16 | 1; |
17 | }, 'has \@attrs works in classes' |
18 | or diag "EVAL FAILED: $@"; |
19 | |
20 | my $obj = new_ok 'Local::Test::Class1' => [ |
21 | attr1 => 1, |
22 | attr2 => 2, |
23 | attr3 => 3, |
24 | attr4 => 4, |
25 | ]; |
26 | |
27 | can_ok( |
28 | $obj, |
29 | qw( attr1 attr2 attr3 attr4 ), |
30 | ); |