t/metaclasses/moose_nonmoose_metatrait_init_order.t

   1 use strict;
   2 use warnings;
   3
   4 {
   5     package My::Role;
   6     use Moose::Role;
   7 }
   8 {
   9     package SomeClass;
  10     use Moose -traits => 'My::Role';
  11 }
  12 {
  13     package SubClassUseBase;
  14     use base qw/SomeClass/;
  15 }
  16 {
  17     package SubSubClassUseBase;
  18     use base qw/SubClassUseBase/;
  19 }
  20
  21 use Test::More;
  22 use Moose::Util qw/find_meta does_role/;
  23
  24 my $subsubclass_meta
  25     = Moose::Meta::Class->initialize( package => 'SubSubClassUseBase' );
  26 ok does_role($subsubclass_meta, 'My::Role'),
  27     'SubSubClass metaclass does role from grandparent metaclass';
  28 my $subclass_meta = find_meta('SubClassUseBase');
  29 ok does_role($subclass_meta, 'My::Role'),
  30     'SubClass metaclass does role from parent metaclass';
  31
  32 done_testing;