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

(-)a/t/Logger.t (-11 / +2 lines)
Lines 2-17 Link Here
2
2
3
use utf8;
3
use utf8;
4
use Modern::Perl;
4
use Modern::Perl;
5
if ( not $ENV{KOHA_LOG} ) {
6
    usage();
7
    exit;
8
}
9
5
10
use Test::More;
6
use Test::More;
11
require C4::Context;
7
require C4::Context;
12
import C4::Context;
8
import C4::Context;
13
plan tests => 15;
9
plan tests => 15;
14
10
11
$ENV{KOHA_LOG} = q{/tmp/logger.log};
12
15
my $logfile = $ENV{KOHA_LOG};
13
my $logfile = $ENV{KOHA_LOG};
16
14
17
use_ok('Koha::Utils::Logger');
15
use_ok('Koha::Utils::Logger');
Lines 87-95 sub test_calledby { Link Here
87
    $log->error($msg);
85
    $log->error($msg);
88
}
86
}
89
87
90
sub usage {
91
    warn "\n\n+=======================================================+\n";
92
    warn   qq{| You must call this test with a KOHA_LOG env var like: |\n};
93
    warn   qq{| KOHA_LOG="/tmp/t1.log" prove t/Logguer.t              |\n};
94
    warn     "+=======================================================+\n\n";
95
}
96
- 

Return to bug 8190