diff options
Diffstat (limited to 't/008ConfCat.t')
-rw-r--r-- | t/008ConfCat.t | 56 |
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#"); |