t/050_metaclasses/failing/040_moose_nonmoose_metatrait_init_order.t

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