diff options
Diffstat (limited to 't/061Multiline.t')
-rw-r--r-- | t/061Multiline.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/t/061Multiline.t b/t/061Multiline.t new file mode 100644 index 0000000..4d92460 --- /dev/null +++ b/t/061Multiline.t @@ -0,0 +1,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; |