1 files changed, 56 insertions, 0 deletions
diff --git a/t/008ConfCat.t b/t/008ConfCat.t
new file mode 100644
index 0000000..98afbca
--- /dev/null
+++ b/t/008ConfCat.t
@@ -0,0 +1,56 @@
+###########################################
+# Test Suite for Log::Log4perl::Config
+# Mike Schilli, 2002 (m@perlmeister.com)
+###########################################
+
+BEGIN { 
+    if($ENV{INTERNAL_DEBUG}) {
+        require Log::Log4perl::InternalDebug;
+        Log::Log4perl::InternalDebug->enable();
+    }
+}
+
+#########################
+# change 'tests => 1' to 'tests => last_test_to_print';
+#########################
+use Test;
+BEGIN { plan tests => 3 };
+
+use Log::Log4perl;
+use Log::Log4perl::Appender::TestBuffer;
+
+my $EG_DIR = "eg";
+$EG_DIR = "../eg" unless -d $EG_DIR;
+
+my $date_regex = qr(\d{4}/\d\d/\d\d \d\d:\d\d:\d\d);
+
+ok(1); # If we made it this far, we're ok.
+
+######################################################################
+# Test a 'foo.bar.baz' logger which inherits level from foo.bar
+# and calls both "foo.bar" and "root" appenders with their respective
+# formats
+# on a configuration file defining a file appender
+######################################################################
+Log::Log4perl->init("$EG_DIR/log4j-manual-2.conf");
+
+my $logger = Log::Log4perl->get_logger("foo.bar.baz");
+$logger->debug("Gurgel");
+
+ok(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
+   "m#$date_regex \\[N/A\\] DEBUG foo.bar.baz - Gurgel#");
+
+######################################################################
+# Test the root logger via inheritance (discovered by Kevin Goess)
+######################################################################
+Log::Log4perl->reset();
+
+Log::Log4perl::Appender::TestBuffer->reset();
+
+Log::Log4perl->init("$EG_DIR/log4j-manual-2.conf");
+
+$logger = Log::Log4perl->get_logger("foo");
+$logger->debug("Gurgel");
+
+ok(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
+   "m#$date_regex \\[N/A\\] DEBUG foo - Gurgel#");