X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_component_mro.t;fp=t%2Funit_core_component_mro.t;h=0000000000000000000000000000000000000000;hb=5d50f369bffa3625ca983b72fc8bc013c8a1e802;hp=a8699c30e22ffcdb961c6e95294c6438c326667c;hpb=a2aac3b8867dea286d03eba07a6fbe2e237cf1ae;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_component_mro.t b/t/unit_core_component_mro.t deleted file mode 100644 index a8699c3..0000000 --- a/t/unit_core_component_mro.t +++ /dev/null @@ -1,29 +0,0 @@ -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'); -