t/050_metaclasses/041_moose_nonmoose_moose_chain_init_meta.t

   1 use strict;
   2 use warnings;
   3 {
   4     package ParentClass;
   5     use Moose;
   6 }
   7 {
   8     package SomeClass;
   9     use base 'ParentClass';
  10 }
  11 {
  12     package SubClassUseBase;
  13     use base qw/SomeClass/;
  14     use Moose;
  15 }
  16
  17 use Test::More;
  18 use Test::Fatal;
  19
  20 is( exception {
  21     Moose->init_meta(for_class => 'SomeClass');
  22 }, undef, 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok' );
  23
  24 done_testing;