t/050_metaclasses/040_moose_nonmoose_metatrait_init_order.t

   1 use strict;
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5 use warnings;
   6 {
   7     package My::Role;
   8     use Mouse::Role;
   9 }
  10 {
  11     package SomeClass;
  12     use Mouse -traits => 'My::Role';
  13 }
  14 {
  15     package SubClassUseBase;
  16     use base qw/SomeClass/;
  17 }
  18 {
  19     package SubSubClassUseBase;
  20     use base qw/SubClassUseBase/;
  21 }
  22
  23 use Test::More;
  24 $TODO = q{Mouse is not yet completed};
  25 use Mouse::Util qw/find_meta does_role/;
  26
  27 my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' );
  28 ok does_role($subsubclass_meta, 'My::Role'),
  29     'SubSubClass metaclass does role from grandparent metaclass';
  30 my $subclass_meta = find_meta('SubClassUseBase');
  31 ok does_role($subclass_meta, 'My::Role'),
  32     'SubClass metaclass does role from parent metaclass';
  33
  34 done_testing;