From 94566f012421026c8311552f99175a5989eba063 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@lorry>
Date: Sat, 1 Nov 2014 01:47:12 +0000
Subject: Log-Log4perl-1.46

---
 t/062InitHash.t | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 t/062InitHash.t

(limited to 't/062InitHash.t')

diff --git a/t/062InitHash.t b/t/062InitHash.t
new file mode 100644
index 0000000..07996c3
--- /dev/null
+++ b/t/062InitHash.t
@@ -0,0 +1,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" );
-- 
cgit v1.2.1