1########################################### 2# Test Suite for Log::Log4perl 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 13######################### 14# change 'tests => 1' to 'tests => last_test_to_print'; 15######################### 16use Test; 17BEGIN { plan tests => 2 }; 18 19 20use Log::Log4perl; 21use Log::Log4perl::Appender::TestBuffer; 22use File::Spec; 23 24my $EG_DIR = "eg"; 25$EG_DIR = "../eg" unless -d $EG_DIR; 26 27ok(1); # If we made it this far, we're ok. 28 29my $LOGFILE = "example.log"; 30unlink $LOGFILE; 31 32Log::Log4perl->init( 33 File::Spec->catfile($EG_DIR, 'log4j-file-append-perl.conf')); 34 35 36my $logger = Log::Log4perl->get_logger(""); 37my @lines = (); 38my $line = __LINE__ + 1; 39push @lines, $line++; $logger->debug("Gurgel"); 40push @lines, $line++; $logger->info("Gurgel"); 41push @lines, $line++; $logger->warn("Gurgel"); 42push @lines, $line++; $logger->error("Gurgel"); 43push @lines, $line++; $logger->fatal("Gurgel"); 44 45open FILE, "<$LOGFILE" or die "Cannot open $LOGFILE"; 46my $data = join '', <FILE>; 47close FILE; 48 49my $file = "007LogPrio.t"; 50 51my $exp = <<EOT; 52$file $lines[0] DEBUG N/A - Gurgel 53$file $lines[1] INFO N/A - Gurgel 54$file $lines[2] WARN N/A - Gurgel 55$file $lines[3] ERROR N/A - Gurgel 56$file $lines[4] FATAL N/A - Gurgel 57EOT 58 59unlink $LOGFILE; 60ok($data, "$exp"); 61