[gitmo/MooseX-Role-Parameterized.git] / t / 013-does.t


use strict;
use warnings;

#use Test::More tests => 3;
use Test::More skip_all => 'TODO';
use Test::Moose;

{
    package MyPRole;
    use MooseX::Role::Parameterized;
    role {};
}

{
    package MyClass;
    use Moose;
    with 'MyPRole',
}

my $generated_role = MyClass->meta->roles->[0]->name;
does_ok( 'MyClass', $generated_role, 'class does the generate role' );
does_ok( 'MyClass', 'MyPRole', 'class does the parameterized role' );
cmp_ok(
    $generated_role->meta->get_roles->[0]->name,
    'eq',
    'MyProle',
    'generated role does the parameterized role'
);
Commit	Line	Data
21b21198	1
	2	use strict;
	3	use warnings;
	4
	5	#use Test::More tests => 3;
	6	use Test::More skip_all => 'TODO';
	7	use Test::Moose;
	8
	9	{
	10	package MyPRole;
	11	use MooseX::Role::Parameterized;
	12	role {};
	13	}
	14
	15	{
	16	package MyClass;
	17	use Moose;
	18	with 'MyPRole',
	19	}
	20
	21	my $generated_role = MyClass->meta->roles->[0]->name;
	22	does_ok( 'MyClass', $generated_role, 'class does the generate role' );
	23	does_ok( 'MyClass', 'MyPRole', 'class does the parameterized role' );
	24	cmp_ok(
	25	$generated_role->meta->get_roles->[0]->name,
	26	'eq',
	27	'MyProle',
	28	'generated role does the parameterized role'
	29	);
	30