1########################################### 2# Test Suite for Log::Log4perl::Config 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::More; 17BEGIN { plan tests => 3 }; 18 19use Log::Log4perl; 20use Log::Log4perl::Appender::TestBuffer; 21use File::Spec; 22 23my $EG_DIR = "eg"; 24$EG_DIR = "../eg" unless -d $EG_DIR; 25 26ok(1); # If we made it this far, we're ok. 27 28my $LOGFILE = "example.log"; 29unlink $LOGFILE; 30 31Log::Log4perl->init(File::Spec->catfile($EG_DIR, 'log4j-file-append-perl.conf')); 32 33my $logger = Log::Log4perl->get_logger(""); 34my $line = __LINE__ + 1; 35$logger->debug("Gurgel"); 36 37open LOG, "<$LOGFILE" or die "Cannot open $LOGFILE"; 38my $data = <LOG>; 39 40END { close LOG; unlink $LOGFILE; } 41 42is($data, "005Config-Perl.t $line DEBUG N/A - Gurgel\n"); 43 44############################################### 45# Check reading a config file via a file handle 46############################################### 47Log::Log4perl->reset(); 48open FILE, File::Spec->catfile($EG_DIR, 'log4j-file-append-perl.conf') or 49 die "cannot open log4j-file-append-perl.conf"; 50Log::Log4perl->init(\*FILE); 51 52$logger = Log::Log4perl->get_logger(""); 53$line = __LINE__ + 1; 54$logger->debug("Gurgel"); 55 56$data = <LOG>; 57 58is($data, "005Config-Perl.t $line DEBUG N/A - Gurgel\n"); 59