[gitmo/Moo.git] / t / has-array.t

use Test::More tests => 4;

ok(eval {
  package Local::Test::Role1;
  use Moo::Role;
  has [qw/ attr1 attr2 /] => (is => 'ro');
  1;
}, 'has \@attrs works in roles')
  or diag "EVAL FAILED: $@";

ok eval {
  package Local::Test::Class1;
  use Moo;
  with 'Local::Test::Role1';
  has [qw/ attr3 attr4 /] => (is => 'ro');
  1;
}, 'has \@attrs works in classes'
  or diag "EVAL FAILED: $@";

my $obj = new_ok 'Local::Test::Class1' => [
  attr1  => 1,
  attr2  => 2,
  attr3  => 3,
  attr4  => 4,
];

can_ok(
  $obj,
  qw( attr1 attr2 attr3 attr4 ),
);
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	);