X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_setup_log.t;h=843d10ebc79d14548d56393d595ab129780eb9c3;hb=42ef9eedf4f88a5086e960f664a0ac8cca2b410a;hp=ce4d58eccb6538d1ab09a5ab86c27bfcdd2726b5;hpb=abf65c2a15d206a147d712ba3d3a03227b25f48a;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_setup_log.t b/t/unit_core_setup_log.t index ce4d58e..843d10e 100644 --- a/t/unit_core_setup_log.t +++ b/t/unit_core_setup_log.t @@ -8,7 +8,7 @@ use Catalyst (); sub mock_app { my $name = shift; - warn("Setting up mock application: $name\n"); + print "Setting up mock application: $name\n"; my $meta = Moose->init_meta( for_class => $name ); $meta->superclasses('Catalyst'); return $meta->name; @@ -49,10 +49,10 @@ local %ENV; # Ensure blank or someone, somewhere will fail.. $app->setup_log(''); ok $app->debug, 'In debug mode'; test_log_object($app->log, - fatal => 0, - error => 0, - warn => 0, - info => 0, + fatal => 1, + error => 1, + warn => 1, + info => 1, debug => 1, ); } @@ -73,23 +73,26 @@ local %ENV; # Ensure blank or someone, somewhere will fail.. my $app = mock_app('TestLogAppEmptyString'); $app->setup_log(''); ok !$app->debug, 'Not In debug mode'; - test_log_object($app->log, - fatal => 0, - error => 0, - warn => 0, - info => 0, - debug => 0, - ); + TODO: { + local $TODO = 'THis is insane'; + test_log_object($app->log, + fatal => 0, + error => 0, + warn => 0, + info => 0, + debug => 0, + ); + } } { my $app = mock_app('TestLogAppDebugOnly'); $app->setup_log('debug'); ok $app->debug, 'In debug mode'; test_log_object($app->log, - fatal => 0, - error => 0, - warn => 0, - info => 0, + fatal => 1, + error => 1, + warn => 1, + info => 1, debug => 1, ); }