t/013-does.t

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