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=f436bc1bece2bcc2a04138068e5c22e70d9d6d35;hp=a8699c30e22ffcdb961c6e95294c6438c326667c;hpb=e28a6876ad3e11890226e5bab6df4b0725e0981e;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'); -