fixes broken link in pod
[gitmo/Moo.git] / t / has-array.t
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 );