t/subconstructor.t

   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;