t/062InitHash.t


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


# https://rt.cpan.org/Public/Bug/Display.html?id=68105

my $logfile = "test.log";
END { unlink $logfile; }

use Log::Log4perl;
use Log::Log4perl::Appender;
use Log::Log4perl::Appender::File;

use Test::More tests => 1;

Log::Log4perl->init({
   'log4perl.rootLogger'                             => 'ALL, FILE',
   'log4perl.appender.FILE'                          =>
       'Log::Log4perl::Appender::File',
   'log4perl.appender.FILE.filename'                 => sub { "$logfile" },
   'log4perl.appender.FILE.layout'                   => 'SimpleLayout',
});

Log::Log4perl->get_logger->debug('yee haw');

open FILE, "<$logfile" or die $!;
my $data = join '', <FILE>;
close FILE;

is( $data, "DEBUG - yee haw\n", "hash-init with subref" );