t/088_immutable_role_application_bug.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 1;
   5
   6 BEGIN {
   7
   8     package My::Meta::Trait;
   9     use Moose::Role;
  10
  11     our $FAILED = 0;
  12
  13     before 'make_immutable' => sub {
  14         my ($meta) = @_;
  15
  16         # $meta->name->meta should have the correct methods on it..
  17         $FAILED++ unless $meta->name->meta->get_method('some_method');
  18     };
  19 }
  20
  21 {
  22
  23     package TestClass;
  24     use Moose -traits => 'My::Meta::Trait';
  25
  26     sub some_method { }
  27
  28     __PACKAGE__->meta->make_immutable;
  29 }
  30
  31 TODO: {
  32     local $TODO = 'This broke as of 07302fb';
  33     is $My::Meta::Trait::FAILED, 0, 'Can find method';
  34 }
  35