[Catalyst-commits] r10594 - Catalyst-Runtime/5.80/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-06-19 20:35:41 +0000 (Fri, 19 Jun 2009)
New Revision: 10594

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_core_component_loading.t
Log:
Just initialize a logger which only logs fatal errors, no mock needed

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_component_loading.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_component_loading.t	2009-06-19 15:55:02 UTC (rev 10593)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_component_loading.t	2009-06-19 20:35:41 UTC (rev 10594)
@@ -9,8 +9,6 @@
 use File::Spec;
 use File::Path;
 
-use Test::MockObject;
-
 my $libdir = 'test_trash';
 unshift(@INC, $libdir);
 
@@ -85,15 +83,7 @@
 }
 
 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";