1########################################### 2# Test Suite for Log::Log4perl::Logger 3# Mike Schilli, 2002 (m@perlmeister.com) 4########################################### 5 6BEGIN { 7 if($ENV{INTERNAL_DEBUG}) { 8 require Log::Log4perl::InternalDebug; 9 Log::Log4perl::InternalDebug->enable(); 10 } 11} 12 13use warnings; 14use strict; 15 16use Test; 17 18use Log::Log4perl qw(get_logger); 19use Log::Log4perl::Level; 20use Log::Log4perl::Appender::TestBuffer; 21 22BEGIN { plan tests => 2 } 23 24ok(1); # If we made it this far, we're ok. 25 26# Have TestBuffer log the Log::Dispatch priority 27$Log::Log4perl::Appender::TestBuffer::LOG_PRIORITY = 1; 28Log::Log4perl::Appender::TestBuffer->reset(); 29 30my $conf = <<EOT; 31log4perl.logger = ALL, BUF0 32log4perl.appender.BUF0 = Log::Log4perl::Appender::TestBuffer 33log4perl.appender.BUF0.layout = Log::Log4perl::Layout::SimpleLayout 34EOT 35 36Log::Log4perl::init(\$conf); 37 38my $app0 = Log::Log4perl::Appender::TestBuffer->by_name("BUF0"); 39 40my $loga = get_logger("a"); 41 42$loga->debug("debug"); 43$loga->info("info"); 44$loga->warn("warn"); 45$loga->error("error"); 46$loga->fatal("fatal"); 47 48ok($app0->buffer(), 49 "[0]: DEBUG - debug\n" . 50 "[1]: INFO - info\n" . 51 "[3]: WARN - warn\n" . 52 "[4]: ERROR - error\n" . 53 "[7]: FATAL - fatal\n" . 54 "" 55 ); 56