t/061Multiline.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
28
29
30
31
32
33
34
35


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

use Log::Log4perl;
use Log::Log4perl::Appender;
use Log::Log4perl::Appender::File;
use Log::Log4perl::Layout::PatternLayout::Multiline;

use Test::More tests => 1;

my $logger = Log::Log4perl->get_logger("blah");

my $layout = Log::Log4perl::Layout::PatternLayout::Multiline->new;

my $logfile = "./file.log";

my $appender = Log::Log4perl::Appender->new(
               "Log::Log4perl::Appender::File",
                    name => 'foo',
                    filename  => './file.log',
                    mode      => 'append',
                    autoflush => 1,
               );

# Set the appender's layout
$appender->layout($layout);
$logger->add_appender($appender);

# this message will be split into [], leading to undef being logged,
# which will cause most appenders (e.g. ::File) to warn
$appender->log({ level => 1, message => "\n\n" }, 'foo_category', 'INFO');

ok(1, "no warnings should appear here");

unlink $logfile;