t/600_todo_tests/006_moose_nonmoose_nonmoose_chain_metatrait_init_order.t

   1 use strict;
   2 use warnings;
   3 {
   4     package My::Role;
   5     use Moose::Role;
   6 }
   7 {
   8     package SomeClass;
   9     use Moose -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 Moose::Util qw/find_meta does_role/;
  22
  23 my $subsubclass_meta = Moose->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 TODO: {
  28     local $TODO = "In-between class' metaclass does not do My::Role";
  29     ok does_role($subclass_meta, 'My::Role'),
  30         'SubClass metaclass does role from parent metaclass';
  31 }