renumber test

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

use strict;
use warnings;
BEGIN {
    package My::Meta::Trait;
    use Moose::Role;

    our $FAILED = 0;

    before 'make_immutable' => sub {
        my ($meta) = @_;
        # $meta->name->meta should have the correct methods on it..
        $FAILED++ unless $meta->name->meta->get_method('some_method');
    };
}
{
    package TestClass;
    use Moose -traits => 'My::Meta::Trait';

    sub some_method {}

    __PACKAGE__->meta->make_immutable;
}

use Test::More tests => 1;
TODO: {
    local $TODO = 'This broke as of 07302fb';
    is $My::Meta::Trait::FAILED, 0, 'Can find method';
}