[gitmo/Mouse.git] / t / 050_metaclasses / 041_moose_nonmoose_chain_init_meta.t

use strict;
use warnings;
use Test::More tests => 1;
use Test::Exception;

{
    package ParentClass;
    use Mouse;
}
{
    package SomeClass;
    use base 'ParentClass';
}
{
    package SubClassUseBase;
    use base qw/SomeClass/;
    use Mouse;
}

lives_ok {
    Mouse->init_meta(for_class => 'SomeClass');
} 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok';
Commit	Line	Data
41888e7d	1	use strict;
41888e7d	2	use warnings;
9864f0e4	3	use Test::More tests => 1;
	4	use Test::Exception;
	5
41888e7d	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
41888e7d	20	lives_ok {
	21	Mouse->init_meta(for_class => 'SomeClass');
	22	} 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok';