4 use Test::More tests => 30;
11 print "Setting up mock application: $name\n";
12 my $meta = Moose->init_meta( for_class => $name );
13 $meta->superclasses('Catalyst');
18 my ($log, %expected) = @_;
19 foreach my $level (keys %expected) {
20 my $method_name = "is_$level";
21 if ($expected{$level}) {
22 ok( $log->$method_name(), "Level $level on" );
25 ok( !$log->$method_name(), "Level $level off" );
30 local %ENV; # Ensure blank or someone, somewhere will fail..
33 my $app = mock_app('TestLogAppParseLevels');
34 $app->setup_log('error,warn');
35 ok !$app->debug, 'Not in debug mode';
36 test_log_object($app->log,
45 local %ENV = ( CATALYST_DEBUG => 1 );
46 my $app = mock_app('TestLogAppDebugEnvSet');
48 ok $app->debug, 'In debug mode';
49 test_log_object($app->log,
58 local %ENV = ( CATALYST_DEBUG => 0 );
59 my $app = mock_app('TestLogAppDebugEnvUnset');
60 $app->setup_log('warn');
61 ok !$app->debug, 'Not In debug mode';
62 test_log_object($app->log,
71 my $app = mock_app('TestLogAppEmptyString');
73 ok !$app->debug, 'Not In debug mode';
74 # Note that by default, you get _all_ the log levels turned on
75 test_log_object($app->log,
84 my $app = mock_app('TestLogAppDebugOnly');
85 $app->setup_log('debug');
86 ok $app->debug, 'In debug mode';
87 test_log_object($app->log,