[gitmo/MooseX-Types.git] / t / 19_typelib_with_role.t

#!/usr/bin/env perl
use strict;
use warnings;
 
use Test::More;

{
    package MyRole;
    use Moose::Role;
    requires 'foo';
}

eval q{

    package MyClass;
    use Moose;
    use MooseX::Types -declare => ['Foo'];
    use MooseX::Types::Moose 'Int';
    with 'MyRole';

    subtype Foo, as Int;

    sub foo {}
};

ok !$@, 'type export not picked up as a method on role application';

done_testing();
Commit	Line	Data
bca16b0d	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4
a344ca96	5	use Test::More;
bca16b0d	6
	7	{
	8	package MyRole;
	9	use Moose::Role;
	10	requires 'foo';
	11	}
	12
	13	eval q{
	14
	15	package MyClass;
	16	use Moose;
	17	use MooseX::Types -declare => ['Foo'];
	18	use MooseX::Types::Moose 'Int';
	19	with 'MyRole';
	20
	21	subtype Foo, as Int;
	22
	23	sub foo {}
	24	};
	25
	26	ok !$@, 'type export not picked up as a method on role application';
a344ca96	27
a344ca96	28	done_testing();