1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
use strict;
use warnings;
use Class::MOP;
use Catalyst::Runtime;
use Test::More tests => 29;
{
# Silence the log.
my $meta = Catalyst::Log->meta;
$meta->make_mutable;
$meta->remove_method('_send_to_log');
$meta->add_method('_send_to_log', sub {});
}
sub build_test_app_with_setup {
my ($name, @flags) = @_;
my $flags = '(' . join(', ', map { "'".$_."'" } @flags) . ')';
$flags = '' if $flags eq '()';
eval qq{
package $name;
use Catalyst $flags;
$name->setup;
};
die $@ if $@;
return $name;
}
local %ENV = %ENV;
# Remove all relevant env variables to avoid accidental fail
foreach my $name (grep { /^(CATALYST|TESTAPP)/ } keys %ENV) {
delete $ENV{$name};
}
{
my $app = build_test_app_with_setup('TestAppMyTestDebug', '-Debug');
ok my $c = $app->new, 'Get debug app object';
ok my $log = $c->log, 'Get log object';
isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
ok $log->is_warn, 'Warnings should be enabled';
ok $log->is_error, 'Errors should be enabled';
ok $log->is_fatal, 'Fatal errors should be enabled';
ok $log->is_info, 'Info should be enabled';
ok $log->is_debug, 'Debugging should be enabled';
ok $app->debug, 'debug method should return true';
}
{
my $app = build_test_app_with_setup('TestAppMyTestLogParam', '-Log=warn,error,fatal');
ok my $c = $app->new, 'Get log app object';
ok my $log = $c->log, 'Get log object';
isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
ok $log->is_warn, 'Warnings should be enabled';
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';
ok !$c->debug, 'Catalyst debugging is off';
}
{
my $app = build_test_app_with_setup('TestAppMyTestNoParams');
ok my $c = $app->new, 'Get log app object';
ok my $log = $c->log, 'Get log object';
isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
ok $log->is_warn, 'Warnings should be enabled';
ok $log->is_error, 'Errors should be enabled';
ok $log->is_fatal, 'Fatal errors should be enabled';
ok $log->is_info, 'Info should be enabled';
ok $log->is_debug, 'Debugging should be enabled';
ok !$c->debug, 'Catalyst debugging turned off';
}
my $log_meta = Class::MOP::Class->create_anon_class(
methods => { map { $_ => sub { 0 } } qw/debug error fatal info warn/ },
);
{
package TestAppWithOwnLogger;
use base qw/Catalyst/;
__PACKAGE__->log($log_meta->new_object);
__PACKAGE__->setup('-Debug');
}
ok my $c = TestAppWithOwnLogger->new, 'Get with own logger app object';
ok $c->debug, '$c->debug is true';
|
