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=70b649ee14df8e14aee6be1a9a8b13c0eff0778e;hb=5baa3bbcb8bea403665bceaa82f819905f0b501f;hp=c784c0345c5237c35e430a62dad470298ea73066;hpb=d258fcb2143b861826a4682d3c04c442f0c1ff9f;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_core_setup.t b/t/unit_core_setup.t
index c784c03..70b649e 100644
--- a/t/unit_core_setup.t
+++ b/t/unit_core_setup.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use Catalyst::Runtime;
 
-use Test::More tests => 18;
+use Test::More tests => 20;
 
 {
     # Silence the log.
@@ -46,3 +46,16 @@ ok $log->is_error,  'Errors should be enabled';
 ok $log->is_fatal,  'Fatal errors should be enabled';
 ok !$log->is_info,  'Info should be disabled';
 ok !$log->is_debug, 'Debugging should be disabled';
+
+TESTOWNLOGGER: {
+    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__->setup('-Debug');
+}
+
+ok $c = MyTestAppWithOwnLogger->new, 'Get with own logger app object';
+ok $c->debug, '$c->debug is true';