[gitmo/Moo.git] / t / subconstructor.t

use strictures 1;
use Test::More;

{
  package SubCon1;

  use Moo;

  has foo => (is => 'ro');

  package SubCon2;

  our @ISA = qw(SubCon1);
}

ok(SubCon2->new, 'constructor completes');

done_testing;
Commit	Line	Data
76ab3977	1	use strictures 1;
	2	use Test::More;
	3
	4	{
	5	package SubCon1;
	6
	7	use Moo;
	8
	9	has foo => (is => 'ro');
	10
	11	package SubCon2;
	12
	13	our @ISA = qw(SubCon1);
	14	}
	15
	16	ok(SubCon2->new, 'constructor completes');
	17
	18	done_testing;