t/013-does.t

   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