t/19_typelib_with_role.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;
   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';
  27
  28 done_testing();