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

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

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

  sub COMPONENT {
    my $caller = caller;
    is($caller, 'Catalyst::Component', 'Correct method resolution');
  }

  package MyApp::MyComponent;

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

}

{
  my $expects = qr/after Catalyst::Component in MyApp::Component/;
  local $SIG{__WARN__} = sub {
    like($_[0], $expects, 'correct warning thrown');
  };
  MyApp::MyComponent->COMPONENT('MyApp');
}
Commit	Line	Data
6a7254b5	1	use Test::More tests => 2;
	2	use strict;
	3	use warnings;
	4
	5	{
	6	package MyApp::Component;
	7	use Test::More;
	8
c48335a3	9	sub COMPONENT {
6a7254b5	10	my $caller = caller;
	11	is($caller, 'Catalyst::Component', 'Correct method resolution');
	12	}
	13
	14	package MyApp::MyComponent;
	15
	16	use base 'Catalyst::Component', 'MyApp::Component';
	17
	18	}
	19
	20	{
	21	my $expects = qr/after Catalyst::Component in MyApp::Component/;
	22	local $SIG{__WARN__} = sub {
	23	like($_[0], $expects, 'correct warning thrown');
	24	};
	25	MyApp::MyComponent->COMPONENT('MyApp');
	26	}