X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_component_loading.t;h=c8098c6f9cb2c86fa655bbe17e3d6761ef1564e0;hb=73c6a22a236c09a6a3db9c58b720c8a5f758911d;hp=d27b9b7078dd20b65d1514c520b38ac05782c809;hpb=f27f2c6dee65b9f6f18f2ff90ab337e97a585fed;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_component_loading.t b/t/unit_core_component_loading.t index d27b9b7..c8098c6 100644 --- a/t/unit_core_component_loading.t +++ b/t/unit_core_component_loading.t @@ -9,8 +9,6 @@ use warnings; use File::Spec; use File::Path; -use Test::MockObject; - my $libdir = 'test_trash'; unshift(@INC, $libdir); @@ -85,15 +83,7 @@ foreach my $component (@components) { } my $shut_up_deprecated_warnings = q{ - use Test::MockObject; - my $old_logger = __PACKAGE__->log; - my $logger = Test::MockObject->new; - $logger->mock('warn', sub { - my $self = shift; - return if $_[0] =~ /deprecated/; - $old_logger->warn(@_); - }); - __PACKAGE__->log($logger); + __PACKAGE__->log(Catalyst::Log->new('fatal')); }; eval "package $appclass; use Catalyst; $shut_up_deprecated_warnings __PACKAGE__->setup";