t/has-array.t

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