Document the horrible, changelog. I'm going to merge this and fix a real issue as...

[catagits/Catalyst-Runtime.git] / t / unit_core_methodattributes_method_metaclass_on_subclasses.t

use strict;
use Test::More;

{
    package NoAttributes::CT;
    use Moose;
    BEGIN { extends qw/Catalyst::Controller/; };

    sub test {}
}
{
    package NoAttributes::RT;
    use Moose;
    extends qw/Catalyst::Controller/;

    sub test {}
}

foreach my $class (qw/ CT RT /) {
    my $class_name = 'NoAttributes::' . $class;
    my $meta = $class_name->meta;
    my $meth = $meta->find_method_by_name('test');
    ok $meth->can('attributes'), 'method metaclass has ->attributes method for ' . $class;;
}

done_testing;