5 use Test::More tests => 29;
9 my $meta = Catalyst::Log->meta;
11 $meta->remove_method('_send_to_log');
12 $meta->add_method('_send_to_log', sub {});
15 sub build_test_app_with_setup {
16 my ($name, @flags) = @_;
17 my $flags = '(' . join(', ', map { "'".$_."'" } @flags) . ')';
18 $flags = '' if $flags eq '()';
28 local %ENV; # Don't allow env variables to mess us up.
31 my $app = build_test_app_with_setup('MyTestDebug', '-Debug');
33 ok my $c = MyTestDebug->new, 'Get debug app object';
34 ok my $log = $c->log, 'Get log object';
35 isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
36 ok $log->is_warn, 'Warnings should be enabled';
37 ok $log->is_error, 'Errors should be enabled';
38 ok $log->is_fatal, 'Fatal errors should be enabled';
39 ok $log->is_info, 'Info should be enabled';
40 ok $log->is_debug, 'Debugging should be enabled';
41 ok $app->debug, 'debug method should return true';
45 my $app = build_test_app_with_setup('MyTestLogParam', '-Log=warn,error,fatal');
47 ok my $c = $app->new, 'Get log app object';
48 ok my $log = $c->log, 'Get log object';
49 isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
50 ok $log->is_warn, 'Warnings should be enabled';
51 ok $log->is_error, 'Errors should be enabled';
52 ok $log->is_fatal, 'Fatal errors should be enabled';
53 ok !$log->is_info, 'Info should be disabled';
54 ok !$log->is_debug, 'Debugging should be disabled';
55 ok !$c->debug, 'Catalyst debugging is off';
58 my $app = build_test_app_with_setup('MyTestNoParams');
60 ok my $c = $app->new, 'Get log app object';
61 ok my $log = $c->log, 'Get log object';
62 isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
63 ok $log->is_warn, 'Warnings should be enabled';
64 ok $log->is_error, 'Errors should be enabled';
65 ok $log->is_fatal, 'Fatal errors should be enabled';
66 ok $log->is_info, 'Info should be enabled';
67 ok $log->is_debug, 'Debugging should be enabled';
68 ok !$c->debug, 'Catalyst debugging turned off';
71 package MyTestAppWithOwnLogger;
72 use base qw/Catalyst/;
74 my $log = Test::MockObject->new;
75 $log->set_false(qw/debug error fatal info warn/);
76 __PACKAGE__->log($log);
77 __PACKAGE__->setup('-Debug');
80 ok my $c = MyTestAppWithOwnLogger->new, 'Get with own logger app object';
81 ok $c->debug, '$c->debug is true';