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

use Test::More tests => 1;
use strict;
use warnings;

{
  package MyApp::Component;
  use Test::More;

  sub COMPONENT {
    fail 'This no longer gets dispatched to';
  }

  package MyApp::MyComponent;

  use base 'Catalyst::Component', 'MyApp::Component';

}

my $warn = '';
{  
  local $SIG{__WARN__} = sub {
    $warn .= $_[0];  
  };
  MyApp::MyComponent->COMPONENT('MyApp');
}

like($warn, qr/after Catalyst::Component in MyApp::Component/, 
    'correct warning thrown');
Commit	Line	Data
ae29b412	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