[gitmo/Moo.git] / xt / more-jenga.t

use strict;
use warnings;
use Test::More;

use FindBin qw/ $Bin /;
use lib "$Bin/lib";

{
    package ExampleRole;
    use Moo::Role;

    requires 'foo';

    with qw/
        ExampleMooseRoleOne
        ExampleMooseRoleTwo
    /;
}

{
    package ExampleClass;
    use Moose;

    with 'ExampleRole';

    sub foo {}
}

ok 1;

done_testing;
Commit	Line	Data
8ee5b111	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use FindBin qw/ $Bin /;
	6	use lib "$Bin/lib";
	7
	8	{
	9	package ExampleRole;
	10	use Moo::Role;
	11
	12	requires 'foo';
	13
	14	with qw/
	15	ExampleMooseRoleOne
	16	ExampleMooseRoleTwo
	17	/;
	18	}
	19
	20	{
	21	package ExampleClass;
	22	use Moose;
	23
	24	with 'ExampleRole';
	25
	26	sub foo {}
	27	}
	28
	29	ok 1;
	30
	31	done_testing;
	32