Merge branch 'master' into immutable_as_real_trait

[gitmo/Class-MOP.git] / t / 088_immutable_role_application_bug.t

use strict;
use warnings;

use Test::More tests => 1;

BEGIN {

    package My::Meta::Trait;
    use Moose::Role;

    our $HAS_METH = 0;

    before 'make_immutable' => sub {
        my ($meta) = @_;

        # $meta->name->meta should have the correct methods on it..
        $HAS_METH++ if $meta->name->meta->get_method('some_method');
    };
}

{

    package TestClass;
    use Moose -traits => 'My::Meta::Trait';

    sub some_method { }

    __PACKAGE__->meta->make_immutable;
}

ok( $My::Meta::Trait::HAS_METH, 'Can find method' );