diff options
Diffstat (limited to 't/007LogPrio.t')
-rw-r--r-- | t/007LogPrio.t | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/t/007LogPrio.t b/t/007LogPrio.t new file mode 100644 index 0000000..76834cd --- /dev/null +++ b/t/007LogPrio.t @@ -0,0 +1,67 @@ +########################################### +# Test Suite for Log::Log4perl +# 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 => 2 }; + + +use Log::Log4perl; +use Log::Log4perl::Appender::TestBuffer; +use File::Spec; + +my $EG_DIR = "eg"; +$EG_DIR = "../eg" unless -d $EG_DIR; + +ok(1); # If we made it this far, we're ok. + +my $LOGFILE = "example-perl2.log"; +unlink $LOGFILE; + +Log::Log4perl->init( \ <<EOT ); +log4j.rootLogger=DEBUG, LOGFILE + +log4j.appender.LOGFILE=Log::Log4perl::Appender::File +log4j.appender.LOGFILE.filename=$LOGFILE +log4j.appender.LOGFILE.mode=append + +log4j.appender.LOGFILE.layout=org.apache.log4j.PatternLayout +log4j.appender.LOGFILE.layout.ConversionPattern=%F{1} %L %p %t %c - %m%n +EOT + +my $logger = Log::Log4perl->get_logger(""); +my @lines = (); +my $line = __LINE__ + 1; +push @lines, $line++; $logger->debug("Gurgel"); +push @lines, $line++; $logger->info("Gurgel"); +push @lines, $line++; $logger->warn("Gurgel"); +push @lines, $line++; $logger->error("Gurgel"); +push @lines, $line++; $logger->fatal("Gurgel"); + +open FILE, "<$LOGFILE" or die "Cannot open $LOGFILE"; +my $data = join '', <FILE>; +close FILE; + +my $file = "007LogPrio.t"; + +my $exp = <<EOT; +$file $lines[0] DEBUG N/A - Gurgel +$file $lines[1] INFO N/A - Gurgel +$file $lines[2] WARN N/A - Gurgel +$file $lines[3] ERROR N/A - Gurgel +$file $lines[4] FATAL N/A - Gurgel +EOT + +unlink $LOGFILE; +ok($data, "$exp"); |