[gitmo/Moose.git] / t / 600_todo_tests / 008_moose_nonmoose_moose_chain_extends.t

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

{
    package My::Role;
    use Moose::Role;
}
{
    package SomeClass;
    use Moose -traits => 'My::Role';
}
{
    package SubClassUseBase;
    use base qw/SomeClass/;
}
{
    package SubSubClassUseBase;
    use Moose;
    use Test::Exception;
    lives_ok {
        extends 'SubClassUseBase';
    } 'Can extend non-moose class whos parent class is a Moose class with a meta role';
}
Commit	Line	Data
f2391d17	1	use strict;
	2	use warnings;
	3	use Test::More tests => 1;
	4
	5	{
	6	package My::Role;
	7	use Moose::Role;
	8	}
	9	{
	10	package SomeClass;
	11	use Moose -traits => 'My::Role';
	12	}
	13	{
	14	package SubClassUseBase;
	15	use base qw/SomeClass/;
	16	}
	17	{
	18	package SubSubClassUseBase;
	19	use Moose;
	20	use Test::Exception;
	21	lives_ok {
	22	extends 'SubClassUseBase';
	23	} 'Can extend non-moose class whos parent class is a Moose class with a meta role';
	24	}
	25