t/aggregate/unit_core_component_mro.t

   1 use Test::More tests => 1;
   2 use strict;
   3 use warnings;
   4
   5 {
   6   package MyApp::Component;
   7   use Test::More;
   8
   9   sub COMPONENT {
  10     fail 'This no longer gets dispatched to';
  11   }
  12
  13   package MyApp::MyComponent;
  14
  15   use base 'Catalyst::Component', 'MyApp::Component';
  16
  17 }
  18
  19 my $warn = '';
  20 {
  21   local $SIG{__WARN__} = sub {
  22     $warn .= $_[0];
  23   };
  24   MyApp::MyComponent->COMPONENT('MyApp');
  25 }
  26
  27 like($warn, qr/after Catalyst::Component in MyApp::Component/,
  28     'correct warning thrown');
  29