4 use Test::More tests => 24;
11 my $meta = Moose->init_meta( for_class => $name );
12 $meta->superclasses('Catalyst');
17 my ($log, %expected) = @_;
18 foreach my $level (keys %expected) {
19 my $method_name = "is_$level";
20 if ($expected{$level}) {
21 ok( $log->$method_name(), "Level $level on" );
24 ok( !$log->$method_name(), "Level $level off" );
29 local %ENV; # Ensure blank or someone, somewhere will fail..
32 my $app = mock_app('TestLogAppParseLevels');
33 $app->setup_log('error,warn');
34 ok !$app->debug, 'Not in debug mode';
35 test_log_object($app->log,
36 fatal => 0, # WTF - I thought log levels were additive these days,
37 # or do I not understand the patch which pupported to make
46 local %ENV = ( CATALYST_DEBUG => 1 );
47 my $app = mock_app('TestLogAppDebugEnvSet');
49 ok $app->debug, 'In debug mode';
50 test_log_object($app->log,
51 fatal => 1, # Note, log levels _are_ seemingly additive if debug is on.
52 error => 1, # CRACK - someone has been smoking it.
59 local %ENV = ( CATALYST_DEBUG => 0 );
60 my $app = mock_app('TestLogAppDebugEnvUnset');
62 ok !$app->debug, 'Not In debug mode';
63 test_log_object($app->log,
72 my $app = mock_app('TestLogAppDebugOnly');
73 $app->setup_log('debug');
74 ok $app->debug, 'In debug mode';
75 test_log_object($app->log,