t/600_todo_tests/007_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 tests => 1;
  18 use Test::Exception;
  19
  20 TODO: {
  21     local $TODO = 'Metaclass incompatibility';
  22
  23     lives_ok {
  24         Moose->init_meta(for_class => 'SomeClass');
  25     } 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok';
  26 }
  27