[gitmo/Moose.git] / t / 060_compat / 004_extends_nonmoose_that_isa_moose_with_metarole.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::More;
    use Test::Exception;
    lives_ok {
        extends 'SubClassUseBase';
    }
    'Can extend non-moose class with parent class that 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	}
5009e3d0	9
f2391d17	10	{
	11	package SomeClass;
	12	use Moose -traits => 'My::Role';
	13	}
5009e3d0	14
f2391d17	15	{
	16	package SubClassUseBase;
	17	use base qw/SomeClass/;
	18	}
5009e3d0	19
f2391d17	20	{
	21	package SubSubClassUseBase;
	22	use Moose;
ce9489ef	23	use Test::More;
f2391d17	24	use Test::Exception;
349cda54	25	lives_ok {
349cda54	26	extends 'SubClassUseBase';
5009e3d0	27	}
156f6373	28	'Can extend non-moose class with parent class that is a Moose class with a meta role';
f2391d17	29	}