View | Details | Raw Unified | Return to bug 28477
Collapse All | Expand All

(-)a/t/Logger.t (-2 / +43 lines)
Lines 22-28 use Koha::Logger; Link Here
22
use t::lib::Mocks;
22
use t::lib::Mocks;
23
23
24
use File::Temp qw/tempfile/;
24
use File::Temp qw/tempfile/;
25
use Test::More tests => 1;
25
use Test::More tests => 2;
26
use Test::Warn;
26
use Test::Warn;
27
27
28
subtest 'Test01 -- Simple tests for Koha::Logger' => sub {
28
subtest 'Test01 -- Simple tests for Koha::Logger' => sub {
Lines 59-65 HERE Link Here
59
               "ERROR: Unsupported method catastrophe",
59
               "ERROR: Unsupported method catastrophe",
60
               "Undefined method raises warning";
60
               "Undefined method raises warning";
61
    is( $ret, undef, "'catastrophe' method undefined");
61
    is( $ret, undef, "'catastrophe' method undefined");
62
};
63
64
subtest 'Test02 -- Koha::Logger STDERR' => sub {
65
    plan tests => 4;
66
67
    my $config_text = <<"HERE"
68
log4perl.logger.intranet = WARN, INTRANET
69
log4perl.appender.INTRANET=Log::Log4perl::Appender::Screen
70
log4perl.appender.INTRANET.stderr=1
71
log4perl.appender.INTRANET.mode=append
72
log4perl.appender.INTRANET.layout=PatternLayout
73
log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n
74
75
log4perl.logger.opac = WARN, OPAC
76
log4perl.appender.OPAC=Log::Log4perl::Appender::Screen
77
log4perl.appender.OPAC.stderr=1
78
log4perl.appender.OPAC.mode=append
79
log4perl.appender.OPAC.layout=PatternLayout
80
log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n
81
HERE
82
;
83
    #NOTE: Re-init at this level, since Koha::Logger can't re-init
84
    Log::Log4perl->init( \$config_text );
85
86
    my $opac_logger= Koha::Logger->get({ interface => 'opac' });
87
    is( exists $opac_logger->{logger}, 1, 'Log4perl config found');
88
    my $opac_out;
89
    {
90
        local *STDERR;
91
        open(STDERR,'>>',\$opac_out);
92
        $opac_logger->warn('opac-warn');
93
    };
94
    like($opac_out, qr/\Q[WARN] opac-warn\Q/,'OPAC logged to STDERR');
62
95
96
    my $intranet_logger= Koha::Logger->get({ interface => 'intranet' });
97
    is( exists $intranet_logger->{logger}, 1, 'Log4perl config found');
98
    my $intranet_out;
99
    {
100
        local *STDERR;
101
        open(STDERR,'>>',\$intranet_out);
102
        $intranet_logger->warn('intranet-warn');
103
    };
104
    like($intranet_out, qr/\Q[WARN] intranet-warn\Q/,'Intranet logged to STDERR');
63
};
105
};
64
106
65
sub mytempfile {
107
sub mytempfile {
66
- 

Return to bug 28477