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=cfa3370a436b20471ada56b4fade237ff9d88db9;hpb=d6ce7d521c72f863c15f376498d53c5409792d7c;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_plugin.t b/t/unit_core_plugin.t index cfa3370..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,6 +43,8 @@ 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'; @@ -45,6 +52,7 @@ my @expected = qw( 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 @@ -53,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'; +