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