X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_plugin.t;h=03d16f62f932c6bf000aaa1de3a4b1168532dea5;hb=448e5011e539a42791c6822a3473fb627ce6af41;hp=09bcfa142184daa09f2ad82c52e045eff78a6a70;hpb=2938f7a0daa2ed737ca5cf64a4c60bab1581dda5;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_plugin.t b/t/unit_core_plugin.t index 09bcfa1..03d16f6 100644 --- a/t/unit_core_plugin.t +++ b/t/unit_core_plugin.t @@ -2,7 +2,6 @@ use strict; use warnings; -use Test::MockObject::Extends; use Test::More tests => 24; @@ -20,15 +19,21 @@ use lib 't/lib'; my $warnings = 0; use PluginTestApp; -my $logger = Test::MockObject::Extends->new(PluginTestApp->log); -$logger->mock('warn', sub { - if ($_[1] =~ /plugin method is deprecated/) { - $warnings++; - return; - } - die "Caught unexpected warning: " . $_[1]; -}); -#PluginTestApp->log($logger); +my $logger = Class::MOP::Class->create_anon_class( + methods => { + error => sub {0}, + debug => sub {0}, + info => sub {0}, + warn => sub { + if ($_[1] =~ /plugin method is deprecated/) { + $warnings++; + return; + } + die "Caught unexpected warning: " . $_[1]; + }, + }, +)->new_object; +PluginTestApp->log($logger); use Catalyst::Test qw/PluginTestApp/; @@ -38,14 +43,16 @@ is( $warnings, 0, 'no warnings' ); # for Catalyst 5.9 ok( get("/run_time_plugins"), "get ok" ); +local $ENV{CATALYST_DEBUG} = 0; + is( $warnings, 1, '1 warning' ); use_ok 'TestApp'; my @expected = qw( - Catalyst::Plugin::MangleDollarUnderScore Catalyst::Plugin::Test::Errors Catalyst::Plugin::Test::Headers Catalyst::Plugin::Test::Inline + Catalyst::Plugin::Test::MangleDollarUnderScore Catalyst::Plugin::Test::Plugin TestApp::Plugin::AddDispatchTypes TestApp::Plugin::FullyQualified @@ -54,3 +61,4 @@ my @expected = qw( # Faux::Plugin is no longer reported is_deeply [ TestApp->registered_plugins ], \@expected, 'registered_plugins() should only report the plugins for the current class'; +