t/unit_core_methodattributes_method_metaclass_on_subclasses.t

   1 use strict;
   2 use Test::More;
   3
   4 {
   5     package NoAttributes::CT;
   6     use Moose;
   7     BEGIN { extends qw/Catalyst::Controller/; };
   8
   9     sub test {}
  10 }
  11 {
  12     package NoAttributes::RT;
  13     use Moose;
  14     extends qw/Catalyst::Controller/;
  15
  16     sub test {}
  17 }
  18 my $c = 0;
  19 foreach my $class (qw/ CT RT /) {
  20     my $class_name = 'NoAttributes::' . $class;
  21     my $meta = $class_name->meta;
  22     my $meth = $meta->find_method_by_name('test');
  23     {
  24         local $TODO = "Known MX::MethodAttributes issue" if $c++;
  25         ok $meth->can('attributes'), 'method metaclass has ->attributes method for ' . $class;;
  26     }
  27 }
  28
  29 done_testing;
  30