t/050_metaclasses/041_moose_nonmoose_moose_chain_init_meta.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 ParentClass;
   8     use Mouse;
   9 }
  10 {
  11     package SomeClass;
  12     use base 'ParentClass';
  13 }
  14 {
  15     package SubClassUseBase;
  16     use base qw/SomeClass/;
  17     use Mouse;
  18 }
  19
  20 use Test::More;
  21 use Test::Exception;
  22
  23 lives_ok {
  24     Mouse->init_meta(for_class => 'SomeClass');
  25 } 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok';
  26
  27 done_testing;