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

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

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

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;
	2	use warnings;
	3	{
	4	package ParentClass;
	5	use Mouse;
	6	}
	7	{
	8	package SomeClass;
	9	use base 'ParentClass';
	10	}
	11	{
	12	package SubClassUseBase;
	13	use base qw/SomeClass/;
	14	use Mouse;
	15	}
	16
	17	use Test::More tests => 1;
	18	use Test::Exception;
	19
	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';