[gitmo/Moose.git] / t / 600_todo_tests / 007_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 tests => 1;
use Test::Exception;

TODO: {
    local $TODO = 'Metaclass incompatibility';

    lives_ok {
        Moose->init_meta(for_class => 'SomeClass');
    } 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok';
}
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
	17	use Test::More tests => 1;
	18	use Test::Exception;
	19
ce9489ef	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	}
f2391d17	27