Make $role->get_method_list() include meta() (Moose 0.90 feature)

[gitmo/Mouse.git] / t / 800_shikabased / 013-compatibility-get_method_list.t

use strict;
use warnings;
use Test::More;
plan skip_all => "This test requires Moose 0.81" unless eval { require Moose; Moose->VERSION(0.81); };
plan tests => 6;

test($_) for qw/Moose Mouse/;
exit;

sub test {
    my $class = shift;
    eval <<"...";
{
    package ${class}Class;
    use ${class};
    sub foo { }
    no ${class};
}
{
    package ${class}ClassImm;
    use ${class};
    sub foo { }
    no ${class};
    __PACKAGE__->meta->make_immutable();
}
{
    package ${class}Role;
    use ${class}::Role;
    sub bar { }
}
...
    die $@ if $@;
    is join(',', sort "${class}Class"->meta->get_method_list()),    'foo,meta',             "mutable   $class";
    is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable $class";
    is join(',', sort "${class}Role"->meta->get_method_list()),     'bar,meta',             "role      $class";
}