[gitmo/Moose.git] / t / 050_metaclasses / 041_moose_nonmoose_moose_chain_init_meta.t

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

use Test::More;
use Test::Fatal;

is( exception {
    Moose->init_meta(for_class => 'SomeClass');
}, undef, 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok' );

done_testing;
Commit	Line	Data
f2391d17	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
a28e50e4	17	use Test::More;
b10dde3a	18	use Test::Fatal;
f2391d17	19
b10dde3a	20	is( exception {
57a21623	21	Moose->init_meta(for_class => 'SomeClass');
b10dde3a	22	}, undef, 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok' );
a28e50e4	23
a28e50e4	24	done_testing;