X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_setup.t;fp=t%2Funit_core_setup.t;h=00ee842d51bc5d73fa55d408f6388b148caae242;hb=a785d733cc1b0485a2378556db04333794a738ae;hp=1e6e5729f01f41ef566c35917190a3e7b9780ac7;hpb=cdb2bf9c32a2c9de6656aaea2788ccc968cabe27;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_core_setup.t b/t/unit_core_setup.t
index 1e6e572..00ee842 100644
--- a/t/unit_core_setup.t
+++ b/t/unit_core_setup.t
@@ -1,5 +1,6 @@
 use strict;
 use warnings;
+use Class::MOP::Class;
 use Catalyst::Runtime;
 
 use Test::More tests => 29;
@@ -67,13 +68,13 @@ local %ENV; # Don't allow env variables to mess us up.
     ok $log->is_debug, 'Debugging should be enabled';
     ok !$c->debug, 'Catalyst debugging turned off';
 }
+my $log_meta = Class::MOP::Class->create_anon_class(
+    methods => { map { $_ => sub { 0 } } qw/debug error fatal info warn/ },
+);
 {
     package MyTestAppWithOwnLogger;
     use base qw/Catalyst/;
-    use Test::MockObject;
-    my $log = Test::MockObject->new;
-    $log->set_false(qw/debug error fatal info warn/);
-    __PACKAGE__->log($log);
+    __PACKAGE__->log($log_meta->new_object);
     __PACKAGE__->setup('-Debug');
 }